主题：如何实现近百张表的多表查询

 Dim name As String="张三"
DataTables("表A").DeleteFor("")
For Each dt As DataTable In DataTables
    If dt.name = "表A" Then
        Continue For
    End If
    Dim dr As DataRow = dt.Find("姓名='" & name & "'")
    If dr IsNot Nothing Then
        Dim dr2 As DataRow = DataTables("表A").AddNew()
        dr2("姓名")=name
        dr2("月份")=dt.Caption
        dr2("数量")=dr("数量")
    End If
Next