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

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

增加以后，移动位置

 

Tables("表A").Cols("第二列").Move(8)

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

 

可以的

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

 贴出你写的代码。

 改一下代码，看弹出什么

 

Dim dt As DataTable = Tables("离职管理_table1").DataTable
dt.DataCols.Add("工号", Gettype(String), 20)
msgbox(1)
Tables("离职管理_table1").Cols("工号").move(1)
msgbox(2)
dt.DataCols.Add("姓名", Gettype(String), 6)
dt.DataCols.Add("部门", Gettype(String), 32)
dt.DataCols.Add("入职日期", Gettype(Date))
dt.DataCols("emp_no").RaiseDataColChanged()

msgbox(3)
Dim b As new GroupTableBuilder("统计表",dt)
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
Next
c.Nodes.Insert("加载所有行","加载所有行(" & dt.Compute("Sum(人数)") & "人)",0)
c.ResumeRedraw

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

窗口表的话，尽量用 Tables("离职管理_table1") 这种方式来访问。如果要用到datatable，就写成Tables("离职管理_table1").DataTable