另见http://expert.csdn.net/Expert/topic/1251/1251569.xml?temp=.4520838需要的控件
Adodc1
ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Program Files\Microsoft Visual Studio\" & _
"VB98\NWIND.MDB;" & _
"Persist Security Info=False"
RecordSource = "Orders"Adodc2
ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Program Files\Microsoft Visual Studio\" & _
"VB98\NWIND.MDB;" & _
"Persist Security Info=False"
RecordSource = "Customers"DataGrid1
DataSource = Adodc1
DataList1
RowSource = Adodc2
ListField = "CustomerID"
Visible = FalsePrivate Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
With DataList1
.Visible = True
.Left = DataGrid1.Left + DataGrid1.Columns(ColIndex).Left
.Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row) + DataGrid1.RowHeight
.Width = DataGrid1.Columns(ColIndex).Width
End With
DataList1.SetFocus
End SubPrivate Sub DataList1_Click()
DataGrid1.Text = DataList1.Text
DataList1.Visible = False
End SubPrivate Sub DataList1_Validate(Cancel As Boolean)
DataList1.Visible = False
End Sub
Adodc1
ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Program Files\Microsoft Visual Studio\" & _
"VB98\NWIND.MDB;" & _
"Persist Security Info=False"
RecordSource = "Orders"Adodc2
ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Program Files\Microsoft Visual Studio\" & _
"VB98\NWIND.MDB;" & _
"Persist Security Info=False"
RecordSource = "Customers"DataGrid1
DataSource = Adodc1
DataList1
RowSource = Adodc2
ListField = "CustomerID"
Visible = FalsePrivate Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
With DataList1
.Visible = True
.Left = DataGrid1.Left + DataGrid1.Columns(ColIndex).Left
.Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row) + DataGrid1.RowHeight
.Width = DataGrid1.Columns(ColIndex).Width
End With
DataList1.SetFocus
End SubPrivate Sub DataList1_Click()
DataGrid1.Text = DataList1.Text
DataList1.Visible = False
End SubPrivate Sub DataList1_Validate(Cancel As Boolean)
DataList1.Visible = False
End Sub
[email protected]