新增的临时表达式列，打开窗口不计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

新增的临时表达式列，打开窗口不计算，默认是空的，更改数字后才会计算

Dim cmc As String '水平方向自动汇总(添加临时列)

Dim c As Col

Dim ci As Integer

For ci=1 To tb.cols.Count-1 '从第二列到最后一列

c=tb.cols(ci)

cmc=cmc+"+["+c.Name+"]" '生成合计列的表达式

cmc=cmc.SubString(1)

tb.DataTable.DataCols.Add("合计",Gettype(Integer),cmc) '添加临时列(表达式列)做合计
图片点击可在新窗口打开查看

此主题相关图片如下：000.png

[此贴子已经被作者于2014-12-17 16:12:12编辑过]

主题：新增的临时表达式列，打开窗口不计算