我这是直接新建的程序，然后在程序里面写了上面的代码，结果显示的GRID比我设定的要小好多，表单大小一样。

是控件沒有按希望的排列吧？加下面的代碼試試：

PROCEDURE Activate
    ThisForm.Refresh
ENDPROC

一般如果不希望表單啓動時變化尺寸，不用寫WindowState=0，默認就是這個，寫了之後，它反而會多做一次縮放，但你的代碼沒有在表單尺寸變化時相應的處理動作，原先的設置等於被改變了。你參考我貼過的那些代碼是怎麽寫的。

[ 本帖最后由 TonyDeng 于 2011-7-25 17:35 编辑 ]

加了没用。执行出来的表单直接在左上角锚定了，没有按我写的LEFT和TOP定位，大小也不正常。
我还怕是我漏了什么，基本属性我都设置了啊，纳闷了。

這是我給你寫過的代碼，它可以保證出現預想的效果，不要依賴VFP的默認動作。我貼過好幾個程序的代碼都是這樣寫的。

   PROCEDURE Arrange
         WITH This.Grid1
             .Top = 5
             .Left = 5
             .Height = This.Height - .Top - 5
             .Width = This.Width - .Left - 5
         ENDWITH 
    ENDPROC 
    
    PROCEDURE Activate
         This.Arrange
     ENDPROC 
    
    PROCEDURE Resize
         This.Arrange
    ENDPROC 
   

其實你在Init事件中分配控件的尺寸，是沒問題的，問題應該在於你多做了一個動作，讓表單在按Init規定的動作之後WindowState=0變動了尺寸，我們並不知道WindowState=0這個動作和Init事件之間的順序到底如何，但運行出來的結果顯然是廢掉了Init的設置，那麽必須尋找我們能夠確切控制的途徑才行。

把WindowState=0刪掉看看如何。

[ 本帖最后由 TonyDeng 于 2011-7-25 17:54 编辑 ]

Arrange这个过程是自定义的？

是的，這種寫法可以寫任何自定義過程和函數、屬性，與VFP提供給我們的完全等效（除了事件無法自定義之外全都可以），你們平常那種可視化方式就不能。

这一改就行了

現在解釋一下INSERT的問題。

INSERT，顧名思義就是插入操作，BEFORE參數表示在當前記錄的前面插入。想象一下插入的動作，它一定是把後面的東西往後退開，才能把新的東西插進去。對了，這就是關鍵所在，它要推動插入位置之後的所有數據，唯一的辦法是一條一條地挪，這意味著將耗用大量的時間！而且，爲了保持原先的一切順序不會被打亂，因爲新插入的記錄是空記錄，無法預知它的排序位置，所以也注定無法利用索引加快速度，用物理方式死搬數據。因此，執行INSERT命令，首先要關閉索引(SET ORDER TO 0，不用關索引文件，只要無起作用的索引鍵就行了，這樣即使無索引，但改變任何索引字段的内容時仍會更新索引文件，無需REINDEX)；其次，物理一條一條地搬記錄，就不能有多條記錄被共享鎖定，它要對整個數據表做大動作，實際上要求獨佔數據表，此時，與共享、加速有關的東西，通通要關掉，否則無法保證緩衝區中數據被正確地寫入磁盤。明白這個原理，自然就能理解爲什麽自動步進的數據表不能使用INSERT命令了——但不能用現成的命令不等於做不到，知道原理就能做。

耗時、惡霸，是INSERT命令的缺點，但仍然保留這個命令，不是簡單地爲了兼容的，有些場合必須要用到。有些數據表是根本無法索引的，但也正是這種數據表才有插入的需要，此時，任何用索引模擬插入的技巧，都無法使用。事實上，即使帶索引的數據表，某些時候也要用到硬性插入的情況，在可重復關鍵字的索引表中，比如你那個成績表，一個學號重復66條記錄，就有可能在要在某個科目之前硬插一科成績的可能，此時，非但索引幫不上忙，連INSERT也沒辦法，只有我們自己編程一條一條記錄地搬（但最多只搬66條記錄而已，不過其原理與INSERT是一樣的）。

[ 本帖最后由 TonyDeng 于 2011-7-25 19:14 编辑 ]

呵呵，明白了，如果真碰到你说的那种情况，那在系统里面不是做不了，得把源表弄过来用命令来搬。

插入前, 表的索引未打开或已关闭 即可~


例: 拟在007前插一行: