Office中国论坛/Access中国论坛

标题: [已解决]请教一个下拉框的数据代码. [打印本页]

作者: g7235723 时间: 2009-5-11 11:25
标题: [已解决]请教一个下拉框的数据代码.
本帖最后由 g7235723 于 2009-5-11 15:02 编辑

想法是这样:
将一个下拉框和一个"数量"参数关联.
当"数量"=1,
下拉框的值是1.
当"数量"=2,
下拉框的值是1,2.
当"数量"=3,
下拉框的值是1,2,3.
...

请教一下该如何写VBA代码.
谢谢关注.

作者: 方漠 时间: 2009-5-11 12:00
Select Case  QTY
      Case 1
      youcomobox.value="1"
      case 2
      youcomobox.value="1,2"
      .....
End select

如果你的数量有很多种,不定,考虑用个FOR 循环构建字符串再赋值给下拉框.

作者: g7235723 时间: 2009-5-11 14:17
对不起,可能是我说错了
当"数量"=3,
我指得是下拉框的第一行的值是1,
第二行的值是2,
第三行的值是3...

作者: Henry D. Sy 时间: 2009-5-11 14:18
for i=1 to qty
combox=combox & I & ","
next

作者: g7235723 时间: 2009-5-11 14:35
本帖最后由 g7235723 于 2009-5-11 14:37 编辑

我试了下,Me.下拉框.RowSource = "1;2;3"
但报告出错.
"...记录源"1;2;3"不存在..."
是语法问题吗?

作者: g7235723 时间: 2009-5-11 15:02
找到错误原因了,要把"下拉框"的"行来源类型"改成:"值列表",就对了.

谢谢大家帮助.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)