請問什麼 oit_num及oit_b1的資料無法存入Tquery中,每當dbgrid新增一筆記錄時則會出現錯誤訊息.我指資料的方式有錯嗎?還請各位前輩指教. procedure TFormOINVP.Query1NewRecord(DataSet: TDataSet); begin Query1.FieldByName('oit_item').AsInteger := query1.RecordCount; Query1.FieldByName('oit_num').AsString := edit_num.Text; Query1.FieldByName('oit_b1').AsString := edit_b1.Text; end; 錯誤訊息為:project HCPA8P.exe raised exception class EOleException with message 'Anunknown error has occurred'.

會不會在NewRcord時候edit_num.Text跟edit_b1.Text是空值ㄋ?? 另外要回存應該是要寫在BeforePost事件裡面喔...TRY TRY SEE..

edit_num,edit_b1 是tedit元件分表示"單號"及"發票類別",我試過是有資料的 而非nil,也試過chih兄的做法同樣會有這樣的訊息,但我把上述的放在下列中就不會出現上述的錯誤訊息,但確產生另一個奇怪的問題,dbgrid新增一筆新記錄時不會往下新增,而是在原來的位置新增一筆記錄,上一筆記錄的資料全看不見,變成空的,但實際去查tquery的資料庫,有寫入,煩請各位先進,多多指教. procedure TFormOINVP.DBGrid1EditButtonClick(Sender: TObject); begin Query1.Edit; Query1.FieldByName('oit_pno').AsString := selectinvpid; dbgrid1.SelectedIndex := dbgrid1.SelectedIndex 2 ; Query1.FieldByName('oit_num').AsString := edit_num.Text; Query1.FieldByName('oit_b1').AsString := edit_b1.Text; end;

dbgrid1.SelectedIndex := dbgrid1.SelectedIndex 2 ; 是否應為 : Query1.FieldByName('oit_item').AsInteger := dbgrid1.SelectedIndex 2 ;

版主,快快救救我吧,搞不定. dbgrid1.SelectedIndex := dbgrid1.SelectedIndex 2 ; 這個敍述是對的,主要是將dbgrid中的欄位往下移到數量欄位. 我主要的問題是上述資料存檔及dbgrid新增時,的問題,還請指教

你的資料不清楚，甚樣幫你丫 又不知你的 selectinvpid 是甚樣來的，又不知你為甚麼之前要 'oit_item' 現在又不用了，更更不知為甚麼 OnNewRecord 中間突然要跳欄位... Query1.FieldByName('oit_item').AsInteger := query1.RecordCount; 是不安全的，如你刪了一個記錄再加入一個，那時 RecordCount 便會與最後一筆的 oit_item 一樣了

selectinvpid,是一隻傳回產品主檔的副程式,主要在傳遞產品號與DBGRID中產品編號配合的,當我把下列這二列敍述放在Query1NewRecord中當dbgrid增加一新記錄時則會產生我最早所發問的問題,但放在那在DBGrid1EditButtonClick,就不會,可是會產生這篇我所問的第二個問題,到於oit_item的問題主要是想取得dbgrid中的記錄筆數也就dbgrid中的第一個欄位"項次". Query1.FieldByName('oit_num').AsString := edit_num.Text; Query1.FieldByName('oit_b1').AsString := edit_b1.Text;

看情形是你其他地方有自動 post 了記錄。 我想你的事件現在寫得非常之亂，看你 post 上來的資料前後不符就知道。 在這種情形下，最好試開一個新的 project, 加上這個 query, dbgrid, 和 這個 onnewrecord 事件，試試有沒 error, 若沒有則很明顯是你其他地方出錯，將其他事件慢慢加上看那裡出錯。