那就用GRID
程序代码:
** 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