最近看了一个高手传的示例。想要引用。想把那个那个进度条取消。还有在DataTables查询改为在Tables查询。要是有个提示框那就更好了。(自己改了一天了也没有成功)羡慕啊。
Dim s1 As String = e.Form.Controls("ComboBox1").Value
Dim s2 As String = e.Form.Controls("ComboBox2").Value
Dim i As Integer
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Minimum = 0
If s1 <> "" And s2 <> "" Then
Dim drs As List(Of DataRow) = DataTables("订单").Select(s1 & " = '" & s2 & "'")
p.Maximum = drs.Count -1
For Each dr As DataRow In drs
dr("审核") = True
i = i + 1
p.Value = i
Next
Else
For Each dr As DataRow In DataTables("订单").DataRows
p.Maximum = DataTables("订单").DataRows.Count -1
dr("审核") = True
i = i + 1
p.Value = i
Next
End If