作者chrisjon (开车/旅游)
看板Visual_Basic
标题[VB6 ] addnew/update
时间Sun Oct 14 10:01:12 2012
设定Access每个空格皆必需有值，不得是Null
Private Sub Cmdnew_Click()
'新增一栏位
Data1.UpdateControls
Data1.Recordset.AddNew
'切换按钮并将TXT解锁
Cmdnew.Enabled = False
CmdUpdate.Enabled = True
Cmdend.Enabled = False
Cmddelete.Enabled = False
TxtTruck.Text = truck(Cbotruck.ListIndex)
TxtYear.Enabled = True
TxtMonth.Enabled = True
TxtDay.Enabled = True
TxtKM.Enabled = True
TxtLiter.Enabled = True
TxtPrice.Enabled = True
Cbotruck.Enabled = True
CmdUpdate.SetFocus
End Sub
Private Sub CmdUpdate_Click()
'资料更新并重整
Data1.Recordset.Update
Data1.Refresh
'切换按钮并将TXT锁定
CmdUpdate.Enabled = False
Cmdnew.Enabled = True
Cmddelete.Enabled = True
Cmdend.Enabled = True
TxtYear.Enabled = False
TxtMonth.Enabled = False
TxtDay.Enabled = False
TxtKM.Enabled = False
TxtLiter.Enabled = False
TxtPrice.Enabled = False
Cbotruck.Enabled = False
'新增结束後清除空格
TxtYear.Text = ""
TxtMonth.Text = ""
TxtDay.Text = ""
TxtKM.Text = ""
TxtLiter.Text = ""
TxtPrice.Text = ""
Cbotruck.ListIndex = 0
Cmdnew.SetFocus
End Sub
=====================================================
问题1.
之前在还没加UpdateControls之前，AddNew都会出错
是什麽原因呢?
问题2.
错误码:3020
原因:还没AddNew或Edit之前不能Update或CancelUpdate
有时候会出现这个错误
可是我明明在CmdNew里有写
Data1.Recordset.AddNew
问题3.
错误码:3426
原因:此动作(update)被相关物件取消
在第一次新增资料时没问题，可是连续新增就会出错
(有时新增第2笔就错，有时新增第4笔出错)
侦错位置在Data1.Recordset.Update那里
改了好几天，都是3020和3426在出现
请问到底是哪里的逻辑有问题吗??
**
另外问一下，我在Cbotruck里有AddItem几个车牌字串
但是都无法读进Access里，所以现在都用
Private Sub Cbotruck_Click()
TxtTruck.Text = truck(Cbotruck.ListIndex)
End Sub
的方式来存进记录
请问有办法直接用Cbotruck的下拉选单就存进Access吗?
感谢!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.40.141.58
※ 编辑: chrisjon 来自: 114.40.141.58 (10/14 10:04)