【发布时间】:2014-06-16 07:17:02
【问题描述】:
Public Sub uploadVehicle_Transaction()
Try
Dim VT As New DataTable
VT = New Statn_Sync.DataSetTableAdapters.Vehicle_TransactionsTableAdapter().GetData()
For Each dr As DataRow In VT.Rows
Dim MOV As String = comT.insertVehicle_Transaction(Convert.ToUInt64(dr("TransactionID")), _
Convert.ToDateTime(dr("Transaction_date")), _
Convert.ToUInt32(dr("Bank")), _
Convert.ToString(dr("Teller_number")), _
Convert.ToUInt32(dr("Amount")), _
Convert.ToString(dr("Generated_by")), _
Convert.ToString(dr("Station")), _
Convert.ToString(dr("Customer_name")), _
Convert.ToUInt32(dr("Transaction_category")), _
Convert.ToString(dr("Deposit_slip")), _
Convert.ToUInt32(dr("Sync")), _
Convert.ToDecimal(dr("Penalty")), _
Convert.ToDecimal(dr("OGSG")), _
Convert.ToDecimal(dr("CMR")), _
Convert.ToDecimal(dr("Goshen")), _
Convert.ToDecimal(dr("Insurance")), _
Convert.ToDecimal(dr("OCost")), _
Convert.ToDecimal(dr("OGSG_Renewal")), _
Convert.ToDecimal(dr("De_pulse")))
AddToLog(Convert.ToString(dr("paytAdEntryID").ToString))
Next
Catch ex As Exception
AddToLog(ex.Message)
End Try
End Sub
【问题讨论】: