請問各位大大以下問題? Query_PC2.Close; Query_PC2.SQL.Clear; Query_PC2.SQL.Add('Select Distinct D_7 From PC2.dbf'); Query_PC2.Open; DBGrid1.Columns[4].PickList.Clear; While Not Query_PC2.Eof do   begin    DBGrid1.Columns[4].PickList.Add(Query_PC2.Fields[7].AsString);    Query_PC2.Next;  end;

------
Xax

你的'Select Distinct D_7 From PC2.dbf只有選擇一個欄位 請改用Query_PC2.Fields[0].AsString或 Query_PC2.FieldByName('D_7').AsString Ian

你好：    从错误信息来看，是DBGrid1.Columns[4].PickList.Add(Query_PC2.Fields[7].AsString);里的Fields[7]超出了Query_PC2的字段数溢出出错，明显的你上面的Query_PC2才一个字段，所以改为：DBGrid1.Columns[4].PickList.Add(Query_PC2.Fields[0].AsString);试试。