[讨论] 这个简单的计算代码如何写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论] 这个简单的计算代码如何写？

共有23930人关注过本帖树形打印复制链接主题：[讨论] 这个简单的计算代码如何写？

ylm

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

等级：超级版主帖子：315 积分：3217 威望：0 精华：6 注册：2008/8/31 19:42:00

Post By：2008/10/17 11:54:00 [显示全部帖子]

将下面代码复制到命令窗口，修改V(0) 为不同数字，如V(1)，测试一下，你就明白如何做了。

Dim s as String= "劳务成本\辅助生产\汽车队\办公费"
Dim V as String()
v =s.split("\")
Output.Show(v(0) )

ylm

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

等级：超级版主帖子：315 积分：3217 威望：0 精华：6 注册：2008/8/31 19:42:00

Post By：2008/10/17 12:45:00 [显示全部帖子]

将e.DataRow("一级科目") =(e.DataRow("科目") & "\").split(" \ ")(0)写入计算代码，在菜单中重算一级科目列，不行吗？

[此贴子已经被作者于2008-10-17 12:45:51编辑过]

ylm

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

等级：超级版主帖子：315 积分：3217 威望：0 精华：6 注册：2008/8/31 19:42:00

Post By：2008/10/17 13:52:00 [显示全部帖子]

如果你想让公式自动计算，在DataColChanged事件中：

If e.DataCol.Name ="科目" Then
e.DataTable.DataCols("一级科目").Recalc(e.DataRow)
End If

主题：[讨论] 这个简单的计算代码如何写？