rs_chaoqi 是借閱記錄集
DataGrid1.Columns(3).CellValue(DataGrid1.Bookmark) 是書籍唯一編號
我的想法是，在借閱記錄里面根據比對書籍編號找書籍，寫入還書日期。如果該書被借過兩次，記錄到第一次就停住了，第二次還書就寫不了還書日期。
rs_chaoqi.MoveFirst
Do While DataGrid1.Columns(3).CellValue(DataGrid1.Bookmark) <> rs_chaoqi.Fields(3)
rs_chaoqi.MoveNext
Loop
rs_chaoqi.Fields(7) = Date
rs_chaoqi.Update
uj5u.com熱心網友回復：
感覺你實作還書登記用這種方法，還不如直接用update的SQL陳述句更好。不過這里不說這個，就說你現在這種實作方式吧。在你這代碼的基礎上，可以這樣改：Dim dteLatest As Date
rs_chaoqi.MoveFirst
Do While datagrid1.Columns(3).CellValue(datagrid1.Bookmark) <> rs_chaoqi.Fields(3)
If (dteLatest < datagrid1.Columns(5).CellValue(datagrid1.Bookmark)) Then '逐個比對出最新的“出借日期”
dteLatest = datagrid1.Columns(5).CellValue(datagrid1.Bookmark)
'這里應該有代碼記錄對應最新的“出借日期”的記錄的標識，如Bookmark
End If
rs_chaoqi.MoveNext
Loop
'下面一句應改為，針對最新的“出借日期”的記錄的標識，定位到那條記錄，更改相應的“還書日期”
rs_chaoqi.Fields(7) = Date
rs_chaoqi.Update
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/99701.html
上一篇：VB編程生成Word檔案