可是仍然沒有我們要的cell屬性，只有columns屬性，沒有我需要的cell屬性，怎么辦？于是研究delphi的TDBGrid的源代碼發現TDBGrid繼承的TcustomGrid中有HideEdit，UpdateEdit等方法，說明在輸入數據的時候TDBGird在后臺是生成了一個輸入文本框，焦點改變后這個文本框自動消失把數據輸入到TDBGrid。這樣我們只要能給這個EDIT的TEXT屬性賦值同樣可以實現，因為TDBGrid沒有CELL屬性，不能直接利用SQASetProperty函數給cell的focus屬性賦值，只能利用點擊這個cell來賦予它焦點，因為只有焦點在這個cell上后才會出現浮動的文本框，修改上邊的腳本：
Sub Main
Dim Result As Integer
Dim Var as String