问题图片：

此主题相关图片如下：错误.jpg

项目文件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:资金报表管理.rar

就几行代码呢，我怎么找不出来是哪里不对了。

贴出来给大家帮我对比一下，上下两行比较，上一行出错，下一行可以。谢谢！

代码开始：

    Dim cjhbm As String="c.计划编码=\'"&Tables("周计划汇总查询_计划主表").Current("计划编码") & "\'"
    Dim cjhbm As String="c.计划编码=\'"&Tables("周计划汇总查询_计划主表").Current("计划编码") & "\'"
    Dim csele1 As String="Select c.集团编码,a.计划编码,a.项目编码,b.项目名称,a.申请金额 from {周资金计划主表} c inner join ({周资金计划明细表} a inner join {支出项目} b on a.项目编码=b.项目编码) on c.计划编码=a.计划编码 where "
    Dim csele1 As String="Select c.集团编码,a.计划编码,a.项目编码,b.项目名称,a.申请金额 from {周资金计划主表} c inner join ({周资金计划明细表} a inner join {支出项目} b on a.项目编码=b.项目编码) on c.计划编码=a.计划编码 where "
    Dim csele2 As String=" order by a.项目编码"
    Dim csele2 As String=" order by a.项目编码"
    Dim csql As String = csele1 & cjhbm & csele2
    Dim csql As String = csele1 & cjhbm & csele2
    Tables("周计划汇总查询_计划子表").Fill(csql,True)
    Tables("周计划汇总查询_计划子表").Fill(csql,True)
    Tables("周计划汇总查询_计划子表").SetColVisibleWidth("集团编码|50|计划编码|50|项目编码|60|项目名称|300|申请金额|80")
    Tables("周计划汇总查询_计划子表").SetColVisibleWidth("集团编码|50|计划编码|50|项目编码|60|项目名称|300|申请金额|80")

代码结束！