回复11楼,是这个意思?
DataTables("表3").DataRows.clear
DataTables("表3").StopRedraw()
Dim B As WinForm.ComboBox = e.Form.Controls("ComboBox1")
For Each dr1 As DataRow In DataTables("表1").Select(" b= '" & B.Text & "'")
Dim dr2 As DataRow = DataTables("表3").AddNew
dr2("a") = dr1("a")
dr2("b") = dr1("b")
dr2("c") = dr1("c")
dr2("d") = dr1("d")
dr2("e") = dr1("e")
dr2("f") = dr1("f")
dr2("g") = 0
dr2("h") = 0
Next
For Each dr1 As DataRow In DataTables("表2").Select(" b= '" & B.Text & "'")
Dim dr2 As DataRow = DataTables("表3").AddNew
dr2("a") = dr1("a")
dr2("b") = dr1("b")
dr2("c") = 0
dr2("d") = 0
dr2("e") = 0
dr2("f") = 0
dr2("g") = dr1("g")
dr2("h") = dr1("h")
Next
Tables("表3").Sort = "a"
DataTables("表3").ResumeRedraw()