SQLSETPROP(0,"DispLogin" ,3)
f="case when b.fabricno='' then left(fabric,4) else b.fabricno end"
G="select b.cust_no,b.customer"
cSQL="select * from dbfwfs"
    if used('dnsa')
        use in dnsa
    endif     


SQLEXEC(sqlstringconnect("driver=SQL Server;Server=192.168.0.2;Uid=sa;pwd=123;database=tianhai"),cSQL,"dnsa")
SQLDISCONNECT(sqlstringconnect("driver=SQL Server;Server=192.168.0.2;Uid=sa;pwd=123;database=tianhai"))   
    if used('dnsa')
    select dnsa
    brow
    endif
   
go top
    thisform.grd1.RecordSource=''
      thisform.grd1.RecordSource='dnsa'
    thisform.grd1.refresh()
    thisform.refresh
   

go top
    thisform.Refresh
    if used('dnsa')
        use in dnsa
    endif

go top
    thisform.Refresh
    if used('dnsa')
        use in dnsa
    endif
这是放哪儿的，怎么又关闭了？

复制错了吧。
上面就有这几句：
    if used('dnsa')
        use in dnsa
    endif

先检查一下数据库中dbfwfs这个表有没内容

有内容呢

没复制错吧，浏览时候还有，想放到grid里就没了

go top
     thisform.grd1.RecordSource=''
       thisform.grd1.RecordSource='dnsa'
     thisform.grd1.refresh()&&此行删除试试看
     thisform.refresh