|
#2
Artless2013-04-09 13:16
|
程序代码：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属性为 花号表，花号表1If Combo1.Text = 花号表1 Then
DataGrid1.DataSource = Adodc2.Recordset
ElseIf Combo1.Text = 花号表 Then
DataGrid1.DataSource = Adodc1.Recordset
End Sub
只有本站会员才能查看附件，请 登录
为啥运行后没有反应，表格中没有显示任何数据？[attach]70057[/attach]
[ 本帖最后由 jefferman 于 2013-4-9 12:58 编辑 ]