Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

vbÈçºÎµ÷ÓÃIllustrator£¨´ËǰIllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

vb´ò°ü°²×°Ê±ÌáʾÊäÈëÐòÁкÅ

ÎÒÓÐ×Ô¶¯Éú³ÉÐòÁкŵijÌÐò£¬µ«ÊÇÔõô¸ú´ò°üºóµÄ°²×°³ÌÐò½áºÏÔÚÒ»Æð£¬ÔÚ°²×°Ê±ÌáʾÓû§ÊäÈëÐòÁкţ¬ÕýÈ·ºóÔÙ¼ÌÐø°²×°£¿£¿£¿
·½·¨1£ºÄã¿ÉÒÔÔÚÔËÐгÌÐòºóÊäÈëÐòÁкÅ×¢²á£¬ºÜ¶àÈí¼þ¶¼ÊÇÕâÑùµÄ¡£

·½·¨2£ºÊ¹ÓÃSetu ......

¶à¸ö¶¥µã»º´ævbµÄ²Ù×÷

¹²ÓÐ4¸öʾÀý¶¥µã»º´æInstanceVB1£¬InstanceVB2,InstanceVB3£¬InstanceVB4£¬ËüÃǵÄÖµ¶¼ÊÇͨ¹ýÒ»¸öÑ­»·½øÐи³Öµ£¬ÇëÎÊ¿ÉÒÔÈçϲÙ×÷Âð£¬Ôõô²Ù×÷ЧÂÊ×î¸ß£¿

InstanceVB1->Lock£¨...);
InstanceVB2->Loc ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ