我知道用這樣可以印出它裡面的值 showmessage(DBgrid1.Columns[0].PickList[0]); 可是如果我不要它的值,而要它所代表為第幾筆, 也就是PickList[]中的這個參數,要如何做呢? 月光小築~月牙兒

------
月光小築~月牙兒

這樣不知道對不對？

var sl: TStringList;
  iCount: integer;
begin
  sl := TSTringList.Create;
  try
    sl := dbgrid1.Columns[0].PickList;
    iCount := sl.IndexOf(DBGrid1.Columns[0].PickList[0]);
    ShowMessage('第 '   IntToStr(iCount)   ' 筆');
  finally
    sl.Free;
  end;
end;

-- Everything I say is a lie.

一定要這麼麻煩嗎?我是說因為我只是要從使用者選出了那一個 來做判斷，它選到了誰， 我的想法是 case DBgrid1.Columns[0].PickList of 0: CodePrefix := 'Tnos'; 1: CodePrefix := 'Tnoa'; 2: CodePrefix := 'Tnop'; end; 可是紅色的那一斷不知如何寫 月光小築~月牙兒

------
月光小築~月牙兒

        case DBGrid1.Columns[0].PickList.IndexOf( DataSet.FieldByName( '員工編號').AsString) of
                0: CodePrefix := 'Tnos';
                1: CodePrefix := 'Tnoa';
                2: CodePrefix := 'Tnop';
        end;