1700416270
1700416271
Else
1700416272
1700416273
MsgBox “找不到符合条件的数据!”,vbInformation,“”
1700416274
1700416275
End If
1700416276
1700416277
End Sub
1700416278
1700416279
‘处理“更新”按钮单击事件
1700416280
1700416281
Private Sub cmdUpdate_Click()
1700416282
1700416283
SetRecrodset
1700416284
1700416285
rst.Update
1700416286
1700416287
End Sub
1700416288
1700416289
‘处理“删除”按钮单击事件
1700416290
1700416291
Private Sub cmdDelete_Click()
1700416292
1700416293
rst.Delete
1700416294
1700416295
rst.Update
1700416296
1700416297
End Sub
1700416298
1700416299
‘处理“上一条”按钮单击事件
1700416300
1700416301
Private Sub cmdPrev_Click()
1700416302
1700416303
rst.MovePrevious
1700416304
1700416305
If rst.BOF Then
1700416306
1700416307
rst.MoveFirst
1700416308
1700416309
End If
1700416310
1700416311
ShowRecrodset
1700416312
1700416313
Ens Sub
1700416314
1700416315
‘处理“下一条”按钮单击事件
1700416316
1700416317
Private Sub cmdNext_Click()
1700416318
1700416319
rst.MoveNext
[
上一页 ]
[ :1.70041627e+09 ]
[
下一页 ]