打字猴:1.70041627e+09
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 ]  [ 下一页 ]