Foxtable(狐表) → 用户栏目 → 专家坐堂 → 批量录入


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

主题：批量录入
帅哥哟，离线，有人找我吗？
实话实说
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00 		批量录入  发帖心情 Post By：2021/4/25 17:42:00 [显示全部帖子]

下面代码是批量录入发货明细，通过下拉订单单号录入订单数据。为了与注表对应，有必要加个判断，即订单单号的后面数字等于发货单号的后面数字时（比如XS190308=FA190308）才允许批量录入。如何加这个判断？

Dim drs As List(Of DataRow) = DataTables("销售订单明细").Select ("订单单号 = " & "'" & e.form.controls("combobox1").text & "'" )
If Tables("销售发货.销售发货明细").AllowEdit = True Then

For Each dr As DataRow In drs
    Dim ndr As Row = Tables("销售发货.销售发货明细").addnew
    ndr("订单单号")= dr("订单单号")
    ndr("产品代码")= dr("产品代码")
    ndr("客户代码")= dr("客户代码")
    ndr("颜色")= dr("颜色")
    ndr("单位")= dr("单位")
    ndr("单价")= dr("单价")
    ndr("订单数量")= dr("订单数量")
    ndr("发货数量")= dr("订单数量")
    'ndr("包装")= dr("包装")
    ndr("备注")= dr("备注")
Next

Else
    e.Cancel = True '取消动作
End If

图片点击可在新窗口打开查看此主题相关图片如下：snap1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2021/4/26 7:50:00 [显示全部帖子]

不是上面的意思，大概是下面红色代码的意思，但代码错误。

Dim drs As List(Of DataRow) = DataTables("销售订单明细").Select("订单单号 = " & "'" & e.form.controls("combobox1").text & "'" )
If Tables("销售发货.销售发货明细").AllowEdit = True Then

For Each dr As DataRow In drs
    If e.DataRow("substring(订单单号,3,7") <> e.DataRow("substring(发货单号,3,7") 
        MessageBox.Show("订单单号不对!", "提示")
        Return
    Else
    Dim ndr As Row = Tables("销售发货.销售发货明细").addnew
    ndr("订单单号")= dr("订单单号")
    ndr("产品代码")= dr("产品代码")
    ndr("客户代码")= dr("客户代码")
    ndr("颜色")= dr("颜色")
    ndr("单位")= dr("单位")
    ndr("单价")= dr("单价")
    ndr("订单数量")= dr("订单数量")
    ndr("发货数量")= dr("订单数量")
    'ndr("包装")= dr("包装")
    ndr("备注")= dr("备注")
    End If
Next

Else
    e.Cancel = True '取消动作
End If
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2021/6/22 14:17:00 [显示全部帖子]

以下时满足1楼要求的代码。现在还有个需求，就是不能重复录入，即发货单号、产品代码、颜色不能同时重复。貌似代码2
代码1
Dim drs As List(Of DataRow) = DataTables("销售订单明细").Select("订单单号 = " & "'" & e.form.controls("combobox1").text & "'" )
If Tables("销售发货.销售发货明细").AllowEdit = True Then

For Each dr As DataRow In drs
    If Tables("销售发货.销售发货明细").current("订单单号").substring(2) <> Tables("销售发货.销售发货明细").current("发货单号").substring(2)
        Tables("销售发货.销售发货明细").Current.Delete
        MessageBox.Show("订单单号不对!", "提示")
        Return
    Else
        Dim ndr As Row = Tables("销售发货.销售发货明细").addnew 
        ndr("订单单号")= dr("订单单号")
        ndr("产品代码")= dr("产品代码")
        ndr("客户代码")= dr("客户代码")
        ndr("颜色")= dr("颜色")
        ndr("单位")= dr("单位")
        ndr("单价")= dr("单价")
        ndr("订单数量")= dr("订单数量")
        ndr("发货数量")= dr("订单数量")
        ndr("备注")= dr("备注")
    End If
Next

Else
    e.Cancel = True '取消动作
End If

代码2
'控制多列不重复
Dim fh As String
Dim cp As String
Dim ys As String
Dim dr As DataRow = e.DataRow
    If Tables("销售发货.销售发货明细").Find("发货单号 = '" & fh & "' And 产品代码 = '" & cp & "'And 颜色 = '" & ys & "'") IsNot Nothing Then
        MessageBox.Show("不要重复录入!","提示")
        'e.Cancel = True
        Return
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2021/6/22 14:48:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：snap1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2021/6/22 15:13:00 [显示全部帖子]

我再看看
[此贴子已经被作者于2021/6/22 15:14:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2021/6/22 15:23:00 [显示全部帖子]

销售订单明细中是没有发货单号，好像不是这个问题，将发货单号该为订单单号，又提示产品代码不属于销售订单明细表。代码附上

Dim drs As List(Of DataRow) = DataTables("销售订单明细").Select("订单单号 = " & "'" & e.form.controls("combobox1").text & "'" )
If Tables("销售发货.销售发货明细").AllowEdit = True Then

For Each dr As DataRow In drs
    'If DataTables("销售发货明细").Find("发货单号 = '" & dr("发货单号") & "' And 产品代码 = '" & dr("产品代码 ") & "'And 颜色 = '" & dr("颜色") & "'") IsNot Nothing Then
    If DataTables("销售发货明细").Find("订单单号 = '" & dr("订单单号") & "' And 产品代码 = '" & dr("产品代码 ") & "'And 颜色 = '" & dr("颜色") & "'") IsNot Nothing Then
        MessageBox.Show("不要重复录入!","提示")
        Return
    End If

    If Tables("销售发货.销售发货明细").current("订单单号").substring(2) <> Tables("销售发货.销售发货明细").current("发货单号").substring(2)
        Tables("销售发货.销售发货明细").Current.Delete
        MessageBox.Show("订单单号不对!", "提示")
        Return
    Else
        Dim ndr As Row = Tables("销售发货.销售发货明细").addnew 
        ndr("订单单号")= dr("订单单号")
        ndr("产品代码")= dr("产品代码")
        ndr("客户代码")= dr("客户代码")
        ndr("颜色")= dr("颜色")
        ndr("单位")= dr("单位")
        ndr("单价")= dr("单价")
        ndr("订单数量")= dr("订单数量")
        ndr("发货数量")= dr("订单数量")
        ndr("备注")= dr("备注")
    End If
Next

Else
    e.Cancel = True '取消动作
End If
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2021/6/22 15:56:00 [显示全部帖子]

还是有2条重复记录（第1次选择录入6条，第2次再选该订单号有2条重复）

图片点击可在新窗口打开查看此主题相关图片如下：snap1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2021/6/22 18:26:00 [显示全部帖子]

3楼代码2暂不讨论，代码1还是存在问题

图片点击可在新窗口打开查看此主题相关图片如下：snap1.jpg
图片点击可在新窗口打开查看
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06055 秒, 5 次数据查询