- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]调用目标异常 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=183621)
-- 发布时间：2022/11/9 15:19:00
-- [求助]调用目标异常
此主题相关图片如下：显示7.png
原因我已经知道了，就是日常统计表里面的数据是从这个表里自动生成的，收发类别为加工进货和加工出货的时候，没有错误提示。如果收发类别为其他的，就会有错误提示，该如何解决呢。
-- 发布时间：2022/11/9 15:25:00
--
调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错
-- 发布时间：2022/11/9 15:58:00
--
Select Case e.DataCol.Name
Case "收发类别", "过磅日期", "货物名称"
If e.DataRow.IsNull("过磅日期") OrElse e.DataRow.IsNull("货物名称") Then
Else
If e.DataRow("收发类别").Contains("加工") Then
Dim pr As DataRow
Dim Filter As String = "[货物名称] = \'" & e.DataRow("货物名称") & "\' and 日期=#" & e.DataRow("过磅日期") & "#"
pr = DataTables("日常统计表").Find(Filter)
If pr Is Nothing Then
pr = DataTables("日常统计表").addnew
pr("货物名称") = e.DataRow("货物名称")
pr("日期") = e.DataRow("过磅日期")
End If
End If
End If
Case "实收数", "车牌号", "原发数"
Dim pr As DataRow
If e.DataRow("收发类别").Contains("加工") Then
Dim Filter As String = "[货物名称] = \'" & e.DataRow("货物名称") & "\' and 日期=#" & e.DataRow("过磅日期") & "#"
If pr Is Nothing Then
pr = DataTables("日常统计表").addnew
pr("货物名称") = e.DataRow("货物名称")
pr("日期") = e.DataRow("过磅日期")
End If
End If
DataTables("日常统计表").DataCols("货物名称").RaiseDataColChanged(pr)
End Select
-- 发布时间：2022/11/9 15:59:00
--
蓝版，显示这段代码有问题，麻烦帮忙看一看
-- 发布时间：2022/11/9 16:03:00
--
调试看哪一句代码出错