方法一,用表达式。
http://www.foxtable.com/help/topics/0106.htm 方法二,修改datacolchanged的代码。
Select Case e.DataCol.Name
Case "详情ID"
Dim dr As DataRow
dr = DataTables("订单详情").Find("ID = " & "'" & e.DataRow("详情ID") & "'" )
If dr IsNot Nothing '如果找到, 则设置各列内容
e.DataRow("商品名")= dr("商品名称")
e.DataRow("单价")= dr("单价")
e.DataRow("订单号")=dr("caseno")
e.DataRow("颜色")=dr("color")
e.DataRow("备注")=dr("productRemarks")
Else
End If
Case "状态"
Select Case e.DataRow("状态")
Case 1
e.DataRow("数量")=0
Case 2
e.DataRow("数量")=0
Case Else
e.DataRow("数量")=e.DataRow("处理数量")
End Select
End Select