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

crskyp · 发表于 2008-5-12 18:32:45

下面是我写的代码
   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="'#20851#38190#20540'" attrname="xF0" fieldt' +
      'ype="string" WIDTH="255"/><FIELD fieldname="'#26597#25214#20540'" attrname="xF1" ' +
      'fieldtype="string" WIDTH="255"/></FIELDS><

ARAMS/></METADATA><RO' +
      'WDATA><ROW xF0="1" xF1="'#26159'"/><ROW xF0="0" xF1="'#21542'"/></ROWDATA></DA' +
      'TAPACKET>') ;
lBizField.LookupDef.DisplayField := #26597#25214#20540 ;
lBizField.LookupDef.KeyField := #20851#38190#20540 ;
lBizField.LookupDef.Filter.Text := '' ;
lBizField.LookupDef.ViewID := 'GridView' ;
lBizField.LookupDef.ViewProperties.Text := 'object TGridViewDesigner'+
   '  VisibleColumns.Strings = (' +
   ' #26597#25214#20540)' +
   '  Options = []' +
   'end' ;
lBizField.LookupDef.Options := [TLookupOption.loDropDownButton, TLookupOption.loDropDownList] ;

crskyp · 发表于 2008-5-12 18:36:33

运行效果看下图

jiahaiming · 发表于 2008-5-13 09:04:28

楼主，如果不执行1楼代码，有什么效果？

shangxy · 发表于 2008-5-13 10:14:16

去掉： lBizField.LookupDef.ViewProperties.Text := 'object TGridViewDesigner'+
   '  VisibleColumns.Strings = (' +
   ' #26597#25214#20540)' +
   '  Options = []' +
   'end' ;
看一下

crskyp · 发表于 2008-5-13 10:29:43

去掉： lBizField.LookupDef.ViewProperties.Text := 'object TGridViewDesigner'+
   '  VisibleColumns.Strings = (' +
   ' #26597#25214#20540)' +
   '  Options = []' +
   'end' ;
看一下
如图，效果

shangxy · 发表于 2008-5-13 10:32:02

lBizField.LookupDef.Values.Text :=

   '<?xml version="1.0" standalone="yes"?>  <DATAPACKET Version="2.0' +
      '"><METADATA><FIELDS><FIELD fieldname="'#20851#38190#20540'" attrname="xF0" fieldt' +
      'ype="string" WIDTH="255"/><FIELD fieldname="'#26597#25214#20540'" attrname="xF1" ' +
      'fieldtype="string" WIDTH="255"/></FIELDS><

ARAMS/></METADATA><RO' +
'WDATA><ROW xF0="0" xF1="男"/><ROW xF0="1" xF1="女"/></ROWDATA></DA' +
'TAPACKET>';
修改一下 lBizField.LookupDef.Values.Text 类似于上面。

crskyp · 发表于 2008-5-13 10:33:28

如果不执行一楼代码，
就是一个编辑框，没有下拉属性。

shangxy · 发表于 2008-5-13 10:35:53

看6楼

crskyp · 发表于 2008-5-13 11:10:36

按照6楼修改了，如图
下拉选择没有东西，
选择后显示的是正确的。

crskyp · 发表于 2008-5-13 11:14:30

同时修改6楼和4楼，
效果如下图

		自动登录	找回密码
密码			立即注册

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

运行效果看下图

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