Question

VFP中，关于表格查询的问题

就是说，
1、有帐号、用户名两个combo，还有一个grid，想通过帐号或者用户名任一个作为筛选条件，及，给出帐号就在grid下显示该帐号的信息，给出用户名就显示该用户名的信息。当然有制作一个关于帐号和用户名的表，也就是说这两者是有联系的。
2、在grid中显示全部帐号信息

=================================
注：grid中显示信息为：用户帐号，用户名，身份证号码，用户余额，帐号情况，用户地址以及用户更新情况。

以上信息出自表：user
回答好了追加50及以上分数

Answer 1

1 给combo增加项目，表单的init：
SELECT DISTINCT 用户帐号 FORM USER INTO CURSOR ABC1
SELECT DISTINCT 用户名 FORM USER INTO CURSOR ABC2
SELECT ABC1
SCAN
THISFORM.COMBO1.ADDITEM(用户帐号)
ENDSCAN
SELECT ABC2
SCAN
THISFORM.COMBO1.ADDITEM(用户名)
ENDSCAN

确定按钮的CLICK:
THISFORM.GRID1.RECORDSOURCETYPE=4

AAA='SELECT 用户帐号,用户名,身份证号码,用户余额,帐号情况,用户地址;
FORM USER WHERE '
IF THISFORM.COMBO1.VALUE<>' '
AAA=AAA+'用户帐号='+"'"+TRIM(THISFORM.COMBO1.VALUE)+"'"
ESLE
AAA=AAA+'用户名='+"'"+TRIM(THISFORM.COMBO2.VALUE)+"'"
ENDIF
THISFORM.GRID1.recordsource='&aaa'
*设置每列宽度
THISFORM.GRID1.COLUMN1.WIDTH=50
THISFORM.GRID1.COLUMN2.WIDTH=50
THISFORM.GRID1.COLUMN3.WIDTH=90
THISFORM.GRID1.COLUMN4.WIDTH=50
THISFORM.GRID1.COLUMN5.WIDTH=50
THISFORM.GRID1.COLUMN6.WIDTH=150

*设置标头标题
THISFORM.GRID1.COLUMN1.HEADER1.CAPTION='用户帐号'
THISFORM.GRID1.COLUMN2.HEADER1.CAPTION='用户名'
THISFORM.GRID1.COLUMN3.HEADER1.CAPTION='身份证号码'
THISFORM.GRID1.COLUMN4.HEADER1.CAPTION='用户余额'
THISFORM.GRID1.COLUMN5.HEADER1.CAPTION='帐号情况'
THISFORM.GRID1.COLUMN6.HEADER1.CAPTION='用户地址及用户更新情况'

*设置每列数据源
THISFORM.GRID1.COLUMN1.controlsource='aaa.用户帐号'
THISFORM.GRID1.COLUMN2.controlsource='aaa.用户名'
THISFORM.GRID1.COLUMN3.controlsource='aaa.身份证号码'
THISFORM.GRID1.COLUMN4.controlsource='aaa.用户余额'
THISFORM.GRID1.COLUMN5.controlsource='aaa.帐号情况'
THISFORM.GRID1.COLUMN6.controlsource='aaa.用户地址'