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дµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
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 code:
'sqlstr = "INSERT INTO useinfo " & "(usename ,password)" & " values (' " & usename & " ' " & ",'" & password & ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......