Foxtable(狐表)用户栏目专家坐堂 → 菜单代码


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

主题:菜单代码

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


加好友 发短信
等级:四尾狐 帖子:929 积分:6500 威望:0 精华:0 注册:2014/6/25 10:48:00
菜单代码  发帖心情 Post By:2020/11/26 10:02:00 [只看该作者]

老师,下列代码是菜单某个按钮的代码,执行时提示出错,
For Each r As Row In Tables("zwhzb").Rows    
    Dim f As New Filler
    DataTables("融资贷款1年内到期统计表").datarows.clear
    f.SourceTable = DataTables("zwhzb") '指定数据来源
    f.SourceCols = "单位简称,科目名称,zwbm,zwmc,zqrqc" '指定数据来源列
    f.DataTable = DataTables("融资贷款1年内到期统计表") '指定数据接收表
    f.DataCols = "单位简称,科目名称,zwbm,债务名称,债权人名称" '指定数据接收列
    f.ExcludeExistValue = True
    f.filter = "zfye > 0 and zwlb = '贷款融资'"
    f.Fill() '填充数据
Next
MainTable = Tables("融资贷款1年内到期统计表")

提示下列错误:
错误所在事件:表,融资贷款1年内到期统计表,DataColChanged
详细错误信息:
调用的目标发生了异常。
从字符串“zwbm = 'D520199-9152011573095676”到类型“Long”的转换无效。
输入字符串的格式不正确。

而下列代码同样包含表“zwhzb”的列“zwbm”,却不提示错误。
For Each r As Row In Tables("zwhzb").Rows
        DataTables("zwndtjb").datarows.clear
        Dim f As New Filler
        f.SourceTable = DataTables("zwhzb") '指定数据来源
        f.SourceCols = "zwmc,zwbm,xmbm,zwlb,zwlx,zqlx1,zqr,dkqx,dkll,xmjc,xmqc,xmxz,xmlx,zw1,zw2,zqrqc" '指定数据来源列
        f.DataTable = DataTables("zwndtjb") '指定数据接收表
        f.DataCols = "zwmc,zwbm,xmbm,zwlb,zwlx,zqlx1,zqr,dkqx,dkll,xmjc,xmqc,xmxz,xmlx,zw1,zw2,zqrqc" '指定数据接收列
        f.ExcludeExistValue = True
        f.Fill() '填充数据
Next
MainTable = Tables("zwndtjb")

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


加好友 发短信
等级:四尾狐 帖子:929 积分:6500 威望:0 精华:0 注册:2014/6/25 10:48:00
  发帖心情 Post By:2020/11/26 10:04:00 [只看该作者]

已找到原因了,谢谢!!

 回到顶部