怎么在组合框内先取一个记录，然后在列表框中显示出其他字段的记录，即组合框和列表框怎么联动啊
组合框项目：select 列1 from 表
列表框内容：select 列2 from 表 where 列1='组合框选定内容'
列表框内容：select 列2 from 表 where 列1='组合框选定内容'
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-06-08
举例：
假设一个表 Table1,表内用于在组合框中显示并选择的字段名为 编号，且其唯一（即记录中同一编号的只有一条记录，这符合索引和逻辑）。下面写代码：
在FROM的INIT事件中写上:
USE Table1 IN 0 ALIAS Table1
PUBLIC f
f=AFIELDS(a,"Table1")
PUBLIC ArrayField(f)
Thisform.Combo1.Rowsourcetype= 6
Thisform.Combo1.Rowsource="Table1.编号"
Thisform.Refresh
在FORM的DESTROY里写上：
RELEASE ArrayField,f
SELECT Table1
USE
在组合框的INTERACTIVECHANGE事件里写上：
B=VAL(ALLTRIM(THISFORM.COMBO1.Value)) **这里假设 编号 字段为数值型，所以要转化成字符型**
SELECT * FROM Table1 WHERE 񅧏=B INTO ARRAY Arr
FOR i=1 TO f
STORE Arr(1,i) TO ArrayField(i)
endfor
thisform.list1.RowSourceType= 5
thisform.list1.RowSource="ArrayField"
Thisform.List1.Refresh本回答被提问者采纳
假设一个表 Table1,表内用于在组合框中显示并选择的字段名为 编号，且其唯一（即记录中同一编号的只有一条记录，这符合索引和逻辑）。下面写代码：
在FROM的INIT事件中写上:
USE Table1 IN 0 ALIAS Table1
PUBLIC f
f=AFIELDS(a,"Table1")
PUBLIC ArrayField(f)
Thisform.Combo1.Rowsourcetype= 6
Thisform.Combo1.Rowsource="Table1.编号"
Thisform.Refresh
在FORM的DESTROY里写上：
RELEASE ArrayField,f
SELECT Table1
USE
在组合框的INTERACTIVECHANGE事件里写上：
B=VAL(ALLTRIM(THISFORM.COMBO1.Value)) **这里假设 编号 字段为数值型，所以要转化成字符型**
SELECT * FROM Table1 WHERE 񅧏=B INTO ARRAY Arr
FOR i=1 TO f
STORE Arr(1,i) TO ArrayField(i)
endfor
thisform.list1.RowSourceType= 5
thisform.list1.RowSource="ArrayField"
Thisform.List1.Refresh本回答被提问者采纳
