Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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
        res!È¥µçʱ¼ä = DTP2.Value
          -----
      res.Update
res.Close
MsgBox ("Ð޸ijɹ¦")
ÕâÊÇÎÒµÄÐ޸ĴúÂ룬ÐÞ¸ÄÈÕÆÚ,µ±´æÈëÈÕÆÚÖ®ºó£¬ÎÞ·¨Çå¿ÕÁË£¬Ö÷Òª²ÉÓà check¿Ø¼þ¿ØÖÆdtpicker£¬Ï£ÍûÔÚdtpicker¾Í³É»ÒÉ«£¬Ð޸ı£´æµÄʱºò²»´æÈëÈÕÆÚ£¡
ÄÇÔÚdtpicker²»ÄÜÓõÄʱºò¾Í²»Òª res!À´µçʱ¼ä = DTP1.Value ,ÅжÏÒ»ÏÂ

²»ÅжÏÖ»ÄÜÐÞ¸ÄÈÕÆÚ£¬ÎÞ·¨Çå¿Õ

dtpicker»¹ÓÐÒ»¸öCHECKBOXÊôÐÔ ¿ÉÒÔ½áºÏÓÃÒ»ÏÂ

checkboxÉèÖÃΪtrueÖ®ºó£¬°ÑdtpickerÉèÖÃΪnull£¬Ò²²»ÐÐ

À´µçʱ¼äºÍÀ´µçʱ¼äÔÚÊý¾Ý¿âÖÐÊÇʲôÀàÐÍ?×Ö·ûÐ


Ïà¹ØÎÊ´ð£º

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

vbÑ­»·

Option Explicit
Dim N As Integer
Private Sub Command1_Click()
    Dim A As Integer, B As Integer
    A = 2: B = 3
    For N = 1 To 6
      ......

VB ²éѯÓï¾ä³ö´í

VB code:
'sqlstr = "INSERT INTO useinfo " & "(usename ,password)" & " values (' " & usename & " ' " & ",'" & password & ......

vb´òÓ¡

ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢

VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)

    Printer.ScaleMode = vbMillimeters
    Print ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ