Dim Result As DialogResult
Result = MessageBox.Show("保存数据？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
MessageBox.Show("数据正在保存！请稍候", "提示")
dim cnt as integer = DataTables.Count
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = cnt '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值
For i As Integer = 0 To cnt - 1
dt.Save()
p.Value = i
p.Label= format(i / cnt ,"0%")
Application.DoEvents
Next
MessageBox.Show("数据保存完成！", "提示")
Else
MessageBox.Show("数据未保存，请注意保存！", "提示")
End If
加好友 
发短信
Post By：2024/3/7 16:55:00 [显示全部帖子]
