Foxtable(狐表)用户栏目专家坐堂 → 求教代码


  共有9735人关注过本帖平板打印复制链接

主题:求教代码

美女呀,离线,留言给我吧!
bm
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:3463 威望:0 精华:0 注册:2011/9/13 23:27:00
求教代码  发帖心情 Post By: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


 回到顶部