你改变zd一下吧,在表单上面加入代码回,combo1组合框的init代码:SELECT DISTINCT aaa FROM bbb INTO CURSOR temp
this.rowsource="temp.aaa "
this.RowSourceType=6
组合框的interactivechange代码:t=ALLTRIM(this.Displayvalue)
SELECT * FROM bbb WHERE aaa=t INTO CURSOR temp1
thisform.grid1.recordsource="temp1"
thisform.grid1.RecordSourceType=6
把你的其它代码去掉答就行了