VBÄÚÈçºÎʹÓÃÔ¤±àÒë²ÎÊý
É¢¼¼Êõ·Ö»¹ÕæÂé·³ - -
ÈçÌ⣬VBÄÚÈçºÎʹÓÃÔ¤±àÒë²ÎÊý¡£
ÕâÊǽӵÄÉÏÒ»Ìù°É
#If Ìõ¼þ1 Then
Óï¾ä1
#ElseIf Ìõ¼þ2 Then
Óï¾ä2
#Else
Óï¾ä3
#End If
Âú×ãÌõ¼þ1°´Óï¾ä1±àÒ룬Âú×ãÌõ¼þ2°´Óï¾ä2±àÒ룬Äã˵µÄÊÇÕâ¸öÂð£¿
#If...Then...#Else Ö¸Áî
Ìõ¼þ±àÒëÒÑÑ¡ÔñµÄ Visual Basic ´úÂë¿é¡£
Óï·¨
#If expression Then
statements
[#ElseIf expression-n Then
[elseifstatements]]
[#Else
[elsestatements]]
#End If
#If...Then...#Else Ö¸ÁîµÄÓï·¨¾ßÓÐÒÔϼ¸¸ö²¿·Ö£º
²¿·Ö ÃèÊö
expression ±ØÒª¡£°üº¬Ò»¸ö»ò¶à¸öÌõ¼þ±àÒë³£Êý¡¢ÎÄ×ÖÓëÔËËã·ûµÄÈκαí´ïʽ£¬ÆäֵΪ True »ò False¡£
statements ±ØÒª¡£Visual Basic ³ÌÐòÐлò±àÒëÖ¸ÁÈç¹û¹ØÁªµÄ±í´ïʽΪ True£¬ÔòÔËÐÐËüÃÇ¡£
expression-n ¿ÉÑ¡¡£ÓÉÒ»»ò¶à¸öÌõ¼þ±àÒë³£Êý¡¢ÎÄ×ÖºÍÔËËã·û×é³ÉµÄÈκÎÒ»¸ö±í´ïʽ£¬ÆäֵΪ True »ò False¡£
elseifstatements ¿ÉÑ¡¡£Ò»¸ö»ò¶à¸ö³ÌÐòÐлò±àÒëÃüÁÈç¹û expression-n Ϊ True£¬ÔòÔËÐÐËüÃÇ¡£
elsestatements ¿ÉÑ¡¡£Ò»¸ö»ò¶à¸ö³ÌÐòÐлò±àÒëÃüÁÈç¹ûÒÔǰµÄexpression »ò expression-n ÖÐûÓÐÒ»¸öΪ True£¬ÔòÔËÐÐËüÃÇ¡£
˵Ã÷
#If...Then...#Else Ö¸ÁîµÄ×÷ÓÃÓë If...Then...Else Óï¾äÏàͬ£¬Æä²îÒìÔÚÓÚ #If¡¢#Else¡¢#ElseIf£¬¼° #End If Ö¸ÁîûÓе¥¶À³ÉÐеÄÐÎʽ£¬Ò²¾ÍÊÇ˵£¬Ô
Ïà¹ØÎÊ´ð£º
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = & ......
ÕâÊÇÎÒÔÀ´Á¬½ÓSQLµÄ´òÓ¡µÄ´úÂë
Connection1.Open "Provider=MSDataShape.1;Persist Security Info=True;Data Source=mm;User ID=sa;Password=sa;Initial Catalog=lc-liuh2;Data Provider=SQLOLEDB.1"Ê ......