列表框的数据源可以是固定表或者临时表
文本框INTERACTIVECHANGE事件代码
Public cValue
cValue=Alltrim(This.Value)
Select 别名 && 列表框数据源
If Empty(cValue)
Set Filter To
Else
Set Filter To cValue$Alltrim(名称)
EndIf
ThisForm.List1.Refresh
实际上这是一个简单的问题。比如:用一张空表或cursor 作列表框的数据源。并且用前清空。当文本框内输入一个查询用的值时,查询按钮可以用 c_mc=alltrim(文本框的 value),代表输入值,然后 append from '母表' for atcc(c_mc,对应的字段名)>0 ,或 insert into .. select * from 母表 where atcc(c_mc,对应的字段名)>0。 即随时从母表取数据,更新列表框的数据源。
如果用 grid 代替列表框,会更直观。
列表框的数据源可以是固定表或者临时表
文本框INTERACTIVECHANGE事件代码
Public cValue
cValue=Alltrim(This.Value)
Select 别名 && 列表框数据源
If Empty(cValue)
Set Filter To
Else
Set Filter To cValue$Alltrim(名称) &&要过滤的字段名称
EndIf
ThisForm.List1.Refresh