我在datacolchanged中的if判断无效。
代码如下：
Dim ztsl As
Double
'定义变量ztsl,用于存放未到货数量的总和
If e.DataCol.Name = "orderWdhsl"
Then
‘如果列名为orderWdhsl（未到货数量）
For Each dr As
DataRow
In DataTables("orderList").Select("[orderItemID] = '" & dr("orderItemID") & "'") ’在订单表中选择素有物料ID等于当前行物料ID的项目
ztsl = ztsl + dr("orderWdhsl") ‘变量ztsl等于ztsl加上此行的未到货数量
Next
Dim dr2 As
DataRow = DataTables("kcList").Find("[whItemID] = '" & e.DataRow("orderItemID") & "'") ’库存表中相同物料ID的在途数量用ztsl变量中的数值来替代
dr2("whzaitu") = ztsl
End If
我表格中的未到货数量是通过订单数量-已到货数量自动计算出来的。所以订单表中首先发生datacolchanged的是已到货数量。是否这个原因，造成datacolchanged中的if判断无法执行。
谢谢！
加好友 
发短信
Post By：2015/2/4 9:22:00 [显示全部帖子]
