大概如此:
For r1 as row In Tables("A").Rows
Dim SQL as string ="UPDATE {订单} SET 当月用电量 =" & r1("当月用电量") & "," & "当月用水量 =" & r1("当月用水量") & " WHERE 工序 = '" & r1("工序") & "'"
Dim cmd As New
SQLCommand
cmd.ConnectionName = "region" cmd.CommandText = SQL
cmd.ExecuteNonQuery()
Next
DataTables("订单").Load