Dim dtb As New DataTableBuilder("表B1")
dtb.AddDef("年级", GetType(String), 4)
dtb.AddDef("班级", GetType(String), 4)
dtb.AddDef("姓名", GetType(String), 10)
dtb.AddDef("科目", GetType(String), 10)
dtb.AddDef("分数", GetType(Double))
dtb.Build()
Dim st1 As String = e.Form.Controls("CheckedComboBox1").text '年级
Dim st2 As String = e.Form.Controls("CheckedComboBox2").text '班级
Dim st3 As String = e.Form.Controls("CheckedComboBox3").text '科目
Dim kms() As String = {st3.replace(",", "','")} '控件3列表项目，自定义项目设置为：语文|数学|英语|物理|化学
'Dim kms() As String = {"语文", "数学", "英语", "物理", "化学"}
For Each dr1 As DataRow In DataTables("表A").select("年级 in ('" & st1.replace(",", "','") & "') and 班级 in ('" & st2.replace(",", "','") & "')")
For Each km As String In kms
Dim dr2 As DataRow = DataTables("表B1").AddNew()
dr2("年级") = dr1("年级")
dr2("班级") = dr1("班级")
dr2("姓名") = dr1("姓名")
dr2("科目") = km
dr2("分数") = dr1(km)
Next
Next
MainTable = Tables("表B1")
老师，周末好！现在这个代码控件3科目单选正确，多选就出错，请教怎么修改
加好友 
发短信
Post By：2024/4/19 13:32:00 [只看该作者]
