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

VB Îı¾¿ò

×Ö·û´® m1="E"
×Ö·û´® m2="F"

Èç¹ûtext1.text=m1+m2µÄ»°  Ôòtext1ÏÔʾµÄÊÇ EF

µ«ÊÇÈç¹û
×Ö·û´® m1="E"
×Ö·û´® m2="6"
Èç¹ûtext1.text=m1+m2µÄ»°  Ôòtext1ÏÔʾµÄÊÇ E 6 £¨EºÍ6Ö®¼äÓиö¿Õ¸ñ Ôõô²»ÈÃÓпոñ£©
m1 & m2

¹Ø±ÕÖÐÎÄÊäÈë·¨ÊäÈëE¾ÍûÕâ¸öÎÊÌâÁË
¶Ô×Ö·û´®µÄ´¦ÀíÀ´Ê飬+ºÍ&ûʲô²î±ð

text1.text=trim(m1) & trim(m2)


ÒýÓÃ
text1.text=trim(m1) & trim(m2)


3Â¥Õâ¸ö»Ø¸´ÊÇÕýÈ·´ð°¸¡£

Ó¦¸ÃÒ»Ñù°¡

ÒýÓÃ
¹Ø±ÕÖÐÎÄÊäÈë·¨ÊäÈëE¾ÍûÕâ¸öÎÊÌâÁË
¶Ô×Ö·û´®µÄ´¦ÀíÀ´Ê飬+ºÍ&ûʲô²î±ð


¸öÈËÈÏΪÕâ¸öÓеÀÀí¡£

µÄ確£¬Ê×ÏÈÒª確¶¨È«½Ç»ò°ë½â£¬
Èç¹ûÕæÊǶàÁËÒ»個¿Õ¸ñ£¬Ê¹ÓÃTrim()º¯數¾Í¿ÉÒÔ¡£

VB code:

Private Sub Command1_Click()
Dim m1 As String, m2 As String
m1 = "E"
m2 = "6"
MsgBox m1 + m2
End Sub



ÎÒ²âÊÔµÄ"E6"
˵Ã÷ÄãEµÄÊäÈëÓ¦¸ÃÔÚÈ«½Ç״̬Ï£¬µ«ÊÇÈç¹ûÊÇÕâÑùµÄ»°ÄãÒ²²»Ó¦¸Ã³öÏÖ"EF"¡£
ÎÞÂÛÔõÑù»¹ÊÇд´úÂ뻹ÊÇ×ÐϸΪÉÏ

ÒýÓÃ
µÄ確£¬Ê×ÏÈÒª確¶¨È«½Ç»ò°ë½â£¬
Èç¹ûÕæÊǶàÁËÒ»個¿Õ¸ñ£¬Ê¹ÓÃTrim()º¯數¾Í¿ÉÒÔ¡£


Ïà¹ØÎÊ´ð£º

VBÓëLINUXÏÂÊý¾Ý¿âÁ¬½ÓµÄÎÊÌâ

¸÷λ´óÏÀ£¬ÏÖÓÐÒ»ÄÑÌâÇó½Ì£º¼ÙÉèÊý¾Ý¿â£¨mysql»òoracle¡­¡­µÈÊý¾Ý¿â£©°²×°ÔÚLINUXϵͳµÄ·þÎñÆ÷ÉÏ£¬ÎÒÔÚ¿Í»§¶Ë£¨windowsϵͳ£©ÓÃVBÈçºÎ½¨Á¢ÓëÊý¾Ý¿âµÄÁ¬½Ó£¬ÊÇ·ñ¿ÉÒÔʹÓÃÀàËÆADO»òDAOµ±ÖеÄÁ¬½ÓÓï¾ä£¿ÇëÄÄλ´óÏÀÖ¸µ¼Ò ......

VBÓëLINUXÏÂÊý¾Ý¿âÁ¬½ÓµÄÎÊÌâ

¸÷λ´óÏÀ£¬ÏÖÓÐÒ»ÄÑÌâÇó½Ì£º¼ÙÉèÊý¾Ý¿â£¨mysql»òoracle¡­¡­µÈÊý¾Ý¿â£©°²×°ÔÚLINUXϵͳµÄ·þÎñÆ÷ÉÏ£¬ÎÒÔÚ¿Í»§¶Ë£¨windowsϵͳ£©Óà VBÈçºÎ½¨Á¢ÓëÊý¾Ý¿âµÄÁ¬½Ó£¬ÊÇ·ñ¿ÉÒÔʹÓÃÀàËÆADO»òDAOµ±ÖеÄÁ¬½ÓÓï¾ä£¿ÇëÄÄλ´óÏÀÖ¸µ¼ ......

Çë½ÌÓÃvb½«txtµ¼ÈësqlµÄÎÊÌâ

ÓÉÓÚÿÔ´ӱðµÄ¹«Ë¾ËÍÀ´Ò»¸ötxtÎļþ£¬¸ñʽÈçÏ£º
   
0023939608011»Æ¸ùÑø                                &n ......

vb+sql

ÔÚVBÖУ¬ÈçºÎÖ´ÐÐÏÂÃæµÄSQLÓï¾ä
Update t_Icitem Set f_102 = IsNull(f_102,0)+1 Where FNumber='0001'
±ÈÈ磺
cn.execute("Update t_Icitem Set f_102 = IsNull(f_102,0)+1 Where FNumber=&# ......

vb MSFlexGrid1.Row ʵʱ´íÎó'30009'RowÊýÖµÎÞЧ

´úÂëÈçÏ£º
Private Sub MSFlexGrid1_SelChange()
  If MSFlexGrid1.Rows = 1 Then Exit Sub
  If MSFlexGrid1.Row = 0 Then Exit Sub
 
  grid_row = MSFlexGrid1.Row
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ