导入excel数据时，单元格为空的，如何导入。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

抱歉了老师，是代码。

此主题相关图片如下：2022-05-05_143547.png

Dim d As Date=e.Form.controls("DateTimePicker1").value

Dim bm As String=e.Form.controls("ComboBox1").value

Dim pth As String = ProjectPath & "AllMyFiles\盘点表\"

If d<>Nothing Then

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.InitialDirectory = pth

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim nms() As String = {"*品编码","*品名称","规格","门诊单位","*品库存明细表_入库数量","*品库存明细表_出库数量"} '接收

Dim nms2() As String = {"编码","名称","规格","单位","入库数量","出库数量"} '来源

Dim dict As new Dictionary(of String,String)

For m As Integer = 0 To nms.Length - 1

dict.add(nms2(m),nms(m))

Dim Book As New XLS.Book(dlg.FileName)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Tables("手工进销存查询统计表").StopRedraw()

'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题

For n As Integer = 1 To Sheet.Rows.Count -1

'If Sheet(n,0).text > "" Then

Dim r As Row = Tables("手工进销存查询统计表").AddNew()

r("截止日期")=d

r("部门")=bm

For m1 As Integer = 0 To Sheet.Cols.Count - 1

If dict.ContainsKey(Sheet(0,m1).Value)

r(dict(Sheet(0,m1).Value)) = Sheet(n,m1).Value

End If

'End If

Tables("手工进销存查询统计表").ResumeRedraw()

End If

Else

MessageBox.Show("截止日期没有填上")

End If

主题：导入excel数据时，单元格为空的，如何导入。