請教DBGRid新增一筆資料時，User還未移至該[設有Picklist欄位]時就 帶入第一筆資料並且顯示出向下箭頭 不吝指教

procedure TForm1.Button4Click(Sender: TObject); Const { 該欄位位置} ColumnIndex = 6; begin Query1.Append; { 若該欄位PickList有值，則自動寫入PickList第一個項目 } if DBGrid1.Columns[ColumnIndex].PickList.count>0 then Query1.FieldByName(FieldName).asString := DBGrid1.Columns[ColumnIndex].PickList[0]; { 指向該位置 } DBGrid1.SetFocus; TStringGrid(DBGrid1).Col := ColumnIndex 1; DBGrid1.EditorMode := True; end; 發表人 - wameng 於 2004/10/16 10:30:10

不好意思 小弟的意思是假設plcklist試設在ColumIndex=5的位置 但是我是從ColumnIndex開始輸入 所以User還未移至該[設有Picklist欄位]時就 帶入第一筆資料並且顯示出向下箭頭 謝謝 不吝指教

不好意思 小弟的意思是假設plcklist試設在ColumIndex=5的位置 但是我是從ColumnIndex=0的地方開始輸入 所以User還未移至該[設有Picklist欄位(ColumIndex=5)]時就 帶入第一筆資料並且顯示出向下箭頭 謝謝 不吝指教

可能沒有辦法！ 主要因為 PickList 是由 TDBGridInplaceEdit 處裡的。 而TDBGridInplaceEdit 為游標編輯狀態。 當您向ColumnIndex=0 編輯時，ColumIndex=5 是關閉的狀態。 要不然可能要自己畫『向下箭頭』 另一種比較簡單的作法。 是利用 DBCombobox 覆蓋到該 Column 的位置。