1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| CNT = 0
Dim MyTable2 As New DataTable
Dim CNX2 As New OleDbDataAdapter("select * from TEMPTools ORDER BY USER", cn)
CNX2.FillSchema(MyTable2, SchemaType.Source)
CNX2.Fill(MyTable)
cn.Open()
If MyTable2.Rows.Count > 0 Then
For i = 0 To MyTable2.Rows.Count - 1
For Each row As DataRow In MyTable2.Rows
CNT = CNT + 10
Dim Update As New OleDbCommand("UPDATE TEMPTools SET COUNT1='" & CNT & "', COUNT='" & CNT & "' WHERE RequistionNum='" & TextBox3.Text & "'", cn)
Update.ExecuteNonQuery()
Next
Next
End If
cn.Close() |
Partager