一个菜单命令,其他没有什么If DataTables.Contains("员工统计") = False
DataTables.Load("员工统计")
End If
DataTables("员工统计").datarows.clear '删除全部行
Dim f As New Filler
f.SourceTable = DataTables("员工档案") '指定数据来源
f.SourceCols = "员工编号" '指定数据来源列
f.DataTable = DataTables("员工统计") '指定数据接收表
f.DataCols = "员工编号" '指定数据接收列
f.Filter = "[员工状态]='在职'or [员工状态]='试用期'" '指定填充条件
f.Append = False '在原有行中填充,行不够再增加新行
f.Fill() '填充数据
Dim t As Table = Tables("员工统计")
t.DefaultRowHeight = 28 '所有行高
t.SysStyles("Alternate").BackColor = Color.FromARGB(224,224,224)
t.Grid.Styles("Normal").Border.Color = Color.SkyBlue
Forms("员工统计窗口").open
Tables("员工统计").OpenView("员工统计")
MainTable = Tables("员工统计")