怎样给datacombo的datasource赋值

Question

dim rs as new recordset
...
rs.open
Set Me.DataCombo1.DataSource = rs你的写法似乎没错，但要保证mdimain.rsbm中有BoundColumn属性所设定的字段

Answer 1

Set Me.DataCombo1.RowSource = mdimain.rsbm
  Me.DataCombo1.ListField = mdimain.rsbm("所在工段")
正确吗

Answer 2

dim rs1 as new recordset
dim rs2 as new recordset
...
rs1.open
rs2.openwith Me.DataCombo1
set .DataSource = rs1
set .rowsource=rs2
.listfield=rs2.fields(?).name
.BoundColumn=rs2.fields(?).name
.DataField ==rs1.fields(?).name
end with