Foxtable(狐表) → 用户栏目 → 专家坐堂 → 错误在哪


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

主题：错误在哪
帅哥哟，离线，有人找我吗？
shiliang
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		错误在哪  发帖心情 Post By：2016/1/19 16:15:00 [只看该作者]

把入库单复制到库存表的代码，错误在哪？谢谢！！


Select Case e.DataCol.Name
    Case "入库单号","物料代码"
        Dim rkdhs As List (of DataRow)
        rkdhs = DataTables("库存材料表").Select("[入库单号] = '" & e.NewValue & "' And [物料代码] = '" & e.NewValue & "'")
        For Each rkdh As DataRow In rkdhs
            If rkdhs Is Nothing Then
                If e.DataRow("记账") = True Then
                    Dim nma() As String = {"仓库代码","仓库名称","入库日期","物料代码","物料名称","规格型号","常用计量单位","材料单价","入库数量","入库金额","入库单号"} 'A表数据来源列
                    Dim nmb() As String = {"仓库代码","仓库名称","入库日期","物料代码","物料名称","规格型号","常用计量单位","材料单价","入库数量","入库金额","入库单号"} 'B表数据接收列
                    Dim dr As DataRow = DataTables("库存材料表").AddNew()
                    For i As Integer = 0 To nma.Length - 1
                        dr(nmb(i)) = e.DataRow(nma(i))
                    Next
                End If
            End If
        Next
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/19 16:16:00 [只看该作者]

rkdhs = DataTables("库存材料表").Select("[入库单号] = '" & e.Datarow("入库单号") & "' And [物料代码] = '" & e.DataRow("物料代码") & "'")

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


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2016/1/19 16:24:00 [只看该作者]

还是不行，不复制数据

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/19 16:25:00 [只看该作者]

Select Case e.DataCol.Name
    Case "入库单号","物料代码"
        Dim rkdhs As List (of DataRow)
        rkdhs = DataTables("入库单").Select("[入库单号] = '" & e.Datarow("入库单号") & "' And [物料代码] = '" & e.DataRow("物料代码") & "'")
        For Each rkdh As DataRow In rkdhs
            If rkdhs Is Nothing Then
                If e.DataRow("记账") = True Then
                    Dim nma() As String = {"仓库代码","仓库名称","入库日期","物料代码","物料名称","规格型号","常用计量单位","材料单价","入库数量","入库金额","入库单号"} 'A表数据来源列
                    Dim nmb() As String = {"仓库代码","仓库名称","入库日期","物料代码","物料名称","规格型号","常用计量单位","材料单价","入库数量","入库金额","入库单号"} 'B表数据接收列
                    Dim dr As DataRow = DataTables("库存材料表").AddNew()
                    For i As Integer = 0 To nma.Length - 1
                        dr(nmb(i)) = e.DataRow(nma(i))
                    Next
                End If
            End If
        Next
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/19 16:26:00 [只看该作者]

加上msgbox，看是否进入触发了代码。

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


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2016/1/19 16:36:00 [只看该作者]

可以复制，但重复复制，如何加代码禁止重复？

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/19 16:50:00 [只看该作者]

Select Case e.DataCol.Name
    Case "入库单号","物料代码"
        Dim rkdhs As List (of DataRow)
        rkdhs = DataTables("入库单").Select("[入库单号] = '" & e.DataRow("入库单号") & "' And [物料代码] = '" & e.DataRow("物料代码") & "'")
        For Each rkdh As DataRow In rkdhs
           
            If rkdh ("记账") = True Then
                Dim nma() As String = {"仓库代码","仓库名称","入库日期","物料代码","物料名称","规格型号","常用计量单位","材料单价","入库数量","入库金额","入库单号"} 'A表数据来源列
                Dim nmb() As String = {"仓库代码","仓库名称","入库日期","物料代码","物料名称","规格型号","常用计量单位","材料单价","入库数量","入库金额","入库单号"} 'B表数据接收列
                Dim dr As DataRow = DataTables("库存材料表").find("[入库单号] = '" & e.DataRow("入库单号") & "' And [物料代码] = '" & e.DataRow("物料代码") & "'")
                If dr Is Nothing Then
                    dr = DataTables("库存材料表").addnew
                End If
                For i As Integer = 0 To nma.Length - 1
                    dr(nmb(i)) = rkdh (nma(i))
                Next
            End If
        Next
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
shiliang
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2016/1/19 16:53:00 [只看该作者]

非常感谢！！！

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


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2016/1/20 8:23:00 [只看该作者]

不能输入重复物料代码，代码如何修改，谢谢！
Select Case e.DataCol.Name
    Case "物料代码"
        Dim rkdhs As List (of DataRow)
        rkdhs = DataTables("材料入库明细表").Select("[入库单号] = '" & e.DataRow("入库单号") & "' And [物料代码] = '" & e.DataRow("物料代码") & "'")
        For Each rkdh As DataRow In rkdhs
            If rkdhs IsNot Nothing Then
                If  rkdh(e.DataRow("物料代码"))= e.DataRow("物料代码") Then
                    msgbox("同一入库单物料代码不能重复")
                    e.Cancel = True
                End If
            End If
        Next
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/20 9:35:00 [只看该作者]

DataColChanged

 

Select Case e.DataCol.Name
    Case "物料代码","入库单号"
        Dim fdr As DataRow =  DataTables("材料入库明细表").find("[入库单号] = '" & e.DataRow("入库单号") & "' And [物料代码] = '" & e.DataRow("物料代码") & "'")
        If fdr IsNot Nothing Then
            msgbox("同一入库单物料代码不能重复")
            e.DataRow(e.DataCol.name) = Nothing
        End If
End Select
 回到顶部
总数 22 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询