用 mg.Filter = "商品编码 is not null and 商品编码 <> ''" 就可以了，谢谢！
手工编码合并数据里的三个示例都要求列的顺序必须一致，这里我也贡献一段代码，可以不要求列的顺序了，供新人使用！哈哈！
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(0)
Dim nms() As String = {"商品编码","批号","有效期至"}
Dim Colms As New Dictionary(Of String, Integer)
For i As Integer = 0 To nms.Length-1
For x As Integer = 0 To Sheet.Cols.Count -1
If sheet(0,x).Text = nms(i) Then
Colms.Add(nms(i),x)
End If
Next
If Colms.ContainsKey(nms(i)) = False Then
MessageBox.show("数据格式不正确!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
Next
If Colms.Count = nms.Length Then
Tables("采购表").StopRedraw()
For n As Integer = 1 To Sheet.Rows.Count -1
Dim r As Row = Tables("采购表").AddNew()
For m As Integer = 0 To Colms.Count-1 'nms.Length - 1
r(nms(m)) = Sheet(n,Colms(nms(m))).Value
Next
Next
Tables("采购表").ResumeRedraw()
End If
End If
加好友 
发短信
Post By：2021/7/13 15:00:00 [只看该作者]
