Dim g As New GroupTableBuilder("统计表5", DataTables("部门分解指标完成情况"), " 年度 = '" & e.Form.Controls("ComboBox1").text & "'And 月份 =" & e.Form.Controls("ComboBox2").text)
MessageBox.Show(e.Form.Controls("ComboBox2").value)
g.Groups.AddDef("年度")
g.Groups.AddDef("月份")
g.Groups.AddDef("分解后指标", "指标")
g.Groups.AddDef("单位")
g.Totals.AddDef("目标值")
g.Totals.AddDef("完成情况")
g.Build()
Dim t As Table = e.Form.Controls("Table1").Table
t.DataSource = g.BuildDataSource
'''''
'''
DataTables("数据报表_table1").DataCols.Add("进度", GetType(Double))
DataTables("数据报表_table1").DataCols.Add("序号", GetType(Integer))
Tables("数据报表_Table1").SetColVisibleWidth("序号|40|年度|60|月份|40|指标|200|单位|60|目标值|120|完成情况|120|进度|150")
For Each dr1 As DataRow In DataTables("指标排序").DataRows
Dim dr2 As DataRow = DataTables("数据报表_Table1").Find("指标='" & dr1("指标") & "'")
If dr2 IsNot Nothing Then
dr2("序号") = dr1("序号")
End If
Next
'‘填充排列序号
Tables ("数据报表_Table1").Sort = ("序号")'排序
afterload代码？：
e.Form.Controls("ComboBox1").text = Date.Today.Year
e.Form.Controls("ComboBox2").text = Date.Today.month -1
蓝总“：
还是不行，同样的错误。但是要把月份删掉，改成：Dim g As New GroupTableBuilder("统计表5", DataTables("部门分解指标完成情况"), " 年度 = " & e.Form.Controls("ComboBox1").text)，没错，
而且，e.Form.Controls("ComboBox1").text 有数值，e.Form.Controls("ComboBox2").text 为空
加好友 
发短信
Post By：2022/12/6 22:24:00 [只看该作者]
