- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 增加行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141250)
-- 发布时间：2019/9/25 10:14:00
-- 增加行
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:辅机生产采购管理系统.foxdb |
147258
陈荣明1666
物资采购明细表中，“备注”列回车增加行时出错
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.9.22.1
错误所在事件：表，物资采购明细表，DataColChanged
详细错误信息：
调用的目标发生了异常。
未设置对象变量或 With 块变量。
物资采购明细表中设计采用两种增加行的方式：现在两种方法都提示出错
方法一：鼠标点击单元格“备注”，即可在此行下方自动增加行，此方法新增行中“预算编号”、“编制人”、“生产令号”、“项目名称”、“序号”为自动生成。
方法二：鼠标点击在本预算下方一行->日常工作->插入行（多次点击生成多行），“编制人”为登录时的账户名，输入“预算编号”后，可自动生成“生产令号”、“项目名称”、“序号”。
[此贴子已经被作者于2019/9/25 10:15:03编辑过]
-- 发布时间：2019/9/25 10:16:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:辅机生产采购管理系统.rar |
-- 发布时间：2019/9/25 10:32:00
--
1、调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，自己定位一下错误代码
2、按什么步骤测试出错？
-- 发布时间：2019/9/25 11:29:00
--
就是增加行的时候，点击“备注”，或是插入行后输入“预算编号”就会报错
-- 发布时间：2019/9/25 11:39:00
--
既然是输入"预算编号"出错，那就在代码中找和"预算编号"有关的代码
Case "预算编号"
Dim pdr = dr.GetParentRow("预算清单")
If pdr("事业部_批准") = False Then
dr("增加采购") = Nothing
Else
dr("增加采购") = True
End If
End Select
改为
Case "预算编号"
Dim pdr = dr.GetParentRow("预算清单")
If pdr IsNot Nothing Then
If pdr("事业部_批准") = False Then
dr("增加采购") = Nothing
Else
dr("增加采购") = True
End If
End If
End Select
[此贴子已经被作者于2019/9/25 11:40:03编辑过]
-- 发布时间：2019/9/25 11:59:00
--
找到原因了