ÎÒÔÚ¶ÁÎÒÃǹ«Ë¾Ö®Ç°µÄ´úÂëʱ·¢ÏÖÔÚÓÐЩ´úÂëǰÓмÓ#µÄ£¬¸´ÖÆÈçÏ£º
#If NO_FLOWER_MODE Then
......
#Else
......
#End If
ÇëÎÊÕâÖÖд·¨ÊÇʲôÒâ˼£¿
Ìõ¼þ±àÒëÒÑÑ¡ÔñµÄ Visual Basic ´úÂë¿é
#If...Then...#Else Ö¸ÁîµÄ×÷ÓÃÓë If...T ......
WebBrowser ³ÌÐòʵÏÖÍøÒ³À´Â·Ä£Äâ
±ÈÈçÎÒÓÐÁ½¸öÍøÒ³Ò»¸öÊÇAÒ»¸öÊÇB£¬BÖÐÓÐÍøÕ¾Í³¼Æ´úÂë
ÒªÇó WebBrowser ×Ô¶¯·ÃÎÊA ºÍ B£¬×îºóʹÔÚBµÄÍøÕ¾Í³¼Æ´úÂëÀ´Â·ÖгöÏÖA
¸ßÊÖ°ï°ïæѽ£¬Òª¼±ËÀÁË
²»Òª³ÁÏÂÈ¥£¬ÎÒûÓзÖÁË
ÔÙ¶¥ÔÙ¶¥
{{ ......
Ìáʾ'lse' ¸½½üÓÐÓï·¨´íÎó
sql = "update total set total.´¦ÀíÇé¿ö=case " & _
"when dpt.Description like '%ÎÞÈË%' then 1" & _
"when dpt.Description like '%¿ÕºÅ%' then 2" & _
" ......
´ó¼Ò°ïæ¿´¿´£¬Ã»ÓдíÎóÌáʾ£¬sql2ûִÐеÄÑù×Ó£¬Ö÷Òª¿´ÏÂDBA.DISPOSITION¸úsql2£¬£¬£¬Ð»Ð»£¬ÔÚÏßµÈ
VB code:
Private Sub Command1_Click()
Dim cn_db As New ADODB.Connection
Dim rs_db As New ADODB.Recordset
Dim rs_db2 As New ADODB.Recordset
Dim cn_sql As New ADODB.Connection
......
ÎÒÏëͨ¹ýµ¥Æ¬»ú¸øPC·¢ËÍdoubleÐ͵ÄÊý¾Ý£¬pc¶ËÓÃvb±àдµÄ£¬vbÈçºÎ½ÓÊÕdoubleÐ͵ÄÊý¾ÝÄØ£¿ÔÚµ¥Æ¬»ú¶ËÎÒÊÇͨ¹ýÁªºÏÌ彫doubleÐÍÊý¾Ý·Ö³É8¸ö×Ö½Ú·¢¹ýÈ¥µÄ¡£
ÿ¸ö×ֽڵķ¢£¬È»ºóÔÙÆ´ÆðÀ´
ÆäʵÓÃVB±à³Ì£¬ÄãÈí¼þ¶¼¿É¿Ø£»
Ïë½ÓÊÜdoubleÐ͵ÄÊý¾Ý£¬´¦ÀíµÄ·½·¨ºÜ¶à£¬Â¥ÉÏ˵µÄ¾ÍÊÇÆäÖÐÒ»ÖÖ¡£
Ò»°ã¿ÉÒÔÏÈ¿ª±ÙÒ»¸ö»º´æÇø£¬°Ñ½ÓÊܵÄÊ ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄÚ´æ·ÃÎʳåÍ»µÄÎÊÌ⣬ÇëÎÊÓÐûÓÐÈËÓöµ½¹ý£¬¿ª·¢»·¾³vs2008+win2008
Windows APIÀàµÄ±à³Ì£¬Ñϸñ½ûֹʹÓÃSTL
......