提供一个思路你看看。
表单中有若干TEXT,对应表的字段。表单中也有若干命令按钮,对应"增加","删除","修改","查询"等。
现在我添加一控件LIST1,用于动态选择你需要的内容。
(1)初始化FORM1.INIT()
CLOSE ALL
USE 表
PUBLIC AA
THISFORM.LIST1.VISIBLE=.F.
(2)THISFORM.TEXT1.INTERACTIVECHANGE()
THISFORM.LIST1.VISIBLE=.T.
THISFORM.LIST1.CLEAR
AA=ALLTRIM(THISFORM.TEXT1.VALUE)
SET FILTER TO AA$拼音
GO TOP
DO WHILE !EOF()
THISFORM.LIST1.ADDITEM(字段1+字段2+字段3) &&需要的话还可以加相应字段
SKIP
ENDDO
SET FILTER TO
THISFORM.REFRESH
(3)THISFORM.LIST1.INTERACTIVECHANGE()
THISFORM.TEXT1.VALUE=SUBSTR(THISFORM.LIST1.VALUE,1,4) &&假如第1个字段的宽度为4
THISFORM.TEXT2.VALUE=SUBSTR(THISFORM.LIST1.VALUE,5,8) &&假如第2个字段的宽度为8
*如果需要的话,还可以类似地写命令
THISFORM.LIST1.VISIBLE=.F.
THISFORM.REFRESH
******************该帖子在"怎样用数据字典"中写过。