如何在程序中修改Lookup字段的值

Question

动态创建lookup类型的字段
 with  DefaultFieldClasses[TFieldType(ftString)].Create(Qry)  do  
        begin  
            FieldKind  :=  fkLookup;  
            Lookup:=true;  
            FieldName  :=  'test';  
            KeyFields  :=  'ID';  
            LookupDataSet  :=Qry;  
            LookupKeyFields  :=  'ID';  
            LookupResultField  :=  'NAME';  
            Name  :=  'test';  
        end;  
        Qry.FieldDefs.Add('test',ftString,20,False); 

Answer 1

如何修改。我在DBGRid里有一个Lookup 字段，单击会出现下拉Combo，但是我要在程序中将该Lookup字段都修改同一个值，比如‘禁止’，应该怎么做？