最近看了一个高手传的示例。想要引用。想把那个那个进度条取消。还有在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

很好用啊。谢谢版主了。这个示例好像就是您发的吧。还有一个代码可以改成从Tables筛选吗。谢谢了。您辛苦。

If e.Sender.Value <> "" Then
    e.Form.Controls("ComboBox2").ComboList = DataTables("订单").GetComboListString(e.Sender.Value)
End If

谢谢版主。你好强啊。羡慕的。