老师，下列代码是菜单某个按钮的代码，执行时提示出错，
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")
加好友 
发短信
Post By：2020/11/26 10:02:00 [只看该作者]
