Foxtable(狐表)用户栏目专家坐堂 → 增加行


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

主题:增加行

美女呀,离线,留言给我吧!
13775189031
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:807 积分:5579 威望:0 精华:0 注册:2017/12/19 14:46:00
增加行  发帖心情 Post By: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编辑过]

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:807 积分:5579 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2019/9/25 10:16:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:辅机生产采购管理系统.rar


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/25 10:32:00 [只看该作者]

1、调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm,自己定位一下错误代码

2、按什么步骤测试出错?

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:807 积分:5579 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2019/9/25 11:29:00 [只看该作者]

就是增加行的时候,点击“备注”,或是插入行后输入“预算编号”就会报错

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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编辑过]

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:807 积分:5579 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2019/9/25 11:59:00 [只看该作者]

找到原因了


 回到顶部