把combo1做个类mycom

set classlib to xxx.vcx

grid1.column1.AddObject("combo1","mycom")

grid1.column1.currentcontrol="combo1"

clear class xxx.vcx

在表格属性选择该列，将currentcontrol设为combo1，将sparse设为f 

还要加上grid1.column1.combo1.visible=.T.