标题：数据动态显示

1楼

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()

黄色部分希望是动态显示怎么做。

[此贴子已经被作者于2024/5/10 13:23:36编辑过]

2楼

有点蓝 发表于：2024/5/10 13:43:00

For Each r As Row In Tables("产品_固装家具").Rows

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

Application.DoEvents()

3楼

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编辑过]

4楼

有点蓝 发表于：2024/5/10 15:29:00

StatusBar.ProgressBar.Value = cint((dr.index + 1) / CurrentTable.Rows.Count)

共4 条记录, 每页显示 10 条, 页签: [1]