请帮我加个进度条

luck_zy08 2010-05-20 04:07:11
求高手在下面这段代码中加个进度条

For i = 1 To Me.Md1.Rows - 1
If Me.Md1.TextMatrix(i, 1) <> "" And Me.Md1.TextMatrix(i, 2) <> "" Then
Call OpenConn
SQL = "select * from infobase where ¹¤ºÅ='" & Me.Md1.TextMatrix(i, 1) & "'and Ë¢¿¨ÈÕÆÚ='" & Me.Md1.TextMatrix(i, 3) & "' "
rs.Open SQL, cn, 3, 3
If rs.RecordCount < 1 Then
rs.AddNew
rs!¹¤ºÅ = Me.Md1.TextMatrix(i, 1)
rs!ÖÐÎÄÃû = Me.Md1.TextMatrix(i, 2)
rs!Ë¢¿¨ÈÕÆÚ = Me.Md1.TextMatrix(i, 3)
rs!¹¤Ê±ÀàÐÍ = Me.Md1.TextMatrix(i, 4)
rs!°à´Î = Me.Md1.TextMatrix(i, 5)
rs!¹¤Ê± = Me.Md1.TextMatrix(i, 6)
rs!OT = Me.Md1.TextMatrix(i, 7)
rs!DT = Me.Md1.TextMatrix(i, 8)
rs!³Ùµ½ = Me.Md1.TextMatrix(i, 9)
rs!ÔçÍË = Me.Md1.TextMatrix(i, 10)
rs!Ë¢¿¨1 = Me.Md1.TextMatrix(i, 11)
rs!Ë¢¿¨2 = Me.Md1.TextMatrix(i, 12)
rs!Ë¢¿¨3 = Me.Md1.TextMatrix(i, 13)
rs!Ë¢¿¨4 = Me.Md1.TextMatrix(i, 14)
rs!Ë¢¿¨5 = Me.Md1.TextMatrix(i, 15)
rs!Ë¢¿¨6 = Me.Md1.TextMatrix(i, 16)
rs!Ë¢¿¨7 = Me.Md1.TextMatrix(i, 17)
rs!Ë¢¿¨8 = Me.Md1.TextMatrix(i, 18)
rs!±¸×¢ = Me.Md1.TextMatrix(i, 19)
rs.Update
DoEvents 'ÊÍ·Å
Else
rs!¹¤ºÅ = Me.Md1.TextMatrix(i, 1)
rs!ÖÐÎÄÃû = Me.Md1.TextMatrix(i, 2)
rs!Ë¢¿¨ÈÕÆÚ = Me.Md1.TextMatrix(i, 3)
rs!¹¤Ê±ÀàÐÍ = Me.Md1.TextMatrix(i, 4)
rs!°à´Î = Me.Md1.TextMatrix(i, 5)
rs!¹¤Ê± = Me.Md1.TextMatrix(i, 6)
rs!OT = Me.Md1.TextMatrix(i, 7)
rs!DT = Me.Md1.TextMatrix(i, 8)
rs!³Ùµ½ = Me.Md1.TextMatrix(i, 9)
rs!ÔçÍË = Me.Md1.TextMatrix(i, 10)
rs!Ë¢¿¨1 = Me.Md1.TextMatrix(i, 11)
rs!Ë¢¿¨2 = Me.Md1.TextMatrix(i, 12)
rs!Ë¢¿¨3 = Me.Md1.TextMatrix(i, 13)
rs!Ë¢¿¨4 = Me.Md1.TextMatrix(i, 14)
rs!Ë¢¿¨5 = Me.Md1.TextMatrix(i, 15)
rs!Ë¢¿¨6 = Me.Md1.TextMatrix(i, 16)
rs!Ë¢¿¨7 = Me.Md1.TextMatrix(i, 17)
rs!Ë¢¿¨8 = Me.Md1.TextMatrix(i, 18)
rs!±¸×¢ = Me.Md1.TextMatrix(i, 19)
rs.Update
DoEvents 'ÊÍ·Å
End If
Call CloseConn
End If
Next i
...全文
66 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
luck_zy08 2010-05-21
  • 打赏
  • 举报
 回复
谢了,我加IF语句解决了,猴哥真棒,两天的问题被你解决了
chinaboyzyq 2010-05-21
  • 打赏
  • 举报
 回复
Md1单元格中的数据是从哪来的？总记录数可以在那得到，可能要用到全局变量传递过来。
bbcbsb 2010-05-21
  • 打赏
  • 举报
 回复
用两个LABEL和TIMER试一试
luck_zy08 2010-05-21
  • 打赏
  • 举报
 回复
猴哥,这样子也不行呀,我试过这样的,我的mshflexgrid里面的行有些是空的,我事先设定了行为500,而实际导入的记录只有300条,你这样写的话,把那200条空记录也循环在进度条里了,我不知道怎么获得实际有记录的行数
chinaboyzyq 2010-05-21
  • 打赏
  • 举报
 回复
Me.Bar1.Max = Me.Md1.Rows - 1
Me.Bar1.Min = 0
Me.Bar1.Value = 0

For i = 1 To Me.Md1.Rows - 1
If Me.Md1.TextMatrix(i, 1) <> "" And Me.Md1.TextMatrix(i, 2) <> "" Then
Call OpenConn
SQL = "select * from infobase where IndustryNo='" & Me.Md1.TextMatrix(i, 1) & "'and DateCard='" & Me.Md1.TextMatrix(i, 3) & "' "
rs.Open SQL, cn, 3, 3
If rs.RecordCount < 1 Then
rs.AddNew
rs!IndustryNo = Me.Md1.TextMatrix(i, 1) '¹¤ºÅ
rs!ChineseName = Me.Md1.TextMatrix(i, 2) 'ÖÐÎÄÃû
rs!DateCard = Me.Md1.TextMatrix(i, 3) 'Ë¢¿¨ÈÕÆÚ
rs!WorkType = Me.Md1.TextMatrix(i, 4) '¹¤Ê±ÀàÐÍ
rs!Flights = Me.Md1.TextMatrix(i, 5) '°à´Î
rs!Hours = Me.Md1.TextMatrix(i, 6) '¹¤Ê±
rs!OverTime = Me.Md1.TextMatrix(i, 7) 'OT
rs!DownTime = Me.Md1.TextMatrix(i, 8) 'DT
rs!Late = Me.Md1.TextMatrix(i, 9) '³Ùµ½
rs!LeaveEarly = Me.Md1.TextMatrix(i, 10) 'ÔçÍË
rs!Card1 = Me.Md1.TextMatrix(i, 11) 'Ë¢¿¨1
rs!Card2 = Me.Md1.TextMatrix(i, 12) 'Ë¢¿¨2
rs!Card3 = Me.Md1.TextMatrix(i, 13) 'Ë¢¿¨3
rs!Card4 = Me.Md1.TextMatrix(i, 14) 'Ë¢¿¨4
rs!Card5 = Me.Md1.TextMatrix(i, 15) 'Ë¢¿¨5
rs!Card6 = Me.Md1.TextMatrix(i, 16) 'Ë¢¿¨6
rs!Card7 = Me.Md1.TextMatrix(i, 17) 'Ë¢¿¨7
rs!Card8 = Me.Md1.TextMatrix(i, 18) 'Ë¢¿¨8
rs!Remarks = Me.Md1.TextMatrix(i, 19) '±¸×¢
rs.Update
Me.Bar1.Value = Me.Bar1.Value+1
DoEvents 'ÊÍ·Å
Else
rs!IndustryNo = Me.Md1.TextMatrix(i, 1) '¹¤ºÅ
rs!ChineseName = Me.Md1.TextMatrix(i, 2) 'ÖÐÎÄÃû
rs!DateCard = Me.Md1.TextMatrix(i, 3) 'Ë¢¿¨ÈÕÆÚ
rs!WorkType = Me.Md1.TextMatrix(i, 4) '¹¤Ê±ÀàÐÍ
rs!Flights = Me.Md1.TextMatrix(i, 5) '°à´Î
rs!Hours = Me.Md1.TextMatrix(i, 6) '¹¤Ê±
rs!OverTime = Me.Md1.TextMatrix(i, 7) 'OT
rs!DownTime = Me.Md1.TextMatrix(i, 8) 'DT
rs!Late = Me.Md1.TextMatrix(i, 9) '³Ùµ½
rs!LeaveEarly = Me.Md1.TextMatrix(i, 10) 'ÔçÍË
rs!Card1 = Me.Md1.TextMatrix(i, 11) 'Ë¢¿¨1
rs!Card2 = Me.Md1.TextMatrix(i, 12) 'Ë¢¿¨2
rs!Card3 = Me.Md1.TextMatrix(i, 13) 'Ë¢¿¨3
rs!Card4 = Me.Md1.TextMatrix(i, 14) 'Ë¢¿¨4
rs!Card5 = Me.Md1.TextMatrix(i, 15) 'Ë¢¿¨5
rs!Card6 = Me.Md1.TextMatrix(i, 16) 'Ë¢¿¨6
rs!Card7 = Me.Md1.TextMatrix(i, 17) 'Ë¢¿¨7
rs!Card8 = Me.Md1.TextMatrix(i, 18) 'Ë¢¿¨8
rs!Remarks = Me.Md1.TextMatrix(i, 19) '±¸×¢
rs.Update
Me.Bar1.Value = Me.Bar1.Value+1
DoEvents
End If
Call CloseConn
End If
Next i
luck_zy08 2010-05-21
  • 打赏
  • 举报
 回复
For i = 1 To Me.Md1.Rows - 1
If Me.Md1.TextMatrix(i, 1) <> "" And Me.Md1.TextMatrix(i, 2) <> "" Then
Call OpenConn
SQL = "select * from infobase where IndustryNo='" & Me.Md1.TextMatrix(i, 1) & "'and DateCard='" & Me.Md1.TextMatrix(i, 3) & "' "
rs.Open SQL, cn, 3, 3
If rs.RecordCount < 1 Then
Me.Bar1.Max = 100
Me.Bar1.Min = 0
Me.Bar1.Value = 1
rs.AddNew
rs!IndustryNo = Me.Md1.TextMatrix(i, 1) '¹¤ºÅ
rs!ChineseName = Me.Md1.TextMatrix(i, 2) 'ÖÐÎÄÃû
rs!DateCard = Me.Md1.TextMatrix(i, 3) 'Ë¢¿¨ÈÕÆÚ
rs!WorkType = Me.Md1.TextMatrix(i, 4) '¹¤Ê±ÀàÐÍ
rs!Flights = Me.Md1.TextMatrix(i, 5) '°à´Î
rs!Hours = Me.Md1.TextMatrix(i, 6) '¹¤Ê±
rs!OverTime = Me.Md1.TextMatrix(i, 7) 'OT
rs!DownTime = Me.Md1.TextMatrix(i, 8) 'DT
rs!Late = Me.Md1.TextMatrix(i, 9) '³Ùµ½
rs!LeaveEarly = Me.Md1.TextMatrix(i, 10) 'ÔçÍË
rs!Card1 = Me.Md1.TextMatrix(i, 11) 'Ë¢¿¨1
rs!Card2 = Me.Md1.TextMatrix(i, 12) 'Ë¢¿¨2
rs!Card3 = Me.Md1.TextMatrix(i, 13) 'Ë¢¿¨3
rs!Card4 = Me.Md1.TextMatrix(i, 14) 'Ë¢¿¨4
rs!Card5 = Me.Md1.TextMatrix(i, 15) 'Ë¢¿¨5
rs!Card6 = Me.Md1.TextMatrix(i, 16) 'Ë¢¿¨6
rs!Card7 = Me.Md1.TextMatrix(i, 17) 'Ë¢¿¨7
rs!Card8 = Me.Md1.TextMatrix(i, 18) 'Ë¢¿¨8
rs!Remarks = Me.Md1.TextMatrix(i, 19) '±¸×¢
rs.Update
Me.Bar1.Value = 100
DoEvents 'ÊÍ·Å
Else
Me.Bar1.Max = 100
Me.Bar1.Min = 0
Me.Bar1.Value = 1
rs!IndustryNo = Me.Md1.TextMatrix(i, 1) '¹¤ºÅ
rs!ChineseName = Me.Md1.TextMatrix(i, 2) 'ÖÐÎÄÃû
rs!DateCard = Me.Md1.TextMatrix(i, 3) 'Ë¢¿¨ÈÕÆÚ
rs!WorkType = Me.Md1.TextMatrix(i, 4) '¹¤Ê±ÀàÐÍ
rs!Flights = Me.Md1.TextMatrix(i, 5) '°à´Î
rs!Hours = Me.Md1.TextMatrix(i, 6) '¹¤Ê±
rs!OverTime = Me.Md1.TextMatrix(i, 7) 'OT
rs!DownTime = Me.Md1.TextMatrix(i, 8) 'DT
rs!Late = Me.Md1.TextMatrix(i, 9) '³Ùµ½
rs!LeaveEarly = Me.Md1.TextMatrix(i, 10) 'ÔçÍË
rs!Card1 = Me.Md1.TextMatrix(i, 11) 'Ë¢¿¨1
rs!Card2 = Me.Md1.TextMatrix(i, 12) 'Ë¢¿¨2
rs!Card3 = Me.Md1.TextMatrix(i, 13) 'Ë¢¿¨3
rs!Card4 = Me.Md1.TextMatrix(i, 14) 'Ë¢¿¨4
rs!Card5 = Me.Md1.TextMatrix(i, 15) 'Ë¢¿¨5
rs!Card6 = Me.Md1.TextMatrix(i, 16) 'Ë¢¿¨6
rs!Card7 = Me.Md1.TextMatrix(i, 17) 'Ë¢¿¨7
rs!Card8 = Me.Md1.TextMatrix(i, 18) 'Ë¢¿¨8
rs!Remarks = Me.Md1.TextMatrix(i, 19) '±¸×¢
rs.Update
Me.Bar1.Value = 100
DoEvents
End If
Call CloseConn
End If
Next i
怎么没有高人帮我呀,等了两天了,我自己加的这个进度条,只能显示一条条保存的记录,我想要一个能够显示全部的进度条,比如说我有300条记录,该怎么加

liguicd 2010-05-20
  • 打赏
  • 举报
 回复
美女，你的东东贴上来是乱码的啊
ivy13579 2010-05-20
  • 打赏
  • 举报
 回复
帮你顶上去！！
luck_zy08 2010-05-20
  • 打赏
  • 举报
 回复
不要沉了，怎么没有人帮我呀
自定义不规则进度条
自定义不规则进度条 加注释相信能帮上你 自定义不规则进度条
Android自定义圆弧进度条加数字动态变化
思路:一个内环圆弧和一个外环圆弧,因为有一个圆圈是在圆弧上做圆周运动,所以在画圆的时候必须要得到圆弧上的各个点的坐标,这里其实就用到了PathMeasure这个类,可以帮我们拿到这些点,在画圆弧的时候也理所应当的要...
Python小程序开发实战_06_进度条+新闻发布实例
基于微信小程序平台开发的的拍卖系统，项目主要分为圈子和拍卖两大部分业务，通过圈子...系统包含了小程序、API、运营中心三个子系统组成。在真实的开发环境和业务需求中进行开发，让你17天从小白到微信小程序高高手。
[2010.10.14][封装工具][天空作品] Easy Sysprep v3 RC3（+ SkySRS3.00）
（1）ES3提供完善的驱动卸载方案，能够自动化的帮您去除本机硬件设备驱动信息，以提高部署的成功率，减少源计算机信息残留。 （2）ES3为您提供可视化程度更高的设备查看功能，您可以通过树状分支查看每个设备的硬件...
给程序加个进度条吧！1行Python代码，快速搞定~
你在写代码的过程中，有没有遇到过以下问题？已经写好的程序，想看看程序执行...如上图所示的进度条是一个最好的解决方法，怎么在不修改原来代码的情况下，快速给程序加一个进度条呢？今天我们来学习一个最简单的方法~
数据库(包含打印，安装，报表)

1,216

社区成员

55,954

社区内容

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印，安装，报表)
社区管理员
  • 数据库(包含打印，安装，报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章