主题：[求助]交叉统计

 你是在窗口一打开的时候就生成了查询表？

 

 如果这样的话，你就去编写控件的TextChanged事件，直接筛选即可，代码

 

 

Tables("员工统计_Table1").Filter = "工作部门 = '" & e.Form.Controls("工作部门").Value & "'"

 

那就把这句

 

g.Filter = "工作部门 = 'c1.Value'"

 

改成

 

g.Filter = "工作部门 = '" & e.Form.Controls("工作部门").Value & "'"

g.HGroups.AddDef("工作部门")
g.VGroups.AddDef("户口类型")
g.Totals.AddDef("员工编号", AggregateEnum.Count, "员工编号")
g.VerticalTotal= True '垂直汇总
g.HorizontalTotal = True '水平汇总
If c1.Text > "" Then
    g.Filter = "工作部门 = '" & c1.Text & "'"
End If
Tables("员工统计_Table1").DataSource = g.BuildDataSource

 生成表以后，重新更改标题，参考

 

http://www.foxtable.com/help/topics/1275.htm

 

  循环所有列，判断列标题是否有叫做 员工标题_1 这个列，如果有，就改它的标题。

如下

 

For Each dc As DataCol In DataTables("员工统计_Table1").DataCols
    If dc.Caption = "员工编号_1" Then
        dc.Caption = "员工编号_无职称"
        DataTables("员工统计_Table1").BuildHeader()
        Exit For
    End If
Next

试试这样，不应该不行。

 

For Each dc As DataCol In DataTables("员工统计_Table1").DataCols
    If dc.Caption = "员工编号_1" orelse dc.name = "员工编号_1" Then
        dc.Caption = "员工编号_无职称"
        DataTables("员工统计_Table1").BuildHeader()
        Exit For
    End If
Next