請問黃色和綠色部份一樣 日期有記進資料庫，但車號卻沒記進去，是哪裡有問題嗎? ** 界面簡介： 車號combo 三個記錄日期的text(年/月/日) 一個公升text 一個價格text 一里程數text 四個cammend 一個adodc及grid ** 所有的text都成功的記錄進資料庫裡，但只有combo的記錄失敗 剛稍微修改了一些內容 把原本以text用DataSource及DataField來跟資料庫連結 修改成 全部以Adodc.Record.Field(i) = val(text.text)的模式寫進access裡 利用 逐行 功能來看，跑到車牌那裡時，確定 rs.Fields(0) 也有寫進車牌號碼了 但是Record.update之後， 每一個都成功寫進資料庫了，唯獨車號寫不進去 ** 再次測試，跳出msgbox確認是否記錄時，車號有出現在DataGrid裡 但是按下"確定"按鈕後，車牌號碼卻消失了… ================================= Private Sub Form_Load() '車輛選單設定 truck(0) = "XS-001" truck(1) = "XS-002" truck(2) = "XS-003" truck(3) = "XS-004" truck(4) = "XS-005" cboTruckPlate.Clear For i = 0 To 4 cboTruckPlate.AddItem (truck(i)) Next cboTruckPlate.ListIndex = 0 '按鈕名稱設定 cmdAddNew.Caption = "新增" cmdSave.Caption = "儲存" cmdDelete.Caption = "刪除" cmdFinish.Caption = "結束" '鎖定輸入格 InputLocked *** Private Sub cmdSave_Click() '輸入的資料全集合在字串裡 '車號必填 temp = "" If cboTruckPlate.ListIndex = -1 Then return_msg = MsgBox("車號忘了選", 32, "請選擇車號") cboTruckPlate.SetFocus Exit Sub Else '記錄車號 tPlateRecord = truck(cboTruckPlate.ListIndex) AdoDiesel.Recordset.Fields(0) = tPlateRecord temp = "車號：" & txtTruckPlate.Text & vbCrLf End If '日期必填 If txtYear.Text <> "" And txtMonth.Text <> "" And txtDay.Text <> "" Then '記錄日期 tDate = Format(Str(txtYear.Text), "0000") + "/" + Format(Str(txtMonth.Text), "00") + "/" + Format(Str(txtDay.Text), "00") AdoDiesel.Recordset.Fields(1) = tDate temp = temp & "日期：" & Str(txtYear.Text) & "年" & Str(txtMonth.Text) & " 月" & Str(txtDay.Text) & "日" & vbCrLf Else return_msg = MsgBox("日期沒輸入", 32, "請輸入日期") txtYear.SetFocus Exit Sub End If '加油量必填 If txtLiter.Text = "" Then return_msg = MsgBox("今天加了幾公升?", 32, "請輸入加油量") txtLiter.SetFocus Exit Sub Else AdoDiesel.Recordset.Fields(2) = Val(txtLiter.Text) temp = temp & "公升：" & Str(txtLiter.Text) & vbCrLf End If If txtPrice.Text <> "" Then AdoDiesel.Recordset.Fields(3) = Val(txtPrice.Text) temp = temp & "價格：" & Str(txtPrice.Text) & vbCrLf End If If txtMileage.Text <> "" Then AdoDiesel.Recordset.Fields(4) = Val(txtMileage.Text) temp = temp & "里程數：" & Str(txtMileage.Text) End If If temp <> "" Then return_value = MsgBox(temp, 33, "以下資料是否正確") '檢測資料是否正確 If return_value = 1 Then '資料正確即存入 AdoDiesel.Recordset.Update AdoDiesel.Recordset.Update AdoDiesel.Refresh Else return_msg = MsgBox("放棄儲存，請重新輸入", 48, "資料未存入") AdoDiesel.Refresh End If End If AdoDiesel.Recordset.Update '再重整並移動到最後 AdoDiesel.Refresh AdoDiesel.Recordset.MoveLast '輸入結束，輸入格鎖定 Form_Load SetFilesWidth cmdAddNew.SetFocus AdoDiesel.Recordset.MoveLast End Sub --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 1.124.158.162 簡單的把Text裡的值放進access裡，只有第一個是用combo選擇內定的車牌號碼 ※ 編輯: chrisjon 來自: 1.124.158.162 (11/22 19:33) ※ 編輯: chrisjon 來自: 1.124.158.162 (11/22 19:39) ※ 編輯: chrisjon 來自: 1.142.154.153 (11/24 16:54) 找到可能問題了…… 手動輸入車號並沒有問題，是可以儲存的，但是利用程式寫卻一直都寫不進去 剛沒事點點DataGrid的車號空白欄位 因為我設定該欄位只能有6碼，發現格子裡都被空格佔滿 到底……空格是在哪裡被佔滿的…~.~? ※ 編輯: chrisjon 來自: 1.143.42.146 (11/26 05:13)