Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("考试室", Gettype(String), 32)
For Each v As String In DataTables("监考表").GetValues("考试科目")
dtb.AddDef(v, Gettype(String),32)
Next
dtb.Build()
Tables("初中报名_table9").DataSource = "表B"
For Each v As String In DataTables("监考表").GetValues("考试室")
Dim dr3 As DataRow = DataTables("表B").AddNew()
dr3("考试室") = v
For Each dr2 As DataRow In DataTables("监考表").Select("考试室 = '" & v & "'")
dr3(dr2("考试科目")) = dr2("监考教师")
Next
Next
Tables("初中报名_table9").DataSource=DataTables("表B")'临时表绑定到窗口
Tables("初中报名_table9").save()
我要处理的表是个汇总表，发现设置的属性不起作用,，类型用的NOMAL，没有drawcell事件，请老师明示
加好友 
发短信
Post By：2019/6/15 20:06:00 [显示全部帖子]
