Vraag : wat werd gecontroleerd

Ik gebruik VB.Net en ik heb een pagina die 2 tekstvakjes heeft en 4 is het vakje van de controleboxes.

The eerste voor verkopersidentiteitskaart en de controledozen zijn voor de verschillende soorten orden.
Bid, Regelmatig, Nabestelling en returns.
the tweede tekstvakje wordt gebruikt om info op te slaan waarover het vakje checked.

I wil was overgaan die via zitting var aan een sql vraag in dozen doet. Mijn probleem is het formating van de sql vraag waarafhankelijk van de doos checked.

Here is is wat ik probeer, maar als niet gebaseerd op mijn vraag zal werken. En ik ben niet zeker hoe te om dit te veranderen zodat zal het (ByVal afzender als Voorwerp, ByVal e als EventArgs) Zitting/>

de Beschermde SubButton1_Click Button1.Click
(„SalesmanID“) = TextBox1.Text.ToUpper
als cbBids.Checked Then
TextBox2.Text = „sotype = 'b' „
Eind If

als cbReturns.Checked Then
TextBox2.Text = TextBox2.Text &“ of sotype = „Eind
If

van R het“ „als cbPartial.Checked Then
TextBox2.Text = TextBox2.Text &“ of sotype = Eind
If

„van O het“ „als cbRegular.Checked Then
TextBox2.Text = TextBox2.Text &“ of sotype = '' „
Eind If
de Zitting/>

Sub


Here = van TextBox2.Text
MsgBox (TextBox2.Text)

Response.Redirect (het „SOS.aspx“) is mijn sono query
SELECT, sodate, ordate, custno, shpamt, ponum, sotype, ordamt, salesmn VAN somast WAAR (salesmn = @SalesmanID) EN (sostat <> „C“) EN (sostat <> „V“) EN (sotype = @what) ORDE DOOR sotype

Antwoord : wat werd gecontroleerd

Probeer dit:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

    Beschermde Sub (ByVal afzender als Voorwerp, ByVal e als EventArgs) Handvatten Button1_Click Button1.Click

        Zitting („SalesmanID“) = TextBox1.Text.ToUpper
        TextBox2.Text = ""
        Als cbBids.Checked toen
            TextBox2.Text = „sotype = 'b'“
        Eind als

        Als cbReturns.Checked toen
            Als TextBox2.Text = "" toen
                TextBox2.Text = „sotype = „R““
            Anders
                TextBox2.Text = TextBox2.Text & „of sotype = „R““
            Eind als
        Eind als

        Als cbPartial.Checked toen
            Als TextBox2.Text = "" toen
                TextBox2.Text = „sotype = „O““
            Anders
                TextBox2.Text = TextBox2.Text & „of sotype = „O““
            Eind als
        Eind als

        Als cbRegular.Checked toen
            Als TextBox2.Text = "" toen
                TextBox2.Text = „sotype = ''“
            Anders
                TextBox2.Text = TextBox2.Text & „of sotype = ''“
            Eind als
        Eind als

        Zitting („wat“) = TextBox2.Text
        MsgBox (TextBox2.Text)

        Response.Redirect („SOS.aspx“)

    Sub van het eind
Andere oplossingen  
 
programming4us programming4us