Frage : MySQL VSTO Messwert von dataTable

Hallo, habe ich ein dataTable verursacht und habe die Frage und es diaplys ein Resultat geprüft.  Wenn Sie den Code ich sehen, haben unten angebracht:
When ist Schritt während des Codes, es durchführt die sql-Aussage, füllt das datatable, aber nach den Linien 81-82: das nBFBal = nBFBal
+ myRow.Item („Menge“) .ToString ()
Menge = myRow.Item („Menge“) .ToString () + myRow („PaidAmont“) .ToString (), stoppt es, weiter „schließlich“ zu gehen und exeutes die Aussage.  Irgendwelche Ideen, was falsch hier geht?
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:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
Private VorbtnCreateStatement_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt btnCreateStatement.Click

        Schwaches myConn als neues MySqlConnection
        Schwaches myComm als neues MySqlCommand
        Schwaches myAdapter als neues MySqlDataAdapter
        Schwaches myData als neues DataTable
        Schwaches strSQL als Schnur

        Schwaches sEndDate als Schnur
        Schwaches CustomerRef als Schnur
        Schwacher Strom als Doppeltes
        Dreißig als Doppeltes verdunkeln
        Sechzig als Doppeltes verdunkeln
        Neunzig als Doppeltes verdunkeln
        Onetwenty als Doppeltes verdunkeln
        Menge als Doppeltes verdunkeln
        Verdunkeln geaberkannt als Doppeltes
        nBFBal als Doppeltes verdunkeln
        nCFBal als Doppeltes verdunkeln

  CustomerRef = CustomerRefComboBox.Text
  sEndDate = Format (DateTimePicker2.Value, „Yyyy-MILLIMETErdD“)

  strSQL = „AUSERWÄHLTES tr.TransID, tr. Datum, trt. Kategorie, trt. Descr, cz.CustomerRef, tr. Menge, SUMME (tr. Menge) ALS TotalGroup, tr. Anmerkungen,“ u. _
„PERIOD_DIFF (CONCAT (JAHR („“ u. sEndDate u. „"), WENN (MONAT („„u. sEndDate u.“ ")<10, „0“, ''), MONAT („“ u. sEndDate u. „")), CONCAT (JAHR (tr. Datum), WENN (MONAT (tr. Datum) <10, „0“, ''), MONAT (tr. Datum))) ALS Tage“ u. _
„IFNULL ((auserwählte SUMME (AllocationAmount) VON GELASSENEM Verhandlung-T1 VERBINDEN TransactionAllocations TA AUF TA.TransactionID = T1.TransID“ u. _
„VERLASSEN Verhandlung-T2 AUF VERBINDEN T2.TransID = TA.TransactionID_Allocation, WO (tr.TransID = T1.TransID) UND T2.CustomerID = „3“) * -1, 0) ALS TotalAgainstCustomer,“ u. _
„IFNULL ((auserwählte SUMME (AllocationAmount) VON GELASSENEM Verhandlung-T1 VERBINDEN TransactionAllocations TA AUF TA.TransactionID_Allocation = T1.TransID“ u. _
„, WO tr.TransID = T1.TransID) * -1, 0) ALS PaidAmount“ u. _
„Kunden CZ, Verhandlungen tr, TransTypes vom trt“ u. vom _
„, WO (tr.CustomerID = cz.CustomerID UND cz.CustomerRef = „“ u. CustomerRef u. „“ UND tr.TransTypeID = trt.TransTypeID) „u. _
„UND (tr. Date<='" u. sEndDate u. „')“ u. _
„UND NICHT tr.TransTypeID IN („BESCHLUSS-SCHULDPOSTEN“, „BESCHLUSS-GUTSCHRIFT ")“ u. _
„GRUPPE DURCH IFNULL (LinkTo, TransID)“ u. _
„, TotalGroup <>0“ u. _ HABEND
„AUFTRAG DURCH tr. Datum, tr.TransID BEGRENZUNG 0, 30“

   myConn = GetConnection ()     
   Versuch
      myConn.Open ()
        Versuch
           myComm.Connection = myConn
           myComm.CommandText = strSQL

           myAdapter.SelectCommand = myComm
           myAdapter.Fill (myData)

           DataGridView1.DataSource = myData
           Schwaches myRow als DataRow
             Für jedes myRow in myData.Rows
                 Schwaches myCol als DataColumn
                 Für jedes myCol in myData.Columns
                     nBFBal = 0

                    Wenn Convert.ToDateTime (myRow.Item („Datum“)) >= DateTimePicker1.Value dann
                    Wenn myRow.Item („TotalAgainstCustomer“) .ToString () <> 0 dann
                          nBFBal = nBFBal + Convert.ToDouble (myRow.Item („Menge“) .ToString ())
                     Sonst
                           nBFBal = nBFBal + myRow.Item („Menge“) .ToString ()
                           Menge = myRow.Item („Menge“) .ToString () + myRow („PaidAmont“) .ToString ()
                     Beenden wenn

         Wenn myRow.Item („Tage“) .ToString () <= 0 dann
                Strom = Strom + Menge
         ElseIf myRow.Item („Tage“) .ToString () = 1 dann
                 dreißig = dreißig + Menge
         ElseIf myRow.Item („Tage“) .ToString = 2 dann
                 sechzig = sechzig + Menge
          ElseIf myRow.Item („Tage“) .ToString () = 3 dann
                 neunzig = neunzig + Menge
          ElseIf myRow.Item („Tage“) .ToString () = 4 dann
                 onetwenty = onetwenty = Menge
          Beenden wenn
       Beenden wenn
       Zunächst
          nCFBal = nBFBal
          Wenn myRow.Item („Datum“) < DateTimePicker2.Value dann
             Globals.Sheet64.TransactionDate.Value = myRow.Item („Datum“) .ToString
             Globals.Sheet64.TransactionType.Value = myRow.Item („Kategorie“) .ToString
             Globals.Sheet64.TransDescription.Value = myRow.Item („Descr“) .ToString
             Globals.Sheet64.TransDocument.Value = myRow.Item („Anmerkungen“) .ToString
             Wenn myRow.Item („TotalAgainstCustomer“) <> 0 dann
                 Globals.Sheet64.stm_amount.Value = myRow.Item („Menge“) .ToString
                  nCFBal = nCFBal + Convert.ToDouble (myRow.Item („Menge“) .ToString ())
                  Menge = Convert.ToDouble (myRow.Item („Menge“) .ToString ()) - Convert.ToDouble (myRow.Item („TotalAgainstCustomer“) .ToString ())
              Sonst
                 Globals.Sheet64.stm_amount.Value = myRow.Item („Menge“) .ToString
                 nCFBal = nCFBal + Convert.ToDouble (myRow.Item („Menge“) .ToString ())
                 Menge = Convert.ToDouble (myRow.Item („Menge“) .ToString ()) - Convert.ToDouble (myRow.Item („PaidAmount“) .ToString ())
              Beenden wenn
                    Beenden wenn
                Zunächst
            Fang myError als MySqlException
       MessageBox.Show („es gab einen Störungsmesswert von der Datenbank: “ u. myError.Message)
            Enden-Versuch
            Zunächst
        Fang myError als MySqlException
            MessageBox.Show („Störung, die an die Datenbank anschließt: “ u. myError.Message)
        Schließlich
            Wenn myConn.State <> ConnectionState.Closed dann
                myConn.Close ()
            Beenden wenn
        Versuch beenden
    Unterseeboot beenden
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:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
Private VorbtnCreateStatement_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt btnCreateStatement.Click

        Schwaches myConn als neues MySqlConnection
        Schwaches myComm als neues MySqlCommand
        Schwaches myAdapter als neues MySqlDataAdapter
        Schwaches myData als neues DataTable
        Schwaches strSQL als Schnur

        Schwaches sEndDate als Schnur
        Schwaches CustomerRef als Schnur
        Schwacher Strom als Doppeltes
        Dreißig als Doppeltes verdunkeln
        Sechzig als Doppeltes verdunkeln
        Neunzig als Doppeltes verdunkeln
        Onetwenty als Doppeltes verdunkeln
        Menge als Doppeltes verdunkeln
        Verdunkeln geaberkannt als Doppeltes
        nBFBal als Doppeltes verdunkeln
        nCFBal als Doppeltes verdunkeln

  CustomerRef = CustomerRefComboBox.Text
  sEndDate = Format (DateTimePicker2.Value, „Yyyy-MILLIMETErdD“)

  strSQL = „AUSERWÄHLTES tr.TransID, tr. Datum, trt. Kategorie, trt. Descr, cz.CustomerRef, tr. Menge, SUMME (tr. Menge) ALS TotalGroup, tr. Anmerkungen,“ u. _
„PERIOD_DIFF (CONCAT (JAHR („“ u. sEndDate u. „"), WENN (MONAT („„u. sEndDate u.“ ")<10, „0“, ''), MONAT („“ u. sEndDate u. „")), CONCAT (JAHR (tr. Datum), WENN (MONAT (tr. Datum) <10, „0“, ''), MONAT (tr. Datum))) ALS Tage“ u. _
„IFNULL ((auserwählte SUMME (AllocationAmount) VON GELASSENEM Verhandlung-T1 VERBINDEN TransactionAllocations TA AUF TA.TransactionID = T1.TransID“ u. _
„VERLASSEN Verhandlung-T2 AUF VERBINDEN T2.TransID = TA.TransactionID_Allocation, WO (tr.TransID = T1.TransID) UND T2.CustomerID = „3“) * -1, 0) ALS TotalAgainstCustomer,“ u. _
„IFNULL ((auserwählte SUMME (AllocationAmount) VON GELASSENEM Verhandlung-T1 VERBINDEN TransactionAllocations TA AUF TA.TransactionID_Allocation = T1.TransID“ u. _
„, WO tr.TransID = T1.TransID) * -1, 0) ALS PaidAmount“ u. _
„Kunden CZ, Verhandlungen tr, TransTypes vom trt“ u. vom _
„, WO (tr.CustomerID = cz.CustomerID UND cz.CustomerRef = „“ u. CustomerRef u. „“ UND tr.TransTypeID = trt.TransTypeID) „u. _
„UND (tr. Date<='" u. sEndDate u. „')“ u. _
„UND NICHT tr.TransTypeID IN („BESCHLUSS-SCHULDPOSTEN“, „BESCHLUSS-GUTSCHRIFT ")“ u. _
„GRUPPE DURCH IFNULL (LinkTo, TransID)“ u. _
„, TotalGroup <>0“ u. _ HABEND
„AUFTRAG DURCH tr. Datum, tr.TransID BEGRENZUNG 0, 30“

   myConn = GetConnection ()     
   Versuch
      myConn.Open ()
        Versuch
           myComm.Connection = myConn
           myComm.CommandText = strSQL

           myAdapter.SelectCommand = myComm
           myAdapter.Fill (myData)

           DataGridView1.DataSource = myData
           Schwaches myRow als DataRow
             Für jedes myRow in myData.Rows
                 Schwaches myCol als DataColumn
                 Für jedes myCol in myData.Columns
                     nBFBal = 0

                    Wenn Convert.ToDateTime (myRow.Item („Datum“)) >= DateTimePicker1.Value dann
                    Wenn myRow.Item („TotalAgainstCustomer“) .ToString () <> 0 dann
                          nBFBal = nBFBal + Convert.ToDouble (myRow.Item („Menge“) .ToString ())
                     Sonst
                           nBFBal = nBFBal + myRow.Item („Menge“) .ToString ()
                           Menge = myRow.Item („Menge“) .ToString () + myRow („PaidAmont“) .ToString ()
                     Beenden wenn

         Wenn myRow.Item („Tage“) .ToString () <= 0 dann
                Strom = Strom + Menge
         ElseIf myRow.Item („Tage“) .ToString () = 1 dann
                 dreißig = dreißig + Menge
         ElseIf myRow.Item („Tage“) .ToString = 2 dann
                 sechzig = sechzig + Menge
          ElseIf myRow.Item („Tage“) .ToString () = 3 dann
                 neunzig = neunzig + Menge
          ElseIf myRow.Item („Tage“) .ToString () = 4 dann
                 onetwenty = onetwenty = Menge
          Beenden wenn
       Beenden wenn
       Zunächst
          nCFBal = nBFBal
          Wenn myRow.Item („Datum“) < DateTimePicker2.Value dann
             Globals.Sheet64.TransactionDate.Value = myRow.Item („Datum“) .ToString
             Globals.Sheet64.TransactionType.Value = myRow.Item („Kategorie“) .ToString
             Globals.Sheet64.TransDescription.Value = myRow.Item („Descr“) .ToString
             Globals.Sheet64.TransDocument.Value = myRow.Item („Anmerkungen“) .ToString
             Wenn myRow.Item („TotalAgainstCustomer“) <> 0 dann
                 Globals.Sheet64.stm_amount.Value = myRow.Item („Menge“) .ToString
                  nCFBal = nCFBal + Convert.ToDouble (myRow.Item („Menge“) .ToString ())
                  Menge = Convert.ToDouble (myRow.Item („Menge“) .ToString ()) - Convert.ToDouble (myRow.Item („TotalAgainstCustomer“) .ToString ())
              Sonst
                 Globals.Sheet64.stm_amount.Value = myRow.Item („Menge“) .ToString
                 nCFBal = nCFBal + Convert.ToDouble (myRow.Item („Menge“) .ToString ())
                 Menge = Convert.ToDouble (myRow.Item („Menge“) .ToString ()) - Convert.ToDouble (myRow.Item („PaidAmount“) .ToString ())
              Beenden wenn
                    Beenden wenn
                Zunächst
            Fang myError als MySqlException
       MessageBox.Show („es gab einen Störungsmesswert von der Datenbank: “ u. myError.Message)
            Enden-Versuch
            Zunächst
        Fang myError als MySqlException
            MessageBox.Show („Störung, die an die Datenbank anschließt: “ u. myError.Message)
        Schließlich
            Wenn myConn.State <> ConnectionState.Closed dann
                myConn.Close ()
            Beenden wenn
        Versuch beenden
    Unterseeboot beenden

Antwort : MySQL VSTO Messwert von dataTable

>> erhalte ich keine Fehlermeldung

Ihre Ausnahmebehandlung ist nicht gut…
Dieses versuchen:

Versuch
….

Fang myError als MySqlException
       MessageBox.Show („es gab einen Störungsmesswert von der Datenbank: “ u. myError.Message)
Fang myError als MySqlException
            MessageBox.Show („Störung, die an die Datenbank anschließt: “ u. myError.Message)
Fang myError als Ausnahme
           MessageBox.Show (myError.toString ())
schließlich
Weitere Lösungen  
 
programming4us programming4us