在11 之后 12之前报错
If DataTables.Contains("员工统计") = False
DataTables.Load("员工统计")
End If
msgbox(DataTables.Contains("员工统计"))
msgbox(DataTables("员工统计").datarows.count) '能不能弹出,弹出什么内容?
DataTables("员工统计").datarows.clear '删除全部行
msgbox(DataTables("员工统计").datarows.count)
Dim f As New Filler
f.SourceTable = DataTables("员工档案") '指定数据来源
f.SourceCols = "员工编号" '指定数据来源列
f.DataTable = DataTables("员工统计") '指定数据接收表
f.DataCols = "员工编号" '指定数据接收列
f.Filter = "[员工状态]='在职'or [员工状态]='试用期'" '指定填充条件
msgbox(10)
f.Append = False '在原有行中填充,行不够再增加新行
msgbox(11)
f.Fill() '填充数据
msgbox(12)
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("员工统计")