以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  调用的目标发生了异常。 未将对象引用设置到对象的实例。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179738)

--  作者:johnny8306
--  发布时间:2022/9/6 15:48:00
--  调用的目标发生了异常。 未将对象引用设置到对象的实例。
各位老师好!我是一个初学者,使用过程中遇到了问题,麻烦老师帮助解答,谢谢

在表“prepay”录入数据,系统提示错误如下:


此主题相关图片如下:借支统计错误提示.png
按此在新窗口浏览图片

.NET Framework 版本:4.0.30319.42000

Foxtable 版本:2022.8.18.1

错误所在事件:表,prepayDataColChanged

详细错误信息:

调用的目标发生了异常。

未将对象引用设置到对象的实例。

 

 

 

表事件

 

prepay_DataColChanged

 

If e.DataCol.Name = "预付款" Then

    Dim pr As DataRow

    pr = DataTables("借支统计").Find("ID = \'" & e.DataRow("ID") & "\'")

    If pr IsNot Nothing Then

        pr("预付款") = pr("预付款") + e.NewValue - e.OldValue

    End If

End If

[此贴子已经被作者于2022/9/6 19:52:00编辑过]

--  作者:有点蓝
--  发布时间:2022/9/6 16:01:00
--  
1、关闭退出项目,删除项目所在的文件夹里的bin目录,然后重启项目试试。
2、调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm,看哪一句代码出错

--  作者:johnny8306
--  发布时间:2022/9/6 16:24:00
--  
老师,删除bin文件夹后出现

图片点击可在新窗口打开查看此主题相关图片如下:错误2.png
图片点击可在新窗口打开查看

--  作者:johnny8306
--  发布时间:2022/9/6 16:25:00
--  
运行命令调试后出现

图片点击可在新窗口打开查看此主题相关图片如下:错误3.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/9/6 16:30:00
--  
3楼的提示应该是表达式列和被引用列的类型不一致,或者列名不正确

4路的代码只能在表事件里执行,请放到表事件里调试

--  作者:johnny8306
--  发布时间:2022/9/6 16:45:00
--  
老师,还是提示同样的错误
[此贴子已经被作者于2022/9/6 16:45:44编辑过]

--  作者:johnny8306
--  发布时间:2022/9/6 16:46:00
--  
老师,还是提示同样的错误

--  作者:johnny8306
--  发布时间:2022/9/6 17:01:00
--  
3楼 这个问题,我删除了关联的表达式,因为在另外借款表里面有不同的时间段产生的费用,导致具有多个父行,删除表达式就好了
[此贴子已经被作者于2022/9/6 17:02:33编辑过]

--  作者:有点蓝
--  发布时间:2022/9/6 17:04:00
--  
找不到问题就上传实例吧
--  作者:johnny8306
--  发布时间:2022/9/6 17:10:00
--  

项目事件

 

计划管理

 

表事件

 

prepay_DataColChanged

 

If e.DataCol.Name = "预付款" Then

    Dim pr As DataRow

    pr = DataTables("借支统计").Find("ID = \'" & e.DataRow("ID") & "\'")

    If pr IsNot Nothing Then

        pr("预付款") = pr("预付款") + e.NewValue - e.OldValue

    End If

End If

 

窗口表事件

 

窗口与控件事件

 

7.16-7.31工资表_Button1_Click

 

Tables("工资表1").AddNew()

 

7.16-7.31工资表_Button2_Click

 

Tables("工资表1").Current.Delete

 

7.16-7.31工资表_Button3_Click

 

With Tables("工资表1")

    .Position = .Position - 1

End With

 

7.16-7.31工资表_Button4_Click

 

DataTables("工资表1").Save()

 

7.16-7.31工资表_Button5_Click

 

Tables("工资表1").Position = 0

 

7.16-7.31工资表_Button6_Click

 

With Tables("工资表1")

    .Position = .Rows.Count - 1

End With

 

7.16-7.31工资表_Button7_Click

 

With Tables("工资表1")

    .Position = .Position - 1

End With

 

7.16-7.31工资表_Button8_Click

 

With Tables("工资表1")

    .Position = .Position + 1

End With

 

自定义函数

 

全局代码

 

Default

 

 

 

菜单事件