Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码没有实现想要的效果


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

主题：[求助]代码没有实现想要的效果
帅哥哟，离线，有人找我吗？
huhu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		[求助]代码没有实现想要的效果  发帖心情 Post By：2016/1/8 10:14:00 [显示全部帖子]

For Each ndr As DataRow In DataTables("扫描配货明细").DataRows
    Dim ddr3 As DataRow = DataTables("扫描配货明细统计").Find("工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "'  and 入库单号 = '" & ndr("入库单号") & "'")
    If ddr3 IsNot Nothing Then
        ddr3("预入库数量") = ddr3("预入库数量") + 1
    Else
        Dim ddr4 As DataRow = DataTables("扫描配货明细统计").AddNew()
        ddr4("工单号") = ndr("工单号")
        ddr4("行号") = ndr("行号")
        ddr4("预入库数量") = 1
        ddr4("入库单号") = rkdh.text
        ddr4("产品态") = ndr("产品态")
        ddr4("产品名称") = ndr("产品名称")
        ddr4("物料编码") = ndr("物料编码")
        ddr4("库位类别") = ndr("库位类别")
    End If
    Dim ddr2 As DataRow = DataTables("工单明细").Find("工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "' and 入库单号 = '" & ndr("入库单号") & "' ")
    If ddr2 IsNot Nothing Then
        ddr2("预入库数量") = ddr2("预入库数量") + 1
        ddr2("生产结束扫描日期") = Date.now
    Else
        Dim ddr1 As DataRow = DataTables("工单明细").AddNew()
        ddr1("工单号") = ndr("工单号")
        ddr1("行号") = ndr("行号")
        ddr1("预入库数量") = 1
        ddr1("生产完成日期") = ndr("生产完成日期")
        ddr1("预入库日期") = ndr("预计入库日期")
        ddr1("入库单号") = rkdh.text
        ddr1("产品态") = ndr("产品态")
        ddr1("产品名称") = ndr("产品名称")
        ddr1("物料编码") = ndr("物料编码")
        ddr1("库位类别") = ndr("库位类别")
        ddr1("生产结束扫描日期") = Date.now
    End If  
Next

我想要的是在扫描配货明细表每增加一行。然后在工单明细就进行自动统计，根据工单号，行号，入库单号是否都匹配。在工单明细没有找到，那么直接增加一行。如果找到，预入库数量加一。
现在的效果是都是新增一行。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/1/8 11:12:00 [显示全部帖子]

弹出看来一下，条件是对的。
发现问题是，首次执行这段代码，那么扫描配货明细表首次增加了4行数据。但因为在工单明细首次没有与条件匹配的数据，所以在工单明细也同样增加了4行数据。
但我想要的应该只增加2行。毕竟这4行数据有匹配的2行。但我现在不知道怎么改。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/1/12 22:05:00 [显示全部帖子]

现在才发例子上来，可见最近其他事情有多忙。
麻烦大红袍老师给看看怎么改。多谢。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/1/12 22:33:00 [显示全部帖子]

是哪个的datacolchange？扫描配货明细？e.DataRow.Delete不是已经删掉了么，再用e.datarow应该有问题吧。

 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/1/12 22:34:00 [显示全部帖子]

还有请看一下，窗体的生成入库单按钮的代码，这个是有问题的。

 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/1/12 23:12:00 [显示全部帖子]

.NET Framework 版本：2.0.50727.8009
Foxtable 版本：2015.12.22.1
错误所在事件：表，扫描配货明细，DataColChanged
详细错误信息：
调用的目标发生了异常。
此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/1/12 23:37:00 [显示全部帖子]

另外扫描配货明细统计表也是希望按照工单号和行号统计数量，而不是一行一行的addnew。

 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/1/13 12:17:00 [显示全部帖子]

生成入库单按钮代码：
Dim d As Date = Date.Today
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim bh As String = Format(d,"yyyyMM") '生成编号的前6位,4位年,2位月.
Dim max As String
Dim idx As Integer
max = DataTables("配货单").Compute("Max(入库单号)","入库单号 like  '*" & bh & "*'")
If max > "" Then '如果存在最大编号
    idx = CInt(max.Substring(bh.length + 2, 3)) + 1 '获得最大编号的后三位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If

For Each r As DataRow In DataTables("扫描配货明细").DataRows
    Dim drs As List(of DataRow) = DataTables("配货单").Select("SN = '" & r("SN") & "'")
    If drs.count >0  Then
        For Each dr As DataRow In drs
            dr("入库单号") = "RK" &  bh & Format(idx,"000")
            dr("预入库单号") = "RK" &  bh & Format(idx,"000")
            dr.save
        Next
    End If
Next
Dim rkdh As WinForm.TextBox = e.Form.Controls("TextBox1")
rkdh.text = "RK" &  bh & Format(idx,"000")

DataTables("扫描配货明细统计").DataRows.Clear
For Each ndr As DataRow In DataTables("扫描配货明细").DataRows
    Dim ddr3 As DataRow = DataTables("扫描配货明细统计").SQLFind("工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "'  and 入库单号 = '" & ndr("入库单号") & "'")
    If ddr3 IsNot Nothing Then
        ddr3("预入库数量") = DataTables("扫描配货明细统计").compute("count(工单号)", "工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "' and 入库单号 = '" & ndr("入库单号") & "' ")
    Else
        Dim ddr4 As DataRow = DataTables("扫描配货明细统计").AddNew()
        ddr4("工单号") = ndr("工单号")
        ddr4("行号") = ndr("行号")
        ddr4("预入库数量") = 1
        ddr4("入库单号") = rkdh.text
        ddr4("产品态") = ndr("产品态")
        ddr4("产品名称") = ndr("产品名称")
        ddr4("物料编码") = ndr("物料编码")
        ddr4("库位类别") = ndr("库位类别")
    End If
    Dim ddr2 As DataRow = DataTables("工单明细").SQLFind("工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "' and 入库单号 = '" & ndr("入库单号") & "' ")
    If ddr2 IsNot Nothing Then
        ddr2("预入库数量") = DataTables("工单明细").compute("count(工单号)", "工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "' and 入库单号 = '" & ndr("入库单号") & "' ")
        ddr2("生产结束扫描日期") = Date.now
    Else
        Dim ddr1 As DataRow = DataTables("工单明细").AddNew()
        ddr1("工单号") = ndr("工单号")
        ddr1("行号") = ndr("行号")
        ddr1("预入库数量") = 1
        ddr1("生产完成日期") = ndr("生产完成日期")
        ddr1("预入库日期") = ndr("预计入库日期")
        ddr1("入库单号") = rkdh.text 
        ddr1("产品态") = ndr("产品态")
        ddr1("产品名称") = ndr("产品名称")
        ddr1("物料编码") = ndr("物料编码")
        ddr1("库位类别") = ndr("库位类别")
        ddr1("生产结束扫描日期") = Date.now
    End If
Next
DataTables("工单明细").Save
For Each ddr6 As DataRow In DataTables("工单明细").DataRows
    Dim ddr5 As DataRow = DataTables("预入库单").Find ("预入库单号 = '" & ddr6("入库单号") & "'")
    If ddr5 IsNot Nothing Then
        Dim sum As Integer
        sum = DataTables("工单明细").Compute("sum(预入库数量)","入库单号 = '" & ddr5("预入库单号") & "' ")
        ddr5("总数量") = sum
    Else
        Dim dr As DataRow = DataTables("预入库单").AddNew()
        dr("预入库单号") = ddr6("入库单号")
        dr("总数量") = DataTables("工单明细").Compute("sum(预入库数量)","入库单号 = '" & dr("预入库单号") & "' ")
    End If
Next
Dim shhs As WinForm.Button = Forms("库存管理界面").Controls("收货核实")
Dim sum1 As Integer
sum1 = DataTables("预入库单").Compute("count(预入库单号)","标志 = false")
shhs.text = "收货核实(" & sum1 & ")"
Dim sum2 As Integer


图片点击可在新窗口打开查看此主题相关图片如下：扫描配货统计.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：工单明细.png
图片点击可在新窗口打开查看
都是分行增加的。比如都存在工单号OD7，行号7，合计预入库数量是2，都存在工单号OD8，行号8，合计预入库数量应该是2.一共应该出现2行，而非现在的4行。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/1/17 19:04:00 [显示全部帖子]

回复大红袍能否抽时间看看附件，验证一下到底是哪里出问题了？
我增加保存行且都改为SQL查询，可是还是老效果。拜托了。
Dim d As Date = Date.Today
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim bh As String = Format(d,"yyyyMM") '生成编号的前6位,4位年,2位月.
Dim max As String
Dim idx As Integer
max = DataTables("配货单").SQLCompute("Max(入库单号)","入库单号 like  '*" & bh & "*'")
If max > "" Then '如果存在最大编号
    idx = CInt(max.Substring(bh.length + 2, 3)) + 1 '获得最大编号的后三位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If

For Each r As DataRow In DataTables("扫描配货明细").DataRows
    Dim drs As List(of DataRow) = DataTables("配货单").SQLSelect("SN = '" & r("SN") & "'")
    If drs.count >0  Then
        For Each dr As DataRow In drs
            dr("入库单号") = "RK" &  bh & Format(idx,"000")
            dr("预入库单号") = "RK" &  bh & Format(idx,"000")
            dr.save
        Next
    End If
Next
Dim rkdh As WinForm.TextBox = e.Form.Controls("TextBox1")
rkdh.text = "RK" &  bh & Format(idx,"000")

DataTables("扫描配货明细统计").DataRows.Clear
For Each ndr As DataRow In DataTables("扫描配货明细").DataRows
    Dim ddr3 As DataRow = DataTables("扫描配货明细统计").SQLFind("工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "'  and 入库单号 = '" & ndr("入库单号") & "'")
    If ddr3 IsNot Nothing Then
        ddr3("预入库数量") = DataTables("扫描配货明细统计").SQLCompute("count(工单号)", "工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "' and 入库单号 = '" & ndr("入库单号") & "' ")
        ddr3.save
    Else
        Dim ddr4 As DataRow = DataTables("扫描配货明细统计").AddNew()
        ddr4("工单号") = ndr("工单号")
        ddr4("行号") = ndr("行号")
        ddr4("预入库数量") = 1
        ddr4("入库单号") = rkdh.text
        ddr4("产品态") = ndr("产品态")
        ddr4("产品名称") = ndr("产品名称")
        ddr4("物料编码") = ndr("物料编码")
        ddr4("库位类别") = ndr("库位类别")
        ddr4.save
    End If
    Dim ddr2 As DataRow = DataTables("工单明细").SQLFind("工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "' and 入库单号 = '" & ndr("入库单号") & "' ")
    If ddr2 IsNot Nothing Then
        ddr2("预入库数量") = DataTables("工单明细").SQLCompute("count(工单号)", "工单号 = '" & ndr("工单号") & "' and 行号 = '" & ndr("行号") & "' and 入库单号 = '" & ndr("入库单号") & "' ")
        ddr2("生产结束扫描日期") = Date.now
        ddr2.Save
    Else
        Dim ddr1 As DataRow = DataTables("工单明细").AddNew()
        ddr1("工单号") = ndr("工单号")
        ddr1("行号") = ndr("行号")
        ddr1("预入库数量") = 1
        ddr1("生产完成日期") = ndr("生产完成日期")
        ddr1("预入库日期") = ndr("预计入库日期")
        ddr1("入库单号") = rkdh.text
        ddr1("产品态") = ndr("产品态")
        ddr1("产品名称") = ndr("产品名称")
        ddr1("物料编码") = ndr("物料编码")
        ddr1("库位类别") = ndr("库位类别")
        ddr1("生产结束扫描日期") = Date.now
        ddr1.Save
    End If
Next
DataTables("工单明细").Save
For Each ddr6 As DataRow In DataTables("工单明细").DataRows
    Dim ddr5 As DataRow = DataTables("预入库单").SQLFind ("预入库单号 = '" & ddr6("入库单号") & "'")
    If ddr5 IsNot Nothing Then
        Dim sum As Integer
        sum = DataTables("工单明细").SQLCompute("sum(预入库数量)","入库单号 = '" & ddr5("预入库单号") & "' ")
        ddr5("总数量") = sum
        ddr5.save
    Else
        Dim dr As DataRow = DataTables("预入库单").AddNew()
        dr("预入库单号") = ddr6("入库单号")
        dr("总数量") = DataTables("工单明细").SQLCompute("sum(预入库数量)","入库单号 = '" & dr("预入库单号") & "' ")
        dr.save
    End If
Next
Dim shhs As WinForm.Button = Forms("库存管理界面").Controls("收货核实")
Dim sum1 As Integer
sum1 = DataTables("预入库单").SQLCompute("count(预入库单号)","标志 = 'false'")
shhs.text = "收货核实(" & sum1 & ")"
Dim sum2 As Integer
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/1/17 20:08:00 [显示全部帖子]

扫描配货明细统计现在是2行数据了，但是预入库数量是1，不是2.
图片点击可在新窗口打开查看此主题相关图片如下：工单明细.png
图片点击可在新窗口打开查看
工单明细仍然是老效果，4行数据。
图片点击可在新窗口打开查看此主题相关图片如下：扫描配货明细统计.png
图片点击可在新窗口打开查看
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 6 次数据查询