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中的数据
1700416350
1700416351
Private Sub SetRecordset()
1700416352
1700416353
rst.Fields(0)=txtCustomer.Text
1700416354
1700416355
rst.Fields(1)=txtAddress.Text
1700416356
1700416357
rst.Fields(2)=txtPhone.Text
1700416358
1700416359
rst.Fields(3)=txtItem.Text
1700416360
1700416361
rst.Fields(4)=txtUnitPrice.Text
1700416362
1700416363
rst.Fields(5)=txtSales.Text
1700416364
1700416365
End Sub
1700416366
1700416367
1700416368
1700416369
[
上一页 ]
[ :1.70041632e+09 ]
[
下一页 ]