Private Sub Combo1_Change()
If Combo1.Text = 花号表1 Then
DataGrid1.DataSource = Adodc2.Recordset

ElseIf Combo1.Text = 花号表 Then
DataGrid1.DataSource = Adodc1.Recordset

End Sub

上面是程序代码，点击下拉选择框，以表格的形式显示不同的数据，2个ado控件分别指向2个不同的数据源，一个下拉选择框combobox，其list属性为 花号表，花号表1
为啥运行后没有反应，表格中没有显示任何数据？
[attach]70057[/attach]

[ 本帖最后由 jefferman 于 2013-4-9 12:58 编辑 ]

多谢各位大大，调试成功的代码奉上

Option Explicit


Private Sub Combo1_Click()
If Combo1.Text = "花号表" Then
DataGrid1.ClearFields
Adodc1.Refresh
Label5.Caption = 2
Set DataGrid1.DataSource = Adodc1.Recordset

ElseIf Combo1.Text = "花号表1" Then
DataGrid1.ClearFields
Adodc2.Refresh
Set DataGrid1.DataSource = Adodc2.Recordset
Label5.Caption = 1
Else
DataGrid1.ClearFields
End If
End Sub

[ 本帖最后由 jefferman 于 2013-4-9 16:59 编辑 ]