'我的处理办法,以下程序是打8条记录的,不足8条补空记录,但不更新数据库 nRecordCount = DE_Report.rsCom_J_Cktzd.RecordCount If nRecordCount < 8 Then For iAddnew = 1 To 8 - nRecordCount DE_Report.rsCom_J_Cktzd.AddNew Next Else If nRecordCount > 8 Then For iAddnew = 1 To 8 - (nRecordCount - Int(nRecordCount / 8) * 8) DE_Report.rsCom_J_Cktzd.AddNew Next End If End If
nRecordCount = DE_Report.rsCom_J_Cktzd.RecordCount
If nRecordCount < 8 Then
For iAddnew = 1 To 8 - nRecordCount
DE_Report.rsCom_J_Cktzd.AddNew
Next
Else
If nRecordCount > 8 Then
For iAddnew = 1 To 8 - (nRecordCount - Int(nRecordCount / 8) * 8)
DE_Report.rsCom_J_Cktzd.AddNew
Next
End If
End If
我重装系统以后就不行了,注册表里面要一个文件,大家mail一个给我号码?我得是死亡阴影简体中文版!!!求助!!!
[email protected]
lihonggen0给我的代码我不是很清楚,再帮帮我!一定给分!!