在不移動光標的情況下﹐根據TEXT1中輸入的內容來更改GRID1中一列中當前記錄的內容。即TEXT1中輸入一內容后按回車﹐GRID1中對應TEXT文本框中填入此值﹐光標在回到TEXT1文本框中等待輸入下一個值。
(1)首先在表單中建兩個TEXT控件﹕TEXT1和TEXT2﹐并把TEXT1放在TEXT2的上面﹐即只能看到TEXT1﹐把TEXT1的SelectOnEntry屬性設為.T.
(2)在TEXT1的VALID事件中寫入﹕thisform.text2.value=this.value
(3)在TEXT2的GOTFOCUS事件中寫入﹕
repl cpb.jb with val(this.value)
skip
thisform.grid.refresh
thisform.text1.setfocus