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
1700416320
1700416321
If rst.EOF Then
1700416322
1700416323
rst.MoveLast
1700416324
1700416325
End If
1700416326
1700416327
ShowRecordset
1700416328
1700416329
End Sub
1700416330
1700416331
‘Recordset显示Recordset中的内容
1700416332
1700416333
Private Sub ShowRecordset()
1700416334
1700416335
txtCustomer.Text=rst.Fields(0)
1700416336
1700416337
txtAddress.Text=rst.Fields(1)
1700416338
1700416339
txtPhone.Text=rst.Fields(2)
1700416340
1700416341
txtItems.Text=rst.Fields(3)
1700416342
1700416343
txtUnitPrice.Text=rst.Fields(4)
1700416344
1700416345
txtSales.Text=rst.Fields(5)
1700416346
1700416347
End Sub
1700416348
1700416349
‘Recordset设置Recordset中的数据
[
上一页 ]
[ :1.7004163e+09 ]
[
下一页 ]