主题：老师帮忙看看

Dim q As new QueryBuilder
q.TableName="应收账款"
q.SelectString = "select '' As 日期,'期初' As 摘要,期初_应收客户款 As 期初,0 As 应收,0 As 收款,期初_应收客户款 As 余额 from {客户信息表} "
Tables("查询_tbl客户查询").DataSource = Tables("应收账款")

 你的是外部数据源吗？如果是还要指定ConnectionName

Dim q As new QueryBuilder
q.ConnectionName = "数据源名"
q.TableName="应收账款"
q.SelectString = "select '' As 日期,'期初' As 摘要,期初_应收客户款 As 期初,0 As 应收,0 As 收款,期初_应收客户款 As 余额 from {客户信息表} "
Tables("查询_tbl客户查询").DataSource = Tables("应收账款")

以下是引用hebxtshhyj在2017/4/13 11:20:00的发言：
想要的效果出不来啊，查询不到

没看懂你的意思，你需要什么你就在sql窗口调试正确了再写 http://www.foxtable.com/webhelp/scr/1484.htm

认认真真看2楼。

Dim q As new QueryBuilder
q.ConnectionName = "宁首"
q.TableName="应收账款"
q.SelectString = "select '' As 日期,'期初' As 摘要,期初_应收客户款 As 期初,0 As 应收,0 As 收款,期初_应收客户款 As 余额 from {客户信息表} "
Tables("查询_tbl客户查询").DataSource = Tables("应收账款")

Dim q As new QueryBuilder
q.ConnectionName = "宁首"
q.TableName="应收账款"
q.SelectString = "select '' As 日期,'期初' As 摘要,期初_应收客户款 As 期初,0 As 应收,0 As 收款,期初_应收客户款 As 余额 from {客户信息表} "
q.Build
Tables("查询_tbl客户查询").DataSource = DataTables("应收账款")

或者

Tables("查询_tbl客户查询").Fill("select '' As 日期,'期初' As 摘要,期初_应收客户款 As 期初,0 As 应收,0 As 收款,期初_应收客户款 As 余额 from {客户信息表} ", "宁首", True)