关于动态增加临时列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，请问在动态增加临时列时怎么用代码设置增加列的显示位置？？谢谢！

谢谢青老师，再个问题就是临时列可以用来分组统计？？

有个错误提示: 无效列名：xxx。这是为什么呢？？

代码如下：

DataTables("oemp_dim").DataCols.Add("工号", Gettype(String), 20)

Tables("离职管理_table1").Cols("工号").move(1)

DataTables("oemp_dim").DataCols.Add("姓名", Gettype(String), 6)

DataTables("oemp_dim").DataCols.Add("部门", Gettype(String), 32)

DataTables("oemp_dim").DataCols.Add("入职日期", Gettype(Date))

DataTables("oemp_dim").DataCols("emp_no").RaiseDataColChanged()

Dim dt As DataTable

Dim b As new GroupTableBuilder("统计表","oemp_dim")

b.Groups.Adddef("部门")

b.Totals.adddef("emp_no",AggregateEnum.Count,"人数")

dt = b.build(False)

Tables("统计表").Visible = False

Dim c As WinForm.TreeView = e.Form.Controls("TreeView1")

c.buildtree(dt,"部门")

c.StopRedraw

For Each d As WinForm.TreeNode In c.AllNodes

Dim bm As String = d.DataRow("部门")

Select Case d.level

Case 0

d.Text = d.Text & "(" & dt.Compute("Sum(人数)","部门 = '" & bm & "'" ) & "人)"

End Select

c.Nodes.Insert("加载所有行","加载所有行(" & dt.Compute("Sum(人数)") & "人)",0)

c.ResumeRedraw

可以了，谢谢青老师了。老师麻烦告诉我出现问题的关键是什么？？下次可以避免

好的，谢谢青老师啦！！

老师，在NodeMouseDoubleClick 事件中写了下面的代码，又提示运行错误：列名 '部门' 无效。

Dim Filter As String = ""

If e.Node.Name <> "加载所有行" Then '要用Name属性,不能用Text属性

Dim bm As String = e.Node.DataRow("部门")

Select Case e.Node.Level

Case 0

Filter ="部门 = '" & bm & "'"

End Select

End If

Tables("离职管理_table1").DataTable.LoadFilter = Filter

Tables("离职管理_table1").DataTable.Load()

明白了，谢谢青老师

主题：关于动态增加临时列