VB±à³ÌÐòÅжÏ×ø±êÏóÏÞ
ÎÒµÄÒ»¸ö¼òµ¥µÄVBÅжÏÏóÏÞµÄÎÊÌâ Ôõô»áÔÚVB»·¾³ÏÂÔËÐгö´íÁË£¿
¸ßÊÖÃǰïÎÒ¿´Ò»Ï£¡£¡£¡
If...Then...Else... µÄÑ¡Ôñ½á¹¹
Æ½ÃæÖ±½Ç×ø±êϵÖУ¬²»Í¬ÏóÏÞÄÚµãµÄÇé¿ö
Private Sub Command1_Click()
x=Val(Text1.Text)
y=Val(Text2.Text)
If x=0 Or y=0 Then Print "¸Ãµã²»ÔÚÏóÏÞÄÚ"£ºExit Sub
If x>0 Then If y>0 Then print "ÔÚµÚÒ»ÏóÏÞ" Else Print "ÔÚµÚËÄÏóÏÞ"
Else If y>0 Then Print "ÔÚµÚ¶þÏóÏÞ" Else print "ÔÚµÚÈýÏóÏÞ"
End Sub
µÚ¶þ¸öElse Ò²¾ÍÊÇx<0µÄÇé¿ö ˵ûÓжÔÓ¦µÄIf£¬Õâµ½µ×ÊǸöʲôÔÒò£¿
лÀ²£¡£¡£¡
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡¡
·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?
ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡
°ï¶¥ ......