sele 源设置表 copy to tmp for 条件 zap appe from tmp thisform.表格.refresh
sele 源设置表 zap appe from 新条件表 thisform.表格.refresh
set classlib to 自定义类名 thisform.AddObject("tmp","自定义类名") thisform.tmp.Visible =.t.