dtpicker与数据集绑定，当改变日期后保存，就会出错

Question

dtpicker
的value是日期型的吗？

Answer 1

问题已经解决，加了两条语句，如下：
On Error GoTo SaveError
    Set DTPBuydate.DataSource = Nothing     '防止更新出错
    Set DTPStartdate.DataSource = Nothing   '防止更新出错
        RsEM!equipmentno = TxtNo.Text
        RsEM!equipmentname = TxtName.Text
        RsEM!price = P_sDbl(TxtPrice.Text)
        RsEM!Type = TxtType.Text
        RsEM!factory = TxtFactory.Text
        RsEM!buydate = DTPBuydate.Value
        RsEM!place = TxtPlace.Text
        RsEM!startdate = CDate(DTPStartdate.Value)
        RsEM.Update
    Set DTPBuydate.DataSource = RsEM
    Set DTPStartdate.DataSource = RsEM
    Exit Sub
SaveError:
    P_ErrorHint ("保存失败")