主题：动态新增查询表

e.Form.controls("table1").Table.datasource = DataTables("表A")
e.Form.controls("table2").Table.datasource = DataTables("表A")

Dim q As new QueryBuilder
q.TableName = "表1"
q.SelectString = "Select * from {表a}"
q.Build
Dim q1 As new QueryBuilder
q1.TableName = "表2"
q1.SelectString = "Select * from {表B}"
q1.Build

e.Form.controls("table1").Table.datasource = DataTables("表1")
e.Form.controls("table2").Table.datasource = DataTables("表2")