主题：列值传递问题

如果某一个订单一次性全部交货，而非分批交，可以点击“一次全部交货”按钮，将数量列的值传递给“已交数量”列，

以下代码，不能成功传递，怎么回事？请帮忙

 

Dim s As Integer = Tables("Sales_Order_List").current("Id")
Dim cnt As Integer                                     '统计该订单的订单明细数
cnt = DataTables("Sales_Order_Product").Compute("Count([Id])", "OrderId = '" & s & "'")
MessageBox.Show("订单明细数:" & cnt)

For i As Integer = 0 To cnt - 1                                   '将"Amount"列的值传递给"已交数量"列
    Dim s1 As Integer =  Tables("Sales_Order_Product").Rows(i)("Amount")
   ' MessageBox.Show("Amount:" & s1)
    Tables("Sales_Order_Product").Rows(i)("已交数量") = Tables("Sales_Order_Product").Rows(i)("Amount")
Next

此主题相关图片如下：1.jpg

For i As Integer = 0 To cnt - 1                                   '将"Amount"列的值传递给"已交数量"列
    Dim s1 As Integer =  Tables("Sales_Order_Product").Rows(i)("Amount")
   ' MessageBox.Show("Amount:" & s1)
    Tables("Sales_Order_Product").Rows(i)("已交数量") = Tables("Sales_Order_Product").Rows(i)("Amount")
Next

此主题相关图片如下：2.jpg

 

编译错误

for each dr as datarow in dataTables("Sales_Order_Product").select("OrderId = '" & s & "'")

可以了，谢谢