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


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

主题:[求助]增加行出现在第一行

帅哥哟,离线,有人找我吗?
huhu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

增加行出现在第一行。
tables(“表A”).addnew()出现在第一行,光标定位到一个单元格怎么弄来着。
之前会做来着,现在忘了,

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


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

Dim nr As Row = tables("表A").addnew()
nr.move(0)
nr.Table.Select(nr.Index, nr.Table.cols("第三列").index)

 回到顶部
帅哥哟,离线,有人找我吗?
huhu
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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


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

Dim drs As List(Of DataRow) = DataTables("配货单").Select("[SN] = '" & e.NewValue & "'")

For each dr As DataRow In drs

 

Next


 回到顶部
帅哥哟,离线,有人找我吗?
huhu
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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行数据的效果吧

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


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

Dim drs As List(Of DataRow) = DataTables("配货单").Select("[SN] = '" & e.NewValue & "'")

SystermReady = False

For each dr As DataRow In drs

    Dim ndr As DataRow = e.DataTable.AddNew

   

Next

e.DataRow.Delete

SystemReady = True


 回到顶部
帅哥哟,离线,有人找我吗?
huhu
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
还是没有自动增加行

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


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

          For Each dr As DataRow In drs

                Dim ndr As DataRow = e.DataTable.AddNew
                If dr("提示") = "扫描完成" Then
                    For Each nm As String In nms
                        ndr(nm) = dr(nm)
                    Next
                    ndr("提示") = "重复扫描"
                    dr("提示") = "扫描完成"
                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
                    End If
                End If
            Next

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


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

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

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


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

不可能啊,加入msgbox看进入了没有啊

 回到顶部
总数 19 1 2 下一页