ÎÒÓÐ2¸öVBÓ¦ÓóÌÐò£¬Ò»¸ö½Ða1.exeÒ»¸ö½Ða2.exe ÎÒÏë°ÑÕâ2¸ö³ÌÐòÉϵÄtext1.textºÍtext2.text ÉϵÄÊýͨ¹ýDDE¶Áµ½µÚ3¸ö³ÌÐòÉÏ£¬LinkItemºÍLinkTopicÌîʲô£¬»¹ÒªÌîÆäËûµÄÂð ÎÒÏë°ÑºÃ¼¸¸öÊý´«¹ýÈ¥£¬ÄǸö Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer) Text1.Text = CmdStr Cancel = 0 End Sub
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡ ²åÈë֮ǰselectһϰ¢¡£ »òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç IF not Exist( & ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......