ÔõÑù±£´æVBµÄcomboboxµÄlistÖµ£¿
form1 ÖУ¬ÎÒÔÚText1ÀïÊäÈë1111111111
Dim str1 As String
Private Sub Command1_Click()
str1 = Me.Text1.Text
Combo1.AddItem str1
End Sub
µãCommand1£¬¾Íдµ½Combo1µÄ ÏÂÀ²Ëµ¥ÀïÈ¥ÁË¡£
µ«Í˳öform1ºó£¬ÔÙload form1, ÏÂÀ²Ëµ¥ÀïûÓÐÁË1111111111¡£
ÇëÎÊÔõÑù±£´ælistÖµ
¼Ó¸ö public collection ÔÚ bas À¼Ç¼ ËùÓÐµÄ combo1µÄ£¬
load form1 ʱ£¬ÖØмӡ£
Äã¿ÉÒÔÓÃ數據±í來´æ儲ListÖµ£¬當Load時£¬從數據±í¼Ó載List內ÈÝ¡£
Äã±Ø須ÔÚ´°體關閉時£¬°ÑComboµÄList項´æ儲ÏÂ來£¬Äã¿ÉÒÔ´æ儲µ½數據±í£¬Ò²¿ÉÒÔ´æ·Åµ½ÎļþÖУ¬È»ááÔÚ´°體¼Ó載時£¬ÔÙ從´æ儲µÄµØ·½¼Ó載這ЩList項¡£
Dim str1 As String
Private Sub Command1_Click()
str1 = Me.Text1.Text
Combo1.AddItem str1
'DÔÚÕâÀïÔÙÔö¼Ó´úÂë±£´æstr1ÖÁÎļþÖÐ,Ï´μÓÔØ´°Ìåʱ,ÔÙ´ÓÎļþÖжÁ³öÖµÔö¼Óµ½combo1ÖÐ
End Sub
дµ½Êý¾Ý¿âÀÿ´Î´ÓÊý¾Ý¿âÀï¶Á
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿Ø¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓƵ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
function multi(a as integer,b as integer,optional third)
dim n as integer
n = a * b
if not ismissing (third) then
n = n * thid
end if
multi = n
end fu ......