已解决表问题,能否帮我解决控件代码问题?
我写的代码:
DataTables("表3").DataRows.clear
DataTables("表3").StopRedraw()
Dim B As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If b.Text <> "b" Then
Tables("表3").Filter = " b= '" & B.Text & "'"
End If
For Each dr1 As DataRow In DataTables("表1").DataRows
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").DataRows
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()
希望能根据选择,在窗口中生成表3 。表3按a列排序。
不知道什么原因就是生成不了表。求指导
实例已改,求指导完成效果。
-------------------------------------------------------------
这样说简单点:
表1:a,b,1,2,3列
表2:a,b,4,5,6列
表C:a,b,1,2,3,4,5,6列
生成的表C数据:
a,b,1,2,3,0,0,0
a,b,0,0,0,4,5,6
空值填0
不知道说清楚了没
[此贴子已经被作者于2014-2-21 22:11:33编辑过]