以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求教代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13551)
--  作者：bm
--  发布时间：2011/10/16 20:22:00
--  求教代码

最近看了一个高手传的示例。想要引用。想把那个那个进度条取消。还有在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
--  作者：czy
--  发布时间：2011/10/16 20:35:00
--  
差不多是这样吧

Dim s1 As String = e.Form.Controls("ComboBox1").Value
Dim s2 As String = e.Form.Controls("ComboBox2").Value
Dim i As Integer
Dim Filter As String
If s1 <> "" And s2 <> "" Then
    If Tables("订单").Filter <> "" Then
        Filter = Tables("订单").Filter & " And "
    End If
    Dim drs As List(Of DataRow) = DataTables("订单").Select(Filter & s1 & " = \'" & s2 & "\'")
    For Each dr As DataRow In drs
        dr("审核") = True
    Next
Else
    For Each dr As Row In Tables("订单").Rows
        dr("审核") = True
    Next
End If
--  作者：bm
--  发布时间：2011/10/16 20:48:00
--  很好用啊

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

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

[此贴子已经被作者于2011-10-16 20:48:21编辑过]
--  作者：czy
--  发布时间：2011/10/16 20:53:00
--  
If e.Sender.Value <> "" Then
    e.Form.Controls("ComboBox2").ComboList = DataTables("订单").GetComboListString(e.Sender.Value,Tables("订单").Filter)
End If
--  作者：bm
--  发布时间：2011/10/16 21:05:00
--  谢谢版主

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