试试这样行不行,用两个数据窗口dw_1,dw_2
ls_type = dw_1.object.type[1]
ll_copy_start = 1
for ll_i = 2 to dw_1.rowcount()
if ls_type = dw_1.object.type[ll_i] then
dw_1.rowscopy(ll_copy_start,ll_i,Primary!,dw_2,dw_2.rowcount()+1,Primary!)
else
dw_2.print()
dw_2.reset()
ll_copy_start = ll_i + 1
if ll_i <> dw_1.rowcount() then ls_type = dw_1.object.type[ll_i+1]
end if
next