D5 , 現在用以下的方法來建立 dbGrid 中,某 欄位的 PickList 清除 dbGrid1.Columns[0].PickList.clear; 建立 dbGrid1.Columns[0].PickList.add(sStr); 請問 columns[0] 對應欄位是 NAME , 可以不要用 columns[0] 嗎 ? 每次變動 dbGrid 顯示的 field 不易維護原碼 ! --------------------- 新手上線, 請多指教

這個問題也是很困擾小弟,小弟目前是用迴圈來做的,您也許會想這樣的效益會比 用columns[0]直接帶好嗎?這得看異動的程度來說,當columns數目很大而且常變動位置時就很有用

for i:=0 to dbgrid1.Columns.Count-1 do
begin
  if  uppercase(Dbgrid1.Columns[i].FieldName)=Uppercase('name') then
  begin
    Dbgrid1.Columns[i].PickList.Add(sStr);
    exit;
  end;
end;

發表人 - huangeider 於 2005/11/06 23:50:48

dbGrid1.Columns[0].PickList.add(sStr); //0-->EmpNo dbGrid1.Columns[1].PickList.add(sStr); //1-->EmpName 每列註記的方式，是否比較好？

huangeider 提供的方法, 如能改成一個 function, 應該會很好用 只是, 不知該如何改 ? 然後, 寫好的 function 該放在哪裏(project manage) ?

 
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
 IF FORM1.DBGrid1.SelectedField.DisplayName = 'JOB' THEN //JOB為欄位名稱，可移動位置或消失
 BEGIN
    SHOWMESSAGE(FORM1.DBGrid1.SelectedField.DisplayName);
    SHOWMESSAGE(INTTOSTR(FORM1.DBGrid1.SelectedIndex));
    FORM1.DBGrid1.Columns[FORM1.DBGrid1.SelectedIndex].PickList.clear;
    FORM1.DBGrid1.Columns[FORM1.DBGrid1.SelectedIndex].PickList.add('CLERK');
    FORM1.DBGrid1.Columns[FORM1.DBGrid1.SelectedIndex].PickList.add('SALESMAN');
    FORM1.DBGrid1.Columns[FORM1.DBGrid1.SelectedIndex].PickList.add('MANAGER');
 END;
end;