其实这就是一个学生表纪录的浏览程序,没有CODE,就这么一句话而已, 至于这句程序,我是写在了Private sub Adodc1_movecomplete(……)这里边。
程序写在这里了Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)Adodc1.Caption = Adodc1.Recordset.AbsolutePosition & -" / " & Adodc1.Recordset.RecordCount End Sub
至于这句程序,我是写在了Private sub Adodc1_movecomplete(……)这里边。
End Sub
中間那是"_"呢還是"-" 號丫?如沒什麼需要,把它拿掉。