Frage : was überprüft wurde

Ich verwende VB.Net und ich habe eine Seite, die 2 Textkästen hat und 4 ist Textkasten der Überprüfung boxes.

The erste für die Verkäufer Identifikation und die Überprüfungskästen sind für die verschiedenen Arten von Aufträgen.
Bid, Regular, unerledigter Auftrag und returns.
the zweites Textkasten benutzt, um das Info zu speichern, über das Kasten checked.

I möchten überschreiten war, die über Lernabschnitt var zu einer sql-Frage boxen. Mein Problem ist das Formating der sql-Frage, abhängig von der Kästen checked.

Here ist sind, was ich versuche, aber wenn nicht gegründet auf meiner Frage arbeitet. Und ich bin nicht sicher, wie man dieses ändert, also wird es work.

geschützter VorButton1_Click (ByVal Absender als Gegenstand, ByVal e als EventArgs) Lernabschnitt der Handgriff-Button1.Click

(„SalesmanID“) = TextBox1.Text.ToUpper
wenn cbBids.Checked Then
TextBox2.Text = „sotype = „B“ „
Ende If

wenn cbReturns.Checked Then
TextBox2.Text = TextBox2.Text u.“ oder sotype = „r-“ „
Ende If

wenn cbPartial.Checked Then
TextBox2.Text = TextBox2.Text u.“ oder sotype = „O“ „
Ende If

wenn cbRegular.Checked Then
TextBox2.Text = TextBox2.Text u.“ oder sotype = '' „
Ende If

Lernabschnitt („, was“) = TextBox2.Text
MsgBox (TextBox2.Text)

Response.Redirect („SOS.aspx“)

Ende Sub


Here ist mein query
SELECT sono, sodate, ordate, custno, shpamt, ponum, sotype, ordamt, salesmn vom somast IN DEM (salesmn = @SalesmanID) UND (sostat <> „C ") UND (sostat <> „V ") UND (sotype = @what) AUFTRAG DURCH sotype

Antwort : was überprüft wurde

Dieses versuchen:
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:
6:
37:
38:

    Geschütztes VorButton1_Click (ByVal Absender als Gegenstand, ByVal e als EventArgs) behandelt Button1.Click

        Lernabschnitt („SalesmanID“) = TextBox1.Text.ToUpper
        TextBox2.Text = ""
        Wenn cbBids.Checked dann
            TextBox2.Text = „sotype = „B““
        Beenden wenn

        Wenn cbReturns.Checked dann
            Wenn TextBox2.Text = "" dann
                TextBox2.Text = „sotype = „R““
            Sonst
                TextBox2.Text = TextBox2.Text u. „oder sotype = „R““
            Beenden wenn
        Beenden wenn

        Wenn cbPartial.Checked dann
            Wenn TextBox2.Text = "" dann
                TextBox2.Text = „sotype = „O““
            Sonst
                TextBox2.Text = TextBox2.Text u. „oder sotype = „O““
            Beenden wenn
        Beenden wenn

        Wenn cbRegular.Checked dann
            Wenn TextBox2.Text = "" dann
                TextBox2.Text = „sotype = ''“
            Sonst
                TextBox2.Text = TextBox2.Text u. „oder sotype = ''“
            Beenden wenn
        Beenden wenn

        Lernabschnitt („, was“) = TextBox2.Text
        MsgBox (TextBox2.Text)

        Response.Redirect („SOS.aspx“)

    Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us