新版本是不是有bug,
1、我之前在代码里加了句message.show(1),后来删除了,但是我测试的时候这个提示还总是出现。
2、我的数据源是access数据库,我导入了数据,保存后datetables("提成明细").save,重新刷新Tables("提成明细").DataTable.Load(),之后数据又没了,查看后台数据库也是没有添加进来。这是怎么回事?
下面是导入代码
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim mg As New Merger
mg.Format = "excel"
mg.SourcePath = dlg.FileName
mg.SourceTableName = "提成明细$"
mg.DataTableName = "提成明细"
mg.Merge()
End If
[此贴子已经被作者于2016/3/29 17:23:57编辑过]