| 我是這樣做的： (1)從GRID控件拖放到表單上(假設(shè)名為grid1)，設(shè)置其屬性： Recordsourcetype為0---表 (2)為表單的active過程編程 pp=getfile(″dbf″,″″,″″,2) if empty(pp) thisform.release return endif use ＆pp ＊選定所需的表 n=fcount() thisform.grid1.columncount=n thisform.grid1.recordsource=pp for i=1 to n thisform.grid1.columns(i).header1.caption=field(i) endfor use (3)再在表單加上插入、刪除、添加、完成等幾個(gè)按鈕，就可構(gòu)成較完善的輸入界面，實(shí)現(xiàn)數(shù)據(jù)的整體輸入。 |
|
|
