| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]请问怎么多条件判断重复数值不导入 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117479) |
| -- 作者：hrlong -- 发布时间：2018/4/13 10:34:00 -- [求助]请问怎么多条件判断重复数值不导入 导入excel文件代码如下 请问老师 这个代码怎么修改 当系统单号和商品编码都重复时，判断这行数据为重复，跳过这行 ====================================================================================== Dim dlg As New OpenFileDialog dlg.Filter = "Excel文件|*.xls;*.xlsx" If dlg.ShowDialog =DialogResult.OK Then Dim t As Table = Tables("订单") t.ResumeRedraw() t.StopRedraw() Dim App As New MSExcel.Application try Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName) Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) Dim Rg As MSExcel.Range = Ws.UsedRange Dim arg = rg.value For n As Integer = 2 To rg.Rows.Count Dim r As DataRow = t.DataTable.Find(系统单号 商品编码) If r Is Nothing Then r = t.DataTable.AddNew() For i As Integer = 1 To rg.Columns.count Dim cname As String = arg(1,i) If cname > "" AndAlso t.Cols.Contains(cname) Then If t.Cols(cname).IsDate AndAlso arg(n,i).Gettype.name = "double" Then r(cname) = DateTime.FromOADate(arg(n,i)) Else r(cname) = arg(n, i) End If End If Next Next catch ex As exception msgbox(ex.message) MessageBox.Show("导入失败!","恭喜!") finally t.ResumeRedraw() app.quit End try End If |
| -- 作者：有点甜 -- 发布时间：2018/4/13 11:02:00 -- 红色的1、2，改成你excel对应的列的序号
Dim r As DataRow = t.DataTable.Find("系统单号 = \'" & arg(n, 1) & "\' and 商品编码 = \'" & arg(n, 2) & "\'") |
| -- 作者：hrlong -- 发布时间：2018/4/13 14:29:00 -- 十分感谢 设置了表DatacolChanged事件，统计款数，发现之前输入的数据不统计 能不能把导入的代码改成，遇到重复的，用新的替换，这样，这行的DatacolChanged事件会不会有效？ 如果遇到重复的不是跳过，而是替换，这个代码该怎么修改呢
|
| -- 作者：有点甜 -- 发布时间：2018/4/13 14:51:00 -- 1、你尝试重置列
http://www.foxtable.com/webhelp/scr/1469.htm
2、如果重置列也不行，说明你datacolchanged事件代码有问题，上传具体实例测试 |