Dim p As WinForm.ProgressBar p = e.Form.Controls("ProgressBar1") Dim dt = DataTables("表A") Dim t = Tables("表A") p.Minimum = 0 p.Maximum = dt.DataRows.count+t.Rows.count p.Value = 0
For i As Integer = 0 To dt.datarows.count -1 msgbox(1) p.value += 1 Next
For i As Integer = 0 To t.rows.count -1 Dim r As Row = t.rows(i) msgbox(1) p.value += 1 Next