谢谢码农!已使用以下函数解决
function Tfqpmain.GetDbGridColumnIndex(pDbGrid: TDBGridEh; pcFieldName: string): integer;
var nFldLoop: integer;
cFldName: string;
begin
Result := -1;
for nFldLoop := 0 to pDbGrid.Columns.Count - 1 do
begin
cFldName := pDbGrid.Columns[nFldLoop].FieldName;
if uppercase(pcFieldName) = uppercase(cFldName) then
begin
Result := nFldLoop;
exit;
end;
end;
end;