【结贴】用代码设置枚举查找属性 出错**

crskyp

我想把编码去掉，怎么去？

Akon

可以定义他的风格/标准/显示列

crskyp

不是这样定义吗？
lBizField.LookupDef.ViewProperties.Text := 'object TGridViewDesigner'+
      '  VisibleColumns.Strings = (' +
      '    #26597#25214#20540)' +
      '  Options = []' +
      'end' ;
不够用啊。

lixy

procedure TSJWG1.Button1Click(Sender: TObject);
var
lBizField:TBizField;
begin
     lBizField:=TSQLDataset(dsbRKDMX.Dataset).FindBizField('sj1');
     lBizField.DataType:=tdatatype.dtString;
      lBizField.EditStyleID :='String' ;
      lBizField.LookupDef.Kind := TLookupKind.lkEnumValues ;
      lBizField.LookupDef.Values.Text := (

        '<?xml version="1.0" standalone="yes"?>  <DATAPACKET Version="2.0' +
        '"><METADATA><FIELDS><FIELD fieldname="查找值" attrname="xF0" fieldt' +
        'ype="string" WIDTH="255"/><FIELD fieldname="关键值" attrname="xF1" ' +
        'fieldtype="string" WIDTH="255"/></FIELDS><ARAMS/></METADATA><RO' +
        'WDATA><ROW xF0="0" xF1="c1"/><ROW xF0="1" xF1="c2"/></ROWDATA>' +
        '</DATAPACKET>');
    lBizField.LookupDef.DisplayField := '查找值' ;
    lBizField.LookupDef.KeyField := '关键值' ;
    lBizField.LookupDef.ViewID := 'GridView' ;
    lBizField.LookupDef.ViewProperties.text := (
      'object TGridViewDesigner'+
      '  VisibleColumns.Strings = (#26597#25214#20540)'+
      '  Options = [goShowQuickCodeField]'+
      'end');
    lBizField.LookupDef.Options := [TLookupOption.loDropDownButton, TLookupOption.loDropDownList] ;
     TSQLDataSet(dsbRKDMX.Dataset).LayoutChange;
end;

-----其他楼主自己调试下。

crskyp

可以了，谢谢，结贴。