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

你这段代码要实现什么？目前遇到什么？

Select Case e.DataCol.name

Case "月份", "天津水运", "荆州水运", "仓库业务"

Dim s As String = e.DataRow("月份")

If s = "月份" Then

e.DataRow("水运") = e.DataRow("天津水运") + e.DataRow("荆州水运")

e.DataRow("货代") = e.DataRow("水运") + e.DataRow("仓库业务")

End If

End Select

以下是引用jamhuton在2018/9/4 10:28:00的发言：
我用表达式列情况下，会出现“只读”，所以我想找表达式列改成代码的方式。

不要用表达式列，改成数据列

http://www.foxtable.com/webhelp/scr/2494.htm

然后，用2楼的代码测试

以下是引用jamhuton在2018/9/4 10:43:00的发言：
用这个代码写在datacolchanged，没计算结果.

并且我重置“月份”列也没有反应。

[此贴子已经被作者于2018/9/4 10:44:38编辑过]

1、你本来的表达式是怎么写的？

2、msgbox(s)弹出什么？

3、做个实例发上来说明你要做什么功能。

那试试改成

Select Case e.DataCol.name

Case "月份", "天津水运", "荆州水运", "仓库业务"

e.DataRow("水运") = e.DataRow("天津水运") + e.DataRow("荆州水运")

e.DataRow("货代") = e.DataRow("水运") + e.DataRow("仓库业务")

End Select

以下是引用jamhuton在2018/9/4 11:17:00的发言：
这样可以，还有一个问题，就是零值的就不能计算的问题。

代码不存在这种问题。你现在代码遇到什么问题？输入什么得到什么错误结果？

Select Case e.DataCol.name
    Case "月份", "天津水运", "荆州水运", "仓库业务","贸易业务","出口业务","进口代理","均胜进口","进口业务","手册业务","合计","货代","进口","贸易"
        Systemready = False
        e.DataRow("水运") = e.DataRow("天津水运") + e.DataRow("荆州水运")
        e.DataRow("货代") = e.DataRow("水运") + e.DataRow("仓库业务")
        e.DataRow("进口") = e.DataRow("均胜进口") + e.DataRow("进口业务")
        e.DataRow("贸易") = e.DataRow("贸易业务") + e.DataRow("出口业务")+ e.DataRow("进口代理")
        e.DataRow("合计") = e.DataRow("水运") + e.DataRow("仓库业务")+ e.DataRow("手册业务")+ e.DataRow("进口")
        e.DataRow("1") = e.DataRow("合计") *10
        e.DataRow("2") = e.DataRow("货代") *15
        e.DataRow("3") = e.DataRow("贸易") *100
        e.DataRow("4") = e.DataRow("手册业务") *20
        e.DataRow("5") = e.DataRow("进口") *20
        e.DataRow("6") = e.DataRow("进口") *15
        e.DataRow("7") = e.DataRow("仓库业务") *100
        e.DataRow("8") = e.DataRow("仓库业务") *75
        e.DataRow("9") = e.DataRow("仓库业务") *50
        e.DataRow("10") = e.DataRow("合计") *5
        Systemready = True
End Select

肯定不是这段代码有问题。绝对是你其它代码有问题。

实例发上来测试。

主题：列计算代码，请求修改