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 ("Ð޸ijɹ¦")
ÒÔÉÏÊÇÐ޸ĴúÂ룬ÐÞ¸ÄÈÎÒâÒ»Áж¼Ã»ÓÐÎÊÌ⣬µ±dtpicker´æÈëÈÕÆÚÖ®ºó£¬ÎÞ·¨Çå¿Õ£¬dtpikcerÓÉcheck¿ØÖÆ£¬µ±dtpicker±ä³É»Òɫʱ£¬²»´æÈëÈÕÆÚ£¡

---

dtpicker¿Ø¼þ²»Ö§³ÖÇå¿ÕµÄ×î´óÄêÏÞÖ§³Ö9999-12-31
ÄãÉϱߵÄÅжÏÖпÉÒÔÓÃupdate setÖ±½Ó±ÜÃâµÄ

---

'²»ÖªµÀdtpickerÊDz»ÊÇÕâ¸öÊôÐÔ£¬Ò²ÐíÊÇdtpicker.Enabled =False£¬·´Õý¾ÍÊÇÅжÏΪ»Òɫʱ¡£
If DTP1.Value = Enabled Then
res!À´µçʱ¼ä = DTP1.Value