| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于窗口进度条问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122887) |
| -- 作者：ZJZK2018 -- 发布时间：2018/8/3 16:17:00 -- 关于窗口进度条问题 我的需求是： 在删除行和增加行时，在窗口状态栏中显示进度条。 下面代码如何调整： \'\'\'=======删除所有行======= Dim tb1 As Table = Tables("标录分析_Table01") \'tb1.StopRedraw For i As Integer = tb1.Rows.Count - 1 To 0 Step -1 tb1.Rows(i).Delete() Next \'\'======加载球号======= e.Form.TimerEnabled = False StatusBar.Message1 = "正在添加" StatusBar.ProgressBar.Visible = True StatusBar.ProgressBar.Value = 0 StatusBar.ProgressBar.Maximum = tb1.Rows.Count StatusBar.Refresh For Each fdr As DataRow In DataTables("开标记录").Select("中标球号 > 0") For i As Integer = 1 To tb1.Rows.Count Dim ndr As DataRow = DataTables("标录数据").AddNew() For Each dc As DataCol In DataTables("开标记录").DataCols If DataTables("标录数据").DataCols.Contains(dc.Name) Then ndr(dc.Name) = fdr(dc.Name) End If Next StatusBar.ProgressBar.Value += 10 StatusBar.Refresh Next Next Application.DoEvents() StatusBar.Message1 = "完成" tb1.Sort = "开标日期,开标时间" \'tb1.ResumeRedraw |
| -- 作者：有点甜 -- 发布时间：2018/8/3 17:21:00 --
[此贴子已经被作者于2018/8/3 17:21:07编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/8/3 17:23:00 -- \'\'\'=======删除所有行======= Dim drs = DataTables("开标记录").Select("中标球号 > 0") StatusBar.Message1 = "正在添加"
|