| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 代码修改 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105528) |
| -- 作者：jick0526 -- 发布时间：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 End If 表一 If e.DataCol.Name = "内容合并" Then e.DataRow("进账") = DataTables("表二").Compute("Sum(进账)","[列一] = \'" & e.NewValue & "\'") End If
|
| -- 作者：jick0526 -- 发布时间：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 End If 表一 If e.DataCol.Name = "列一" Then e.DataRow("进账") = DataTables("表二").Compute("Sum(进账)","[列一] = \'" & e.NewValue & "\'") End If
|
| -- 作者：有点蓝 -- 发布时间：2017/8/21 21:48:00 -- DataTables("表一").SqlFind("列一 = \'" & e.DataRow("列一") & "\'") DataTables("表二").SqlCompute("Sum(进账)","[列一] = \'" & e.NewValue & "\'")
|