主题：老问题，求解脱。万分感谢

已解决表问题，能否帮我解决控件代码问题？

我写的代码：

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列排序。

不知道什么原因就是生成不了表。求指导