调用目标发生异常原因不明 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 调用目标发生异常原因不明

共有1878人关注过本帖树形打印复制链接主题：调用目标发生异常原因不明

zhangning

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

调用目标发生异常原因不明 发帖心情

Post By：2017/7/19 15:38:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:材料不足预测监控.table

老师，“组装入库明细”和“组装日历缺数预测”都发生 “调用目标发生异常”，我确认不出错在哪里，

请老师帮看看，谢谢！

zhangning

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2017/7/20 10:22:00 [显示全部帖子]

按照老师的方法，解决了，

老师，还有一个问题，如下代码：

Select Case e.DataCol.Name

Case "商品名"

Dim dr15 As DataRow = e.DataRow

Dim pr15 As DataRow

Dim filter As String

filter = "商品名 = '" & dr15("商品名") & "'"

pr15 = DataTables("组装日计划").Find(filter)

If pr15 IsNot Nothing

dr15("八月1日") = dr15("实时在库台数") - pr15("八月1日")

dr15("八月2日") = dr15("实时在库台数") - pr15("八月1日") - pr15("八月2日")

dr15("八月3日") = dr15("实时在库台数") - pr15("八月1日") - pr15("八月2日") - pr15("八月3日")

Else

dr15("八月1日") = Nothing

dr15("八月2日") = Nothing

dr15("八月3日") = Nothing

End If

End Select

如粗体部分，笨办法是依次类推，要写到8月31日，就需要减去1日到31日的累计，

请问老师，有没有简便的方法？

zhangning

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2017/7/20 11:22:00 [显示全部帖子]

老师，如图：

此主题相关图片如下：a3.png

用的以下代码：

Select Case e.DataCol.Name

Case "商品名","部品ID"

Dim dr15 As DataRow = e.DataRow

Dim pr15 As DataRow

Dim filter As String

filter = "商品名 = '" & dr15("商品名") & "'"

pr15 = DataTables("组装日计划").Find(filter)

If pr15 IsNot Nothing

Dim sum As Double = dr15("实时在库台数")

For i As Integer = 1 To 31

dr15("日" & i) = sum - pr15("日" & i)

sum = dr15("日" & i)

Else

For i As Integer = 1 To 31

dr15("日" & i) = Nothing

End If

End Select

想要的时，下边只要“部品ID”不为空（有内容）的，后边的“8/1"等均要有内容，

请老师帮看看，怎么改？

下一主题 >> << 上一主题

主题：调用目标发生异常 原因不明

主题：调用目标发生异常原因不明