Foxtable(狐表)用户栏目专家坐堂 → [讨论]请大侠帮忙看看fill方法,怎么行不通?


  共有3302人关注过本帖树形打印复制链接

主题:[讨论]请大侠帮忙看看fill方法,怎么行不通?

帅哥哟,离线,有人找我吗?
aaticor
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:38 积分:351 威望:0 精华:0 注册:2014/3/27 10:00:00
[讨论]请大侠帮忙看看fill方法,怎么行不通?  发帖心情 Post By:2014/4/10 17:29:00 [只看该作者]

问题图片:


图片点击可在新窗口打开查看此主题相关图片如下:错误.jpg
图片点击可在新窗口打开查看

 

项目文件

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:资金报表管理.rar


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/10 17:37:00 [只看该作者]

.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:资金报表管理.rar


 回到顶部
帅哥哟,离线,有人找我吗?
aaticor
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:38 积分:351 威望:0 精华:0 注册:2014/3/27 10:00:00
  发帖心情 Post By:2014/4/11 9:13:00 [只看该作者]

BIN哥,我的代码哪里错了?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/11 9:17:00 [只看该作者]

自己对比代码, 隔了一天,记得不清楚了.  好像是ISNULL 语法错误.

 回到顶部
帅哥哟,离线,有人找我吗?
aaticor
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:38 积分:351 威望:0 精华:0 注册:2014/3/27 10:00:00
  发帖心情 Post By:2014/4/11 12:04:00 [只看该作者]

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

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

代码开始:

    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")

 

代码结束!


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/11 14:09:00 [只看该作者]

出错的代码不是这里,你对比错地方了.

 回到顶部