主题：[求助] 请高手们帮我查查代码哪里有错！！！

QueryBuilder 是按条件生成查询表呀，你增加列的目的是什么？
如是要统计，你参阅：
CrossTableBuilder
DataTableBuilder
GroupTableBuilder

不好意思。刚错了，这个语句我也没搞懂。
但我认为你不能用这个查询表。

贴出你全部公式，想办法改一下

苯办法一个：

If tables("abc").Cols.Contains("客户") Then
    Return
Else
    With DataTables("abc")
        .DataCols.Add("日期", GetType(Date))
        .DataCols.Add("客户", GetType(String),10)
        .DataCols.Add("产品", GetType(String),10)
    End with
End If
Tables("窗口1_Table1").DataSource = DataTables("abc")
e.Form.Controls("Table1").Visible = true

Dim q As new QueryBuilder
q.TableName = "abc"
q.SelectString = "Select * From {表A}"
q.Build

放在AfterLoad中