如何在grid读取dbf文件

[erajoy]

表单内点击“打开”按钮，在grid里显示数据库内容，如何实现

[yyuuu2003]

多用户用的程序用也适应吗？多用户用可以“USE (PS) IN 0 ALIAS (PS)
”这样打开数据表吗？

[zhaoyxtaiyuan]

在GRID 属性 -DATA-recordsource 填好表名，在GRID-右键-EDIT-DATA-controlsource 填列名

[taohua300]

ps = getfile('dbf')
if !empty(ps)
thisform.grid1.recordsource = ps
thisform.grid1.recordsourcetype = 1
endif

[lygcw9602]

命令按钮下代码

PS = JUSTSTEM(GETFILE('DBF'))
USE (PS) IN 0 ALIAS (PS)
THISFORM.CAPTION=PS
IF !EMPTY(PS)
   THISFORM.GRID1.COLUMNCOUNT=FCOUNT(PS)
   THISFORM.GRID1.RECORDSOURCE = PS
   THISFORM.GRID1.RECORDSOURCETYPE = 1
   THISFORM.GRID1.REFRESH
ENDIF

[lygcw9602]

自己可以验证一下（多用户没用过）
要想知道葡萄是酸的还是甜的，只有自己知道。