vb修改

        res!id = Text14.Text
        If Check1.Value = 1 Then
        res!来电时间 = DTP1.Value
        Else
        DTP1.Enabled = False
       DTP1.Value = vbNull
        End If
        If Check2.Value = 1 Then
        res!去电时间 = DTP2.Value
        Else
        DTP2.Enabled = False
        DTP3.Value = vbNull
        End If
        res!公司名称 = Text1.Text
        res!客户区域 = Text2.Text
        res!联系人 = Text3.Text
        res!联系电话 = Text4.Text
        res!产品 = Text5.Text
        res!认证类型 = Text6.Text
        res!客户问题 = Text7.Text
        res!销售代表 = Combo1.Text
        res!跟踪进展1 = Text8.Text
        res!跟踪进展2 = Text15.Text
        res!跟踪进展3 = Text15.Text
        res!当时回复 = Combo2.Text
        res!业务部门 = Combo3.Text
        res!客户分类 = Combo4.Text
        If Check3.Value = 1 Then
        res!询价时间 = DTP3.Value
        Else
        DTP3.Enabled = False
      DTP3.Value = vbNull
        End If
        res!报价人 = Combo5.Text
        res!报价时效 = Combo6.Text
        If Check4.Value = 1 Then
        res!下次联系时间 = DTP4.Value
         Else
         DTP4.Enabled = False
           DTP4.Value = vbNull
                End If
        res!备注跟踪情况 = Text9.Text
        res!最终结果 = Text10.Text
        res!原因分析 = Text11.Text
        res!改进建议 = Text12.Text
        res!备注 = Text13.Text
res.Update
res.Close
    MsgBox "保存修改完毕!", vbOKOnly, "提示"
以上是修改代码，日期无法修改，四个dtpicker对应四个check控件（日期可选的），其它的修改都正常，还有存入日期之后无法清空 --------------------编程问答-------------------- res!来电时间 = format(DTP1.Value, "yyyy-mm-dd")
4个DTP*.Value,都这样改一下 --------------------编程问答-------------------- 现在的问题是无法把存入的日期清空，当按下check控件时，dtpicker控件变成灰色，希望在灰色的情况下不存入日期~ --------------------编程问答-------------------- if not isnull(DTP1.Value) then
res!来电时间 = format(DTP1.Value, "yyyy-mm-dd")

endif --------------------编程问答--------------------         If Check3.Value = 1 Then
        res!询价时间 = DTP3.Value
        Else
        DTP3.Enabled = False
      DTP3.Value = vbNull
        res!询价时间 = null（如果不行就试试vbnull）
        End If --------------------编程问答-------------------- 谢谢楼上两位弟兄，还是搞不好啊，能有好的办法吗？ --------------------编程问答--------------------

引用 5 楼 twtdn 的回复:

谢谢楼上两位弟兄，还是搞不好啊，能有好的办法吗？

能详细点？ --------------------编程问答-------------------- 就是存入日期之后，要把日期清空，MSHFlexGrid1控件中有一列“来电时间”=2009-8-15，现在要修改这个日期，把这列变成空值，修改的时候赋值给一个dtpicker控件，当勾选上check，让dtpicker变成变色，就是无法添加日期了，如果能看下介面您就明白了，能加我QQ吗：511178679 --------------------编程问答-------------------- 控件的基本功能都没掌握，用控件时至少将帮助中该控件的属性浏览一遍。

'1)将 DatePicker 的属性中选上 CheckBox



'2)设为空

DTPicker1.Value = Null



'3)设为某个日期

DTPicker1.Value = Now()

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