请帮我加个进度条

Question

求高手在下面这段代码中加个进度条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

Answer 1

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!Res = 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!Res = Me.Md1.TextMatrix(i, 19) '±¸×¢
       rs.Update
       Me.Bar1.Value = 100
       DoEvents 
    End If
    Call CloseConn
End If
Next i
怎么没有高人帮我呀,等了两天了,我自己加的这个进度条,只能显示一条条保存的记录,我想要一个能够显示全部的进度条,比如说我有300条记录,该怎么加

Answer 2

Me.Bar1.Max = Me.Md1.Rows - 1
Me.Bar1.Min = 0
Me.Bar1.Value = 0For 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!Res = 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!Res = Me.Md1.TextMatrix(i, 19) '±¸×¢
  rs.Update
  Me.Bar1.Value = Me.Bar1.Value+1
  DoEvents 
  End If
  Call CloseConn
End If
Next i

Answer 3

猴哥,这样子也不行呀,我试过这样的,我的mshflexgrid里面的行有些是空的,我事先设定了行为500,而实际导入的记录只有300条,你这样写的话,把那200条空记录也循环在进度条里了,我不知道怎么获得实际有记录的行数