Question

在vf中如何根据上一个combo内容，自动选择下一个combo的rowsource的字段？

if combo1.value=表.字段
combo2.rowsource=表.字段
endif
用数组可以实现也行。请各位大侠帮忙了！

Answer 1

不知道combo1的RowSourceType、RowSource的属性值是如何设置的。

还有，从你的提问来看，还真没有看懂你的具体要求是什么。

 

但我初步的建议是：

在combo1的InteractiveChange事件中写代码：

do case
case thisform.combo1.value="表.字段"
    thisform.combo2.RowSourceType=6
    thisform.combo2.RowSource="表.字段"
    thisform.combo2.Requery    &&刷新，必须的代码
case  XXX
    XXX
OTHERWISE
    XXX
endcase

追问

我在一个表单中设有两个combo,要根据combo1中选择的结果，combo2根据combo1的选择作出反应.是在combo2中的inteactivechange中设置吗？

以上的代码，combo2没有反应！

追答

在combo1的InteractiveChange事件中写代码,即修改combo1的值时，重置combo2的数据源，并刷新

追问

combo2的字段不是固定的，要根据combo1的结果进行改变的。

追答

我知道，所以我的代码里有进行重新设置的代码啊：
thisform.combo2.RowSourceType=6
thisform.combo2.RowSource="表.字段"
你可能有多种情况：

do case

case thisform.combo1.value="表1.字段"
thisform.combo2.RowSourceType=6
case thisform.combo1.value="表2.字段"
thisform.combo2.RowSource="表2.字段"
thisform.combo2.Requery &&刷新，必须的代码
case thisform.combo1.value="表3.字段"
thisform.combo2.RowSource="表3.字段"
thisform.combo2.Requery &&刷新，必须的代码

endcase

追问

我用的表是同一个表中的两个字段，比如，combo1是**乡，combo2应该显示出来该乡的'村‘，用一个表不行吗？不管怎么说，先谢谢您！明天继续。

追答

设置combo1的以下两个属性值：

RowSourceType=3
RowSource=“sele 乡镇 dist from 村名库  into cursor t1”  &&不要加引号

&&此处假设数据表名为“村名库.dbf”，分别有“乡镇”、“村名”两个字段

编写combo1的InteractiveChange代码：

this.Parent.combo2.Clear     &&清除
SELECT 村名库   &&指定工作区
SCAN FOR 乡镇==this.displayvalue  &&指定添加到combo2行的范围
    this.Parent.combo2.AddItem(村名)
ENDSCAN

 combo1的InteractiveChange代码还可以写成：

thisform.combo2.Clear
thisform.combo2.Displayvalue=""
thisform.combo2.RowSource ="select 村名 from 村名库 into cursor t2 where allt(乡镇)==allt(this.displayvalue)"
THISFORM.COMbo2.Requery