以下代码从命令窗口测试正常（命令窗口return语句改为return nothing），但是放到任务栏就报错：
System.InvalidOperationException: 此
OleDbTransaction 已完成；它再也无法使用。
在
System.Data.OleDb.OleDbTransaction.Commit()
在
Foxtable.Connection.Commit()
在
UserCode.Ab2sVfnWKSLDdT4vZ(TopicLinkEventArgs e)
难道不能用数据库事务？
Tables("文件模板").Filter="[文件名]='正式工工资考勤导入模板'"
If Tables("文件模板").Current Is Nothing Then
Return
End If
Dim dr As DataRow = Tables("文件模板").Current.DataRow
If dr.RowState = DataRowState.Added Then '如果是新增行,必须先保存才能插入文件
dr.Save()
End If
Dim fl As String = ProjectPath & dr("_Identify") & ".xls"
If dr.SQLLoadFile("文件",fl) Then '如果提取文件成功
Dim Proc As New Process '打开文件
Proc.File = fl
Proc.Start()
End If
[此贴子已经被作者于2015/9/23 11:16:49编辑过]
加好友 
发短信
Post By：2015/9/23 11:13:00 [显示全部帖子]
