| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 菜单代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158601) |
| -- 作者：爱相随 -- 发布时间：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") |
| -- 作者：爱相随 -- 发布时间：2020/11/26 10:04:00 -- 已找到原因了，谢谢！！ |