Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "表格文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
'MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.SourceTableName = "组件条码$"
mg.DataTableName = "EL图像数据库"
mg.Merge()
End If
以上代码运行后,出现如图所示的错误提示。请问问题出在哪里呢,该如何修改?
此主题相关图片如下:错误提示.png
