Защищенное Sub Button1_Click (прислужник ByVal как предмет, ByVal e как EventArgs) регулирует Button1.Click
Встреча («SalesmanID») = TextBox1.Text.ToUpper
TextBox2.Text = ""
Если cbBids.Checked после этого
TextBox2.Text = «sotype = «b»»
Закончитесь если
Если cbReturns.Checked после этого
Если TextBox2.Text = "" после этого
TextBox2.Text = «sotype = «r»»
Еще
TextBox2.Text = TextBox2.Text & «или sotype = «r»»
Закончитесь если
Закончитесь если
Если cbPartial.Checked после этого
Если TextBox2.Text = "" после этого
TextBox2.Text = «sotype = «o»»
Еще
TextBox2.Text = TextBox2.Text & «или sotype = «o»»
Закончитесь если
Закончитесь если
Если cbRegular.Checked после этого
Если TextBox2.Text = "" после этого
TextBox2.Text = «sotype = ''»
Еще
TextBox2.Text = TextBox2.Text & «или sotype = ''»
Закончитесь если
Закончитесь если
Встреча («») = TextBox2.Text
MsgBox (TextBox2.Text)
Response.Redirect («SOS.aspx»)
Подводная лодка конца
|