| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何在检索历史记录时加入一个进度条 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100534) |
| -- 作者：scofields -- 发布时间：2017/5/13 11:02:00 -- 如何在检索历史记录时加入一个进度条 老师，我想实现在窗口检索历史记录时，加入一个检索进度，这个代码是写到Button里吗，怎么修改以下代码实现进度条的效果呢？ Dim txt As String = e.Form.Controls("TextBox21").Text Dim dt As DataTable = DataTables("Record") If txt > "" Then txt = "\'%" & txt & "%\'" txt = "TX1 Like " & txt & " Or TX6 Like " & txt & " Or TX7 Like " & txt & " Or TX8 Like " & txt & " Or TX9 Like " & txt & " Or TX10 Like " & txt & " Or TX11 Like " & txt & " Or TX12 Like " & txt & " Or TX13 Like " & txt & " Or TX14 Like " & txt & " Or TX15 Like " & txt & " Or TX15 Like " & txt & " Or TX16 Like " & txt & " Or TX17 Like " & txt & " Or TX18 Like " & txt & " Or TX19 Like " & txt & " Or TX20 Like " & txt & " Or TX21 Like " & txt & " Or TX22 Like " & txt & " Or TX23 Like " & txt & " Or TX24 Like " & txt & " Or TX25 Like " & txt Else txt = "" MessageBox.show("请输入要查找的车号","提示") Return End If dt.LoadFilter = txt dt.Load 帮忙了 |
| -- 作者：有点蓝 -- 发布时间：2017/5/13 11:07:00 -- dt.Load没有办法实现进度条。 可以在论坛中搜搜“多线程”的用法
|
| -- 作者：scofields -- 发布时间：2017/5/13 11:11:00 -- 数据都是针对后台的，本身就是个小系统，没有必要用多线程了，没办法使用进度条那也没辙了。 |