Question

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
res!id = Text14.Text
If Check1.Value = Checked Then
res!来电时间 = DTP1.Value
Else
DTP1.Enabled = False
End If
If Check2.Value = Checked Then
res!去电时间 = DTP2.Value
Else
DTP2.Enabled = False
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 = Checked Then
res!询价时间 = DTP3.Value
Else
DTP3.Enabled = False
End If
res!报价人 = Combo5.Text
res!报价时效 = Combo6.Text
If Check4.Value = Checked Then
res!下次联系时间 = DTP4.Value
Else
DTP4.Enabled = False
End If
res!备注跟踪情况 = Text9.Text
res!最终结果 = Text10.Text
res!原因分析 = Text11.Text
res!改进建议 = Text12.Text
res!备注 = Text13.Text
res.Update
res.Close
MsgBox "保存修改完毕!", vbOKOnly, "提示"
以上是我的修改代码，其它的都没有问题，现在就是无法清空日期，就是已有日期之后，把它清除变成空值（采用的是check和dtpicker）
兄弟们，是在讨论问题，不是说VB哈

Answer 1

过时了吗？我怎么不觉得。
要说过时了你怎么不用VB2008？？怎么说也比你2005新3年吧。

Answer 2

用VB2005吧 VB6.0早过时了

Answer 3

日期设置成0000-00-00，就算是空的吧。