看能不能弹出对话框
e.Form.TimerEnabled = False
e.Form.Controls("Label1").Text = "正在进行备份,请稍后..."
Application.DoEvents()
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = DataTables.Count
'设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值
Dim t As String
Dim i As Integer = 0
Dim cs As String
cs=Format(Date.Now, "yyyyMMddHHmmss")
For Each dt As DataTable In DataTables
msgbox(dt.Name)
Dim ex As New Exporter
ex.FilePath = ProjectPath & "Backup\" & cs & ".mdb"
ex.SourceTableName = dt.Name
i= i + 1
p.value=i
Application.DoEvents()
t = dt.LoadFilter
If t > "" Then
dt.LoadFilter= ""
dt.load
ex.Export()
dt.LoadFilter = t
dt.load
msgbox("1")
Else
msgbox("2")
ex.Export()
End If
Next
e.Form.Controls("Label1").Text = "备份完成"
e.Form.Controls("Label3").Text = " 文件名:" & cs & ".mdb"
加好友 
发短信
Post By：2016/7/30 8:26:00 [显示全部帖子]
此主题相关图片如下：1.jpg