- 最後登錄
- 2024-4-20
- 在線時間
- 8466 小時
- 註冊時間
- 2008-9-29
- 閱讀權限
- 20
- 精華
- 0
- UID
- 5049648
- 帖子
- 201
- 積分
- 188 點
- 潛水值
- 10151 米
| 若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。 本帖最後由 arthurliuliu 於 2012-3-13 09:06 AM 編輯
我知道應該是存檔時資料有重複了、但是不知道為何會重複、如何去解決
以下是我的code、請指點一下。
- cn.BeginTrans
- For i = 0 To Rs_Dept_Code.Fields.Count - 13
-
- If i = 5 And text1(i).Text = "" Then
-
- MsgBox "金額欄位不能為空白"
- A = InputBox("請輸入金額")
- text1(i).Text = CInt(A)
-
- End If
-
- Rs_Dept_Code.Fields(i) = text1(i).Text '將文字中的內容寫入緩衝區中
-
-
- Next i
-
- Rs_Dept_Code.Fields(40) = Option2.Value
- If Option1.Value = True Then Rs_Dept_Code.Fields(41) = "◎" Else Rs_Dept_Code.Fields(41) = ""
-
- Rs_Dept_Code.Fields(42) = text1(41).Text
- Rs_Dept_Code.Fields(43) = ""
- Rs_Dept_Code.Fields(44) = ""
- Rs_Dept_Code.Fields(45) = ""
- Rs_Dept_Code.Fields(46) = ""
- Rs_Dept_Code.Fields(47) = 0
- Rs_Dept_Code.Fields(48) = text1(42).Text
- Rs_Dept_Code.Fields(49) = text1(40).Text
-
- Rs_Dept_Code.Update '將資料從緩衝區寫入資料庫中
- Rs_Dept_Code.Requery
- cn.CommitTrans
複製代碼
code沒包,板主代為編輯。
arthurliuliu
... |
|