DataList 和 DataCombo 用法一样dim rs1 as new recordset dim rs2 as new recordset ... rs1.open strSQL,YourConn,?,? rs2.open strSQL,YourConn,adOpenKeyset,?with Me.DataCombo1 set .DataSource = rs1 set .rowsource=rs2 .listfield=rs2.fields(?).name .BoundColumn=rs2.fields(?).name .DataField ==rs1.fields(?).name end withhttp://expert.csdn.net/Expert/topic/1555/1555547.xml?temp=.8196527
dim rs2 as new recordset
...
rs1.open strSQL,YourConn,?,?
rs2.open strSQL,YourConn,adOpenKeyset,?with Me.DataCombo1
set .DataSource = rs1
set .rowsource=rs2
.listfield=rs2.fields(?).name
.BoundColumn=rs2.fields(?).name
.DataField ==rs1.fields(?).name
end withhttp://expert.csdn.net/Expert/topic/1555/1555547.xml?temp=.8196527
Set DataList1.RowSource = rs
DataList1.ListField = "字段"
DataList1.DataField = "字段"