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

有内容呢

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