vb修改DTPicker1日期问题
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 cmd_Click()
Set cn = New ADODB.Connection
Set res = New ADODB.Recordset
cn.Open "provider=SQLOLEDB;server=it;database=khgl1;uid=sa;pwd=123456"
res.CursorLocation = adUseClient
res.Open "select * from khgl", cn, adOpenStatic, adLockOptimistic
Set frm_xxxg.MSHFlexGrid1.DataSource = res
On Error Resume Next
if check1.value=1 then
res!来电时间 = DTP1.Value
else
res!来电时间=vbnull
if check2.value=1 then
res!去电时间 = DTP2.Value
else
res!去电时间=vbnull
res!公司名称 = Text1.Text
res!客户区域 = Text2.Text
res.Update
res.Close
MsgBox ("修改成功")
以上是修改代码，修改任意一列都没有问题，当dtpicker存入日期之后，无法清空，dtpikcer由check控制，当dtpicker变成灰色时，不存入日期！
dtpicker控件不支持清空的最大年限支持9999-12-31
你上边的判断中可以用update set直接避免的
'不知道dtpicker是不是这个属性，也许是dtpicker.Enabled =False，反正就是判断为灰色时。
If DTP1.Value = Enabled Then
res!来电时间 = DTP1.Value
相关问答：
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
