以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据动态显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191828)

--  作者:yifan3429
--  发布时间:2024/5/10 13:12:00
--  数据动态显示
For Each dr As DataRow In DataTables("产品_固装家具").DataRows

            StatusBar.Message1 = "正在刷新数据......" & CurrentTable.Rows.Count & " 当前行: " & CurrentTable.Position + 1"
            Application.DoEvents()
            Next

黄色部分希望是动态显示 怎么做。
[此贴子已经被作者于2024/5/10 13:23:36编辑过]

--  作者:有点蓝
--  发布时间:2024/5/10 13:43:00
--  
For Each r As Row In Tables("产品_固装家具").Rows

            StatusBar.Message1 = "正在刷新数据......" & CurrentTable.Rows.Count & " 当前行: " & r.index + 1"
            Application.DoEvents()
            Next

--  作者:yifan3429
--  发布时间:2024/5/10 15:09:00
--  
For Each dr As Row In Tables("产品_固装家具").Rows                     
            StatusBar.Message1 = "正在刷新"
            StatusBar.ProgressBar.Visible = True          
            StatusBar.ProgressBar.Value = dr.index + 1 / CurrentTable.Rows.Count & "%"
            StatusBar.Message2 = dr.index + 1 / CurrentTable.Rows.Count & "%"           
            Application.DoEvents()
达不到帮助效果  老师帮我看看

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20240510150813.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2024/5/10 15:08:54编辑过]

--  作者:有点蓝
--  发布时间:2024/5/10 15:29:00
--  
StatusBar.ProgressBar.Value = cint((dr.index + 1) / CurrentTable.Rows.Count)