Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]增加行出现在第一行


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

主题：[求助]增加行出现在第一行
帅哥哟，离线，有人找我吗？
huhu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		[求助]增加行出现在第一行  发帖心情 Post By：2015/11/30 11:38:00 [显示全部帖子]

增加行出现在第一行。
tables（“表A”）.addnew()出现在第一行，光标定位到一个单元格怎么弄来着。
之前会做来着，现在忘了，
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

假如，输入的序列号SN在配货单存在3行，希望待入库也能自动增加3行。----这个如何能做到自动增加3行，且这3行的序列号都一致。
待入库的datacolchange代码如下
If e.DataCol.Name = "SN" Then
    Dim nms() As String = {"数量","物料编码","产品型号","类别","配货单号","工单号","订单号","预入库单号","生产完成日期","预计入库日期"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
        dr = DataTables("配货单").Find("[SN] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            If dr("提示") = "扫描完成" Then
                For Each nm As String In nms
                    e.DataRow(nm) = dr(nm)
                Next
                e.DataRow("提示") = "重复扫描"
                dr("提示") = "扫描完成"
            Else
                For Each nm As String In nms
                    e.DataRow(nm) = dr(nm)
                Next
                If e.DataRow("预入库单号") <> e.DataRow("入库单号")  Then
                    e.DataRow("提示") = "非本入库单物料"
                Else
                    e.DataRow("提示") = "扫描完成"
                    dr("提示") = "扫描完成"
                    e.DataRow("收货结束时间") = Date.now
                End If
            End If
        Else
            e.DataRow("提示") = "序列号不存在"
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If e.DataCol.Name = "SN" Then
    Dim nms() As String = {"数量","物料编码","产品型号","类别","配货单号","工单号","订单号","预入库单号","生产完成日期","预计入库日期"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim drs As List(Of DataRow) = DataTables("配货单").Select("[SN] = '" & e.NewValue & "'")
        If drs.Count > 0 Then
            For Each dr As DataRow In drs
                If dr("提示") = "扫描完成" Then
                    For Each nm As String In nms
                        e.DataRow(nm) = dr(nm)
                    Next
                    e.DataRow("提示") = "重复扫描"
                    dr("提示") = "扫描完成"
                Else
                    For Each nm As String In nms
                        e.DataRow(nm) = dr(nm)
                    Next
                    If e.DataRow("预入库单号") <> e.DataRow("入库单号")  Then
                        e.DataRow("提示") = "非本入库单物料"
                    Else
                        e.DataRow("提示") = "扫描完成"
                        dr("提示") = "扫描完成"
                        e.DataRow("收货结束时间") = Date.now
                    End If
                End If
            Next
        Else
            e.DataRow("提示") = "序列号不存在"
        End If
    End If
End If
这样不能实现自动增加3行数据的效果吧
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If e.DataCol.Name = "SN" Then
    Dim nms() As String = {"数量","物料编码","产品型号","类别","配货单号","工单号","订单号","预入库单号","生产完成日期","预计入库日期"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim drs As List(Of DataRow) = DataTables("配货单").Select("[SN] = '" & e.NewValue & "'")
        If drs.Count > 0 Then
            SystemReady = False
            For Each dr As DataRow In drs
                Dim ndr As DataRow = e.DataTable.AddNew
                If dr("提示") = "扫描完成" Then
                    For Each nm As String In nms
                        e.DataRow(nm) = dr(nm)
                    Next
                    e.DataRow("提示") = "重复扫描"
                    dr("提示") = "扫描完成"
                Else
                    For Each nm As String In nms
                        e.DataRow(nm) = dr(nm)
                    Next
                    If e.DataRow("预入库单号") <> e.DataRow("入库单号")  Then
                        e.DataRow("提示") = "非本入库单物料"
                    Else
                        e.DataRow("提示") = "扫描完成"
                        dr("提示") = "扫描完成"
                        e.DataRow("收货结束时间") = Date.now
                    End If
                End If
            Next
            e.DataRow.Delete
            SystemReady = True
        Else
            e.DataRow("提示") = "序列号不存在"
        End If
    End If
End If
还是没有自动增加行
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

要哭了，死活不能自动增加行啊。

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


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

If e.DataCol.Name = "SN" Then
    Dim nms() As String = {"数量","物料编码","产品型号","类别","配货单号","工单号","订单号","预入库单号","生产完成日期","预计入库日期"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim drs As List(Of DataRow) = DataTables("配货单").Select("[SN] = '" & e.NewValue & "'")
        If drs.Count > 0 Then
            SystemReady = False
            For Each dr As DataRow In drs
                Dim ndr As DataRow = e.DataTable.AddNew
                msgbox(drs.count)----------没弹出
                msgbox(ndr("SN"))----------没弹出
                If dr("提示") = "扫描完成" Then
                    For Each nm As String In nms
                        ndr(nm) = dr(nm)
                    Next
                    ndr("提示") = "重复扫描"
                    dr("提示") = "扫描完成"
                    msgbox("已执行")-----------没弹出
                Else
                    For Each nm As String In nms
                        ndr(nm) = dr(nm)
                    Next
                    If e.DataRow("预入库单号") <> e.DataRow("入库单号")  Then
                        ndr("提示") = "非本入库单物料"
                    Else
                        ndr("提示") = "扫描完成"-----都正常赋值
                        dr("提示") = "扫描完成"-----都正常赋值
                        ndr("收货结束时间") = Date.now
msgbox("已执行")-----------没弹出
                    End If
                End If
            Next
            e.DataRow.Delete
            SystemReady = True
        Else
            e.DataRow("提示") = "序列号不存在"
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If e.DataCol.Name = "SN" Then
    Dim nms() As String = {"数量","物料编码","产品型号","类别","配货单号","工单号","订单号","预入库单号","生产完成日期","预计入库日期"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim drs As List(Of DataRow) = DataTables("配货单").Select("[SN] = '" & e.NewValue & "'")
        If drs.Count > 0 Then
            SystemReady = False
            For Each dr As DataRow In drs
                Dim ndr As DataRow = e.DataTable.AddNew
                msgbox(drs.count)----------没弹出
                msgbox(ndr("SN"))----------没弹出
                If dr("提示") = "扫描完成" Then
                    For Each nm As String In nms
                        ndr(nm) = dr(nm)
                    Next
                    ndr("提示") = "重复扫描"
                    dr("提示") = "扫描完成"
                    msgbox("已执行")-----------没弹出
                Else
                    For Each nm As String In nms
                        ndr(nm) = dr(nm)                      -----都正常赋值，执行过，有正确的结果
                    Next                                  
                    If e.DataRow("预入库单号") <> e.DataRow("入库单号")  Then
                        ndr("提示") = "非本入库单物料"
                    Else
                        ndr("提示") = "扫描完成"-----都正常赋值，执行过，有正确的结果
                        dr("提示") = "扫描完成"-----都正常赋值，执行过，有正确的结果
                        ndr("收货结束时间") = Date.now
msgbox("已执行")-----------没弹出
                    End If
                End If
            Next
            e.DataRow.Delete
            SystemReady = True
        Else
            e.DataRow("提示") = "序列号不存在"
        End If
    End If
End If
肯定触发datacolchange事件了，不然蓝色的代码怎么会有结果，表的各个字段值都从配货单取出来了，是正确的。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

可是蓝色的结果正确啊

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


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

我也挺苦恼的。可是。配货单sn有005共计5行，那么待入库也应该有同样的005数据5行。
可事实是新增行，输入005，各种赋值也赋了，同样在配货单005的第一行返回了“扫描完成”。可是待入库没有自动增加5行数据。仍然是第一行。同样的配货单005其他行也没有返回结果。


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

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


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

搞定了。一句一句调试，找出问题了。达到我要的效果了，多谢大红袍。
If e.DataCol.Name = "SN" Then
    Dim nms() As String = {"SN","数量","物料编码","产品型号","类别","配货单号","工单号","订单号","预入库单号","生产完成日期","预计入库日期"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim drs As List(Of DataRow) = DataTables("配货单").Select("[SN] = '" & e.NewValue & "'")
        msgbox(1)
        If drs.Count > 0 Then
            msgbox(2)
            SystemReady = False
            For Each dr As DataRow In drs
                Dim ndr As DataRow = e.DataTable.AddNew
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(扫描顺序)")                
                If max > "" Then 
                    idx = CInt(max) + 1                     
                Else
                    idx = 1 
                End If
                ndr("扫描顺序") = idx
                ndr("入库单号") = vars("rkdh")
                msgbox(drs.count)
                msgbox(3)
                If dr("提示") = "扫描完成" Then
                    For Each nm As String In nms
                        ndr(nm) = dr(nm)
                    Next
                    ndr("提示") = "重复扫描"
                    dr("提示") = "扫描完成"
                    msgbox("已执行")
                Else
                    msgbox(4)
                    For Each nm As String In nms
                        ndr(nm) = dr(nm)
                    Next
                    msgbox(44)
                    If ndr("预入库单号") <> ndr("入库单号")  Then
                        ndr("提示") = "非本入库单物料"
                        msgbox(ndr("预入库单号"))
                        msgbox(ndr("预入库单号"))
                    Else
                        msgbox(ndr("预入库单号"))
                        msgbox(ndr("预入库单号"))
                        ndr("提示") = "扫描完成"
                        dr("提示") = "扫描完成"
                        ndr("收货结束时间") = Date.now
                        msgbox("已执行")
                    End If
                End If
            Next
            e.DataRow.Delete
            msgbox(6)
            SystemReady = True
        Else
            e.DataRow("提示") = "序列号不存在"
        End If
    End If
End If
 回到顶部
总数 11 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.06934 秒, 5 次数据查询