Le btnCreateStatement_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnCreateStatement.Click
Faible myConn en tant que nouveau MySqlConnection
Faible myComm en tant que nouveau MySqlCommand
Faible strSQL comme corde
Faible sEndDate comme corde
Faible CustomerRef comme corde
Faible courant en tant que double
Obscurcir trente en tant que double
Obscurcir soixante en tant que double
Obscurcir quatre-vingt-dix en tant que double
Obscurcir onetwenty en tant que double
Obscurcir la quantité en tant que double
Obscurcir nBFBal en tant que double
Obscurcir nCFBal en tant que double
CustomerRef = CustomerRefComboBox.Text
sEndDate = format (DateTimePicker2.Value, « yyyy-millimètre-densité double »)
strSQL = « tr.TransID CHOISI, TR. Date, trt. Catégorie, trt. Descr, cz.CustomerRef, TR. Quantité, SOMME (TR. Quantité) COMME TotalGroup, TR. Notes, » et _
« PERIOD_DIFF (CONCAT (ANNÉE ( » et sEndDate et "), SI (MOIS ( » et sEndDate et « )<10> 0 » et _
« ORDRE PAR TR. Date, LIMITE 0, 30 de tr.TransID »
myConn = GetConnection ()
Essai
myConn.Open ()
Essai
Faible myDataAdapter en tant que nouveau MySqlDataAdapter (strSQL, myConn)
Faible myData en tant que nouveau DataTable
' myComm.Connection = myConn
' myComm.CommandText = strSQL
myDataAdapter.SelectCommand = myComm
myDataAdapter.Fill (myData)
Pour chaque myData dans Oztech_testDataSet.Tables
Faible myRow comme DataRow
Pour chaque myRow dans myData.Rows
Faible myCol comme DataColumn
Pour chaque myCol dans myData.Columns
= 0 nBFBal
Si >= DateTimePicker1.Value de myRow (« date ») .ToString () alors
Si myRow (« TotalAgainstCustomer ») .ToString () <> 0 puis
nBFBal = nBFBal + myRow (« quantité ») .ToString ()
Autrement
nBFBal = nBFBal + myRow (« quantité ») .ToString ()
quantité = myRow (« quantité ») .ToString () + myRow (« PaidAmont ») .ToString ()
Finir si
Si myRow (« jours ») .ToString () <> ConnectionState.Closed alors
myConn.Close ()
Finir si
Finir l'essai
Finir le sous-marin
Finir la classe
|