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


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

主题：错误在哪
帅哥哟，离线，有人找我吗？
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
 回到顶部
帅哥哟，离线，有人找我吗？
shiliang
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

还是不行，不复制数据

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


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

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

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


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

非常感谢！！！

 回到顶部
帅哥哟，离线，有人找我吗？
shiliang
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
shiliang
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2016/1/20 10:04:00 [显示全部帖子]

物料代码和入库单号只能有一列输入数据了

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


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2016/1/20 10:36:00 [显示全部帖子]

还是不行，只能输入一列

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


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2016/1/20 10:56:00 [显示全部帖子]

显示上除了附件，我看不到
 回到顶部
帅哥哟，离线，有人找我吗？
shiliang
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2016/1/20 11:34:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:hjkscbhs.zip
 回到顶部
帅哥哟，离线，有人找我吗？
shiliang
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2016/1/20 14:17:00 [显示全部帖子]

谢谢！

 回到顶部
总数 13 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.04688 秒, 6 次数据查询