程序代码：

** Command1.Click
CLOSE DATABASES
SELECT 0
*gcTable=GETFILE('DBF', 'Browse or Create a .DBF:', 'Browse', 1, 'Browse or Create')
gcTable=GETFILE('DBF')
DO CASE
   CASE 'Untitled' $ gcTable
      CREATE (gcTable)
   CASE EMPTY(gcTable)
      RETURN
   OTHERWISE
      USE (gcTable) ALIAS bb
      thisform.grid1.RecordSource = "bb"
      thisform.grid1.SetFocus
ENDCASE