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

VB¿Ø¼þС問題

ÔÚ½çÃæÉÏÓÐÒ»個¿Ø¼þCombo1£¬點選Äê·Ý¡£Ôõô×ö£¿ÒÔǰ¶¼Ö±½Ó¸ãÒ»個Text讓ÓÃ戶×Ô¼º選£¬這´ÎËûÒª點選£¡
for idx = startyear to endyear
combo1.add idx
next


ÓÃDateTimePacker£¬ÊÕËõʱÊÇComboʽÑù£¬Õ¹¿ªÊÇÈÕÀú±í£¬Ñ¡ÔñºóÖµÖ±½ÓÊǸñʽ»¯ºÃµÄÈÕÆÚ¡£

VB code:
Private Sub Combo1_Click()
Combo1.Text = Combo1.List(Combo1.ListIndex)
End Sub

Private Sub Form_Load()
Dim i
For i = 1900 To 2100
Combo1.AddItem i
Next
Combo1.ListIndex = 109
End Sub



listÊôÐÔÀïÃæÊäÈë½øÈ¥¾Í¿ÉÒÔÁË,°´ctrl+enter»»ÐÐ

ÒýÓÃ
ÓÃDateTimePacker£¬ÊÕËõʱÊÇComboʽÑù£¬Õ¹¿ªÊÇÈÕÀú±í£¬Ñ¡ÔñºóÖµÖ±½ÓÊǸñʽ»¯ºÃµÄÈÕÆÚ¡£


¶¥Õâ¸ö

¶¼²»錯¡£µÈ¹þÉϰàÁ˾Í結°¸ËÍ·Ö¹þ


Ïà¹ØÎÊ´ð£º

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

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

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

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

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

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

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

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

VB ×Ö·ûÎÊÌâ

  TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
   

´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ  TF1.text = & ......

vbÖÐsqlÓï¾äÒýºÅÎÊÌâ

"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......

²ËÄñѧVB£¬

²ËÄñѧVB,¸÷λ´óÏÀÄܰïÖúÎÒô£¬ÎÒµÄQQÊÇ544508194£¬mail.  huguyue619@163.com
¿ÒÇë¸÷λ´óÏÀ¼ÓÎÒ£¬Ö¸µãСµÜÒ»¶þ
Çë¾­³£¹â¹Ë±¾ÂÛ̳,ÓÐÒÉÄÑÖÚ¶à¸ßÊÖ¶¼»á¾¡Á¦.

¶¯ÊÖʵ¼ùд´úÂë,¾­³£¹â¹Ë±¾ÂÛ̳ä¯ÀÀÓëѧϰ.
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ