combo2.additem "男"
combo2.additem "女"
else
with adodc1
.commandtype = cmdtytable
.recordsource = "专业表"
.refresh
end with
for i =1 to adodc1.recordset.recordcount
combo2.additem adodc1.recordset.fields("专业")
combo2.recordset.movenext
next i
end if
唔 都是手大的 可能有些地方拼错了
您好,我先纠正下您的错误。首先组合框的数据类型是没有表这个选项的。您说的是值吧那我给您解释下,
首先将combo1的rowsourcetype设置为1-值,然后将combo1的rowsource设置为:1,2,3,4
然后将combo1的style属性的值设置为下拉列表框
然后在命令按钮下面写代码
x=thisform.combo1.listcount
thisform.combo1.list(x+1)=thisform.text1.value
然后执行表单你会看到结果如您所想的实现了。
如需详细演示或解释,加Q:675079855
加Q时声明(百度知道)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)