Foxtable(狐表)用户栏目专家坐堂 → [求助]调用目标异常


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

主题:[求助]调用目标异常

帅哥哟,离线,有人找我吗?
bigeng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:834 积分:5704 威望:0 精华:0 注册:2014/5/20 17:56:00
[求助]调用目标异常  发帖心情 Post By:2022/11/9 15:19:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:显示7.png
图片点击可在新窗口打开查看
原因我已经知道了,就是日常统计表里面的数据是从这个表里自动生成的,收发类别为加工进货和加工出货的时候,没有错误提示。如果收发类别为其他的,就会有错误提示,该如何解决呢。

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


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

调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm,看哪一句代码出错

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


加好友 发短信
等级:四尾狐 帖子:834 积分:5704 威望:0 精华:0 注册:2014/5/20 17:56:00
  发帖心情 Post By: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

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


加好友 发短信
等级:四尾狐 帖子:834 积分:5704 威望:0 精华:0 注册:2014/5/20 17:56:00
  发帖心情 Post By:2022/11/9 15:59:00 [只看该作者]

蓝版,显示这段代码有问题,麻烦帮忙看一看

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


加好友 发短信
等级:超级版主 帖子:106097 积分:539590 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/9 16:03:00 [只看该作者]

调试看哪一句代码出错

 回到顶部