vb修改数据库

Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
DTP2.Enabled = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
DTP3.Enabled = True
Else
DTP3.Enabled = False
End If
End Sub
Private Sub Check4_Click()
If Check4.Value = 1 Then
DTP4.Enabled = True
Else
DTP4.Enabled = False
End If
End Sub
If Check1.Value = 1 Then
cn.Execute "UPDATE khgl SET 来电时间 =  '" & DTP1.Value & "'"
Else
cn.Execute " UPDATE khgl SET 来电时间 = null"
End If

If Check2.Value = 1 Then
cn.Execute "UPDATE khgl SET 去电时间 =  '" & DTP2.Value & "' "
Else
cn.Execute " UPDATE khgl SET 去电时间 = null"
End If
If Check3.Value = 1 Then
cn.Execute "UPDATE khgl SET 询价时间 =  '" & DTP3.Value & "'"
Else
cn.Execute " UPDATE khgl SET 询价时间 = null"
End If
If Check4.Value = 1 Then
cn.Execute "UPDATE khgl SET 下次联系时间 = '" & DTP4.Value & "'"
Else
cn.Execute " UPDATE khgl SET 下次联系时间 = null"
End If
以上是修改代码，四个check控制四个dtpicker,很奇怪的一个问题，一清空日期，都清空，当dtpicker在激活状态下存入数据，存入的数据没有规则，一会在来电时间里，一会在去电时间里！！ --------------------编程问答-------------------- 按照你的需求，好像应该使用单选按钮而不是多选按钮。 --------------------编程问答-------------------- 我是用的单选，一个个控制的哦！ --------------------编程问答-------------------- 你写的语句是都清空了。

"UPDATE khgl SET 询价时间 =  '" & DTP3.Value & "' where x= y" 
--------------------编程问答-------------------- 帮顶。 --------------------编程问答--------------------

引用 2 楼 twtdn 的回复:

我是用的单选，一个个控制的哦！

Check是多选，Option是单选。 --------------------编程问答-------------------- 还是没有解决? --------------------编程问答--------------------

引用 3 楼 aisac 的回复:

你写的语句是都清空了。

"UPDATE khgl SET 询价时间 =  '" & DTP3.Value & "'where x= y"

不是都清空了，是所有的记录的 询价时间都变成 dtp3.value了 --------------------编程问答-------------------- '更新日期类型的数据

update [table] set [field]=cdbl(dtp.value) where [fieldx]=''

'条件语句（where [fieldx]=''）可以不加，那样数据库中所有的记录field字段都被更改成同一个值

补充：VB ,  数据库(包含打印，安装，报表)