Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vb datagrid sql

Ò»¸ö´°Ì壬3¸ödatagrid£¬¹²¼Æ3¸ö±í£¬Ò»¸ö±í¶ÔÓ¦Ò»¸ödatagrid£¬µã»÷datagrid1(´ò¿ª¸Ã´°ÌåʱÒѾ­±»¸³Öµ)£¬¸ù¾Ýdatagrid1ÖеÄij¸öÖµ£¬²éѯ±í2ºÍ±í3£¬²¢°Ñ·ûºÏÌõ¼þµÄ·Ö±ð¸³Öµ¸ødatagrid2ºÍdatagrid3£¬ÒªÔõôд

VB code:
Private Sub DataGrid1_Click()
'ÔÚ´Ë´¦Ð´SQL²éѯÓï¾ä»ñµÃ¼Ç¼¼¯,²¢°ó¶¨¸Ã¼Ç¼¼¯µ½ÁíÍâµÄDataGrid¿Ø¼þ
End Sub



ÒýÓÃ
VB codePrivateSub DataGrid1_Click()'ÔÚ´Ë´¦Ð´SQL²éѯÓï¾ä»ñµÃ¼Ç¼¼¯,²¢°ó¶¨¸Ã¼Ç¼¼¯µ½ÁíÍâµÄDataGrid¿Ø¼þEnd Sub


ÎÒÖªµÀÕâÑùд£¬¿ÉÊDzéѯÓï¾äºÍÁ¬½ÓÊý¾Ý¿â¾­³£´íÎ󣬲»ÖªµÀÄÇÀï´íÁË

VB code:
Private Sub DataGrid1_Click()
DataGrid2.Visible = False
Adodc2.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=jwl_dbf"
Adodc2.RecordSource = "select * from JWCK_BM" & " where ±¸¼þ´úÂë ='" & Adodc1.Recordset(2) & "'"
Adodc2.Refresh
Text1.SetFocus
DataGrid2.Visible = True
End Sub


Adodc1.Recordset(2)ÊǽÓ×ŲéѯµÄÌõ¼þ,ͨ¹ýÊó±êµã»÷DataGrid1×ó²à»ÒÉ«ÇøÓò»ñÈ¡,Recordset(2)ÖкìÉ«Êý×Ö±àºÅ¶ÔÓ¦¾ßÌåµÄ×Ö¶ÎÐÞ¸Ä.

'µ¥»÷datagrid1ʱ£¬°ÑÆäÑ¡ÖÐµÄ ¿Í»§×÷Ϊ²éѯÌõ¼þ ²éѯ ±¸×¢ºÍ°Ý·Ã (beizhu  baifang)Á½±íÖУ¬²¢·Ö±ð¸³Öµ¸ø datagrid2 ºÍdatag


Ïà¹ØÎÊ´ð£º

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

vb WebBrowser СÎÊÌ⣬Çë½Ì - VB / »ù´¡Àà

vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·

¶¥Ï¶¥ÏÂ

ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0

BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......

VBÌîÐ´ÍøÒ³Îı¾Çø - VB / »ù´¡Àà

ÓÐÁ½¸öÎÊÌâ
µÚÒ»¸öÎÊÌ⣺
ÍøÒ³Ô´Âë
<td><select name="question" onchange="showcustomquest(this.value)" tabindex="4"><option value="0">ÎÞ°²È«ÎÊ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ