请教数据库控件datalist的dbclick事件
请教高手怎样实现双击某一行时将指定行的内容输出到另外一个控件上?
--------------------编程问答--------------------
Option Explicit
Private Sub DataList1_DblClick()
Adodc1.Recordset.Move DataList1.SelectedItem - 1, 1
Text1.Text = Adodc1.Recordset.Fields(1) & ""
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = C:\wgbc.mdb;Persist Security Info=False"
Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from ip"
Adodc1.Refresh
Set DataList1.DataSource = Adodc1
Set DataList1.RowSource = Adodc1
DataList1.ListField = Adodc1.Recordset.Fields(1).Name
End Sub
补充:VB , 基础类