Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导入数据时重复行的部分列内容导入


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

主题：导入数据时重复行的部分列内容导入
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/12 23:29:00 [显示全部帖子]

……
Dim nms() As String = {"编号图号","部件名称","交检","保管员","投料工位","适用车型","检验员","投料周数"}
For  n As Integer = 2 To Sheet.Rows.Count-1 '如有表头,开始的数字为表头行数
    Dim bh As String = sheet(n,0).Text
if bh > ""
    Dim 部件名称 As String = sheet(n,1).Text
    Dim dr As DataRow = DataTables("部品质量管理").Find("日期>= '" & d1 & "' And 日期<= '" & d & "' And 编号图号 = '" & bh & "' and 部件名称='" & 部件名称 & "' And 投料周数 Is Null ")
    If dr Is Nothing Then  '如果不存在同编号图号的部件
        dr =  DataTables("部品质量管理").AddNew()
        dr("日期") =  Date.Today
        If dr("编号图号") <> "" Then
            dr("序号") = 0
            dr("判定") = "合格"
            dr("检验区分") = "其它"
        Else
            dr("序号") = 3
        End If
    End If
    For m As  Integer = 0 To nms.Length-1
        dr(nms(m)) = Sheet(n,m).Value
    Next
end if
Next
      Tables("部品质量管理").ResumeRedraw
      DataTables("部品质量管理").DeleteFor("[编号图号] Is Null ")
End If
e.Form.Controls("Label3").Visible = False 
……
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/13 16:27:00 [显示全部帖子]

请上传实例说明

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


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/13 17:46:00 [显示全部帖子]

测试没有问题

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

如果重复导入，就会新增，是因为条件【And 投料周数 Is Null 】导致的，第一次导入有部分数据投料周数就不会是空值了
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/13 20:23:00 [显示全部帖子]

Dim d As Date = Date.Today
Dim d1 As Date = Tables("表A").Compute("max([日期])") '找出表中最大的日期并赋值
Dim dlg As new OpenFileDialog
dlg.Filter = "excel|*.xls;*.xlsx"

If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book (dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(3)
    Tables("表A").StopRedraw
    'Tables("数据导入_Table1").Filter = "日期 = # " & d  & "# "
    Dim nms() As String = {"编号图号","部件名称","交检","保管员","投料工位","适用车型","检验员","投料周数"}
    
    For  n As Integer = 2 To Sheet.Rows.Count-1 '如有表头,开始的数字为表头行数
        Dim bh As String = sheet(n,0).Text
        If bh > ""
            Dim drs As List(of DataRow) = DataTables("表A").Select("日期>= '" & d1 & "' And 日期<= '" & d & "' And 编号图号 = '" & bh & "' And 投料周数 Is Null ")
            If drs.Count = 0 Then  '如果不存在同编号图号的部件
                Dim dr As DataRow =  DataTables("表A").AddNew()
                dr("日期") =  Date.Today
                dr("序号") = 0
                dr("判定") = "合格"
                dr("检验区分") = "其它"
                For m As  Integer = 0 To nms.Length-1
                    dr(nms(m)) = Sheet(n,m).Value
                Next
            Else
                For Each dr As DataRow In drs
                    For m As  Integer = 0 To nms.Length-1
                        dr(nms(m)) = Sheet(n,m).Value
                    Next
                Next
            End If
            
        End If
    Next
    Tables("表A").ResumeRedraw
    DataTables("表A").DeleteFor("[编号图号] Is Null ")
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询