請問黃色和綠色部份一樣
日期有記進資料庫，但車號卻沒記進去，是哪裡有問題嗎?
**
界面簡介：
車號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