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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 逻辑列的一个问题

共有2432人关注过本帖树形打印复制链接主题：逻辑列的一个问题

douglas738888

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

加好友

发短信

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

逻辑列的一个问题 发帖心情

Post By：2015/10/10 13:21:00 [只看该作者]

老师们指导下下，下面代码（有错误）想实现勾选逻辑列”订单退单“后，原来未付余款的值显示为”0“，

表A里的代码：

Dim dr1 As DataRow = e.DataRow

Select Case e.DataCol.Name

Case "订单金额","预付订金","未付余款"

dr1("未付余款") = dr1("订单金额")-dr1("预付订金")

End Select

If e.DataCol.Name ="订单退单" = True Then

Dim dr2 As DataRow = DataTables("表A").Find("未付余款 '" & e.OldValue & "'")

dr2("未付余款") = Nothing

End If

zhchn888

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

加好友

发短信

等级：幼狐帖子：58 积分：543 威望：0 精华：0 注册：2013/2/4 14:26:00

Post By：2015/10/10 13:36:00 [只看该作者]

If e.DataCol.Name ="订单退单" = True Then?这好像不对吧，不是这么表达的吧?我也是学习学习

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/10/10 14:28:00 [只看该作者]

If e.DataCol.Name ="订单退单" Then

或者

Dim dr1 As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "订单金额","预付订金","未付余款"
        dr1("未付余款") = dr1("订单金额")-dr1("预付订金")
    Case "订单退单"
        Dim dr2 As DataRow = DataTables("表A").Find("未付余款 '" & e.OldValue & "'")
        dr2("未付余款") = Nothing
End Select

douglas738888

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

加好友

发短信

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

Post By：2015/10/10 14:42:00 [只看该作者]

老师，上述代码也有错误，报错，说FLASE没有操作数

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/10/10 15:13:00 [只看该作者]

Dim dr2 As DataRow = DataTables("表A").Find("未付余款 ='" & e.OldValue & "'")

下一主题 >> << 上一主题

主题：逻辑列的一个问题