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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码修改

共有1752人关注过本帖树形打印复制链接主题：代码修改

jick0526

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

等级：三尾狐帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00

代码修改

Post By：2017/8/21 21:33:00 [显示全部帖子]

老师，请问下，下面两段代码能不能帮我改成对SQL后台也可以运算的，不懂怎么改，麻烦老师帮我改下，谢谢!

表二

If e.DataCol.Name = "进账" Then

Dim pr As DataRow

pr = DataTables("表一").Find("列一 = '" & e.DataRow("列一") & "'")

If pr IsNot Nothing Then

pr("进账")= pr("进账") + e.NewValue - e.OldValue

End If

表一

If e.DataCol.Name = "内容合并" Then

e.DataRow("进账") = DataTables("表二").Compute("Sum(进账)","[列一] = '" & e.NewValue & "'")

End If

jick0526

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

等级：三尾狐帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00

Post By：2017/8/21 21:36:00 [显示全部帖子]

老师，上面的弄错，改下

表二

If e.DataCol.Name = "进账" Then

Dim pr As DataRow

pr = DataTables("表一").Find("列一 = '" & e.DataRow("列一") & "'")

If pr IsNot Nothing Then

pr("进账")= pr("进账") + e.NewValue - e.OldValue

End If

表一

If e.DataCol.Name = "列一" Then

e.DataRow("进账") = DataTables("表二").Compute("Sum(进账)","[列一] = '" & e.NewValue & "'")

End If

主题：代码修改