| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 自动新增行报错 老代码一值可以的。突然报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142465) |
| -- 作者：yifan3429 -- 发布时间：2019/10/28 12:27:00 -- 自动新增行报错 老代码一值可以的。突然报错 --------------------------- 错误 --------------------------- 编译错误:未声明“e”。它可能因其保护级别而不可访问。 错误代码：If e.DataCol.Name = "收款人" AndAlso e.NewValue <> Nothing Then --------------------------- 确定 --------------------------- \'输入凭证明细 查找主表是否存在此收款人 如果没有自动新增一行 If e.DataCol.Name = "收款人" AndAlso e.NewValue <> Nothing Then \'Forms("更新提示").Show Dim fdr As DataRow = DataTables("往来资金账户").Find("收款人 = \'" & e.NewValue & "\'") If fdr Is Nothing Then fdr = DataTables("往来资金账户").AddNew fdr("收款人") = e.DataRow("收款人") fdr("收款账号") = e.DataRow("收款账号") fdr("开户行") = e.DataRow("开户行") fdr("核算主体") = e.DataRow("核算主体") fdr("账户分类") = e.DataRow("账户分类") End If End If |
| -- 作者：有点蓝 -- 发布时间：2019/10/28 13:48:00 -- 关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。 |