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()º¯數¾Í¿ÉÒÔ¡£
Ïà¹ØÎÊ´ð£º
¸÷λ´óÏÀ£¬ÏÖÓÐÒ»ÄÑÌâÇó½Ì£º¼ÙÉèÊý¾Ý¿â£¨mysql»òoracle¡¡µÈÊý¾Ý¿â£©°²×°ÔÚLINUXϵͳµÄ·þÎñÆ÷ÉÏ£¬ÎÒÔÚ¿Í»§¶Ë£¨windowsϵͳ£©ÓÃVBÈçºÎ½¨Á¢ÓëÊý¾Ý¿âµÄÁ¬½Ó£¬ÊÇ·ñ¿ÉÒÔʹÓÃÀàËÆADO»òDAOµ±ÖеÄÁ¬½ÓÓï¾ä£¿ÇëÄÄλ´óÏÀÖ¸µ¼Ò ......
¸÷λ´óÏÀ£¬ÏÖÓÐÒ»ÄÑÌâÇó½Ì£º¼ÙÉèÊý¾Ý¿â£¨mysql»òoracle¡¡µÈÊý¾Ý¿â£©°²×°ÔÚLINUXϵͳµÄ·þÎñÆ÷ÉÏ£¬ÎÒÔÚ¿Í»§¶Ë£¨windowsϵͳ£©Óà VBÈçºÎ½¨Á¢ÓëÊý¾Ý¿âµÄÁ¬½Ó£¬ÊÇ·ñ¿ÉÒÔʹÓÃÀàËÆADO»òDAOµ±ÖеÄÁ¬½ÓÓï¾ä£¿ÇëÄÄλ´óÏÀÖ¸µ¼ ......
ÓÉÓÚÿÔ´ӱðµÄ¹«Ë¾ËÍÀ´Ò»¸ötxtÎļþ£¬¸ñʽÈçÏ£º 0023939608011»Æ¸ùÑø &n ......
ÔÚ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= ......
´úÂëÈçÏ£º Private Sub MSFlexGrid1_SelChange() If MSFlexGrid1.Rows = 1 Then Exit Sub If MSFlexGrid1.Row = 0 Then Exit Sub grid_row = MSFlexGrid1.Row ......