datacolchanged代码问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → datacolchanged代码问题

共有2680人关注过本帖树形打印复制链接主题：datacolchanged代码问题

affixed

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：597 积分：4974 威望：0 精华：0 注册：2012/12/27 12:34:00

datacolchanged代码问题 发帖心情

Post By：2015/2/4 9:22:00 [只看该作者]

我在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加上此行的未到货数量

Dim dr2 As DataRow = DataTables("kcList").Find("[whItemID] = '" & e.DataRow("orderItemID") & "'") ’库存表中相同物料ID的在途数量用ztsl变量中的数值来替代

dr2("whzaitu") = ztsl

End If

我表格中的未到货数量是通过订单数量-已到货数量自动计算出来的。所以订单表中首先发生datacolchanged的是已到货数量。是否这个原因，造成datacolchanged中的if判断无法执行。

谢谢！

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/2/4 9:26:00 [只看该作者]

表达式列，不能直接判断

http://www.foxtable.com/help/topics/2381.htm

Dim ztsl As Double '定义变量ztsl,用于存放未到货数量的总和
If e.DataCol.Name = "订单数量" OrElse e.DataCol.Name = "已到货数量" 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