dbf输出到excel中的指定单元

现在有一个hz.dbf
h01       h02       h03       h04       dq
15         14         13         12         001
14         14         13         12         002
13         14         13         12         004

如果dq=001,将   h01,h02,h03,h04的是输出到指定单元格
如果dq=002,将   h01,h02,h03,h04的是输出到指定单元格
如果dq=003,将   h01,h02,h03,h04的是输出到指定单元格
如果dq=004,将   h01,h02,h03,h04的是输出到指定单元格
我的代码中
locate   for   dq= '001 '
        if   .not.   eof()
oexl.ActiveSheet.Cells(7,2).value=hz.h01
oexl.ActiveSheet.Cells(7,3).value=hz.h02
oexl.ActiveSheet.Cells(7,4).value=hz.h03
oexl.ActiveSheet.Cells(7,5).value=hz.h04
        endif
locate   for   dq= '002 '
        if   .not.   eof()
oexl.ActiveSheet.Cells(8,2).value=hz.h01
oexl.ActiveSheet.Cells(8,3).value=hz.h02
oexl.ActiveSheet.Cells(8,4).value=hz.h03
oexl.ActiveSheet.Cells(8,5).value=hz.h04
        endif
locate   for   dq= '003 '
        if   .not.   eof()
oexl.ActiveSheet.Cells(9,2).value=hz.h01
oexl.ActiveSheet.Cells(9,3).value=hz.h02
oexl.ActiveSheet.Cells(9,4).value=hz.h03
oexl.ActiveSheet.Cells(9,5).value=hz.h04
        endif

但是，excel中的第8行的数据和第7行的数据是一样的，是不是我代码里有问题？
 
try:

oexl=Createobject("excel.application")
gft=Sys(5)+Curdir()+'hz.xls'
oexl.workbooks.Open("&gft")
oexl.worksheets("hz").Activate
Sele hz
Locate For Alltrim(dq)=='001'

[1] [2] [3] 下一页