【结贴】TDataLocateComboBox的ViewProperties怎么用代码去设置哟？**

etqxq

我用代码设置了显示字段还是显示的全部，没有变成我代码设置的




  DataCombox1.ViewProperties.Clear;
  DataCombox1.ViewProperties.Add('object _1: TGridViewDesigner');
  DataCombox1.ViewProperties.Add('  VisibleColumns.Strings = (');
  DataCombox1.ViewProperties.Add('  ''A1''');
  DataCombox1.ViewProperties.Add('  ''A2'')');
  DataCombox1.ViewProperties.Add('  Options = [goAutoSort, goInputFilter]');
  DataCombox1.ViewProperties.Add('  End');

[goAutoSort, goInputFilter]'这属性到是成功了的.

etqxq

为什么没有人理呢?顶一下

zfang

楼主，应该是你写的不对。
最简单的就是你设置一下该控件的相应属性，然后把这个控件拷贝到记事本中看下相关设置，然后你用代码去控制。

etqxq

你给我贴一下出来吧。我试过的，不行呀

zfang

这是我拷贝的
object datacombox: TDataLocateComboBox
  Left = 96
  Top = 104
  Width = 145
  Style = csDropDown
  TabOrder = 0
  Text = #21098#20992
  DataField = 'CPMC'
  DataSource = DataSetBroker1
  QuickCodeField = 'CPMC'
  ViewID = 'GridView'
  ViewProperties.Strings = (
    'object TGridViewDesigner'
    '  VisibleColumns.Strings = ('
    '    '#39'CPBH'#39
    '    '#39'CPMC'#39')'
    '  Options = [goInputFilter, goShowQuickCodeField]'
    'end')
  KeyField = 'CPBH'
end

etqxq

这个我知道呀，我试过的。不行呀，
DataCombox1.ViewProperties.Clear;
  DataCombox1.ViewProperties.Add('object _1: TGridViewDesigner');
  DataCombox1.ViewProperties.Add('  VisibleColumns.Strings = (');
  DataCombox1.ViewProperties.Add('  ''A1''');
  DataCombox1.ViewProperties.Add('  ''A2'')');
  DataCombox1.ViewProperties.Add('  Options = [goAutoSort, goInputFilter]');
  DataCombox1.ViewProperties.Add('  End');

我这样写的原因是因为我弄了一个TDATALOCATECOMBOBOX把它设置好后，把ViewProperties这个STRINGS的显示出来，STRINGS［0］.。。分别是上面代码的内容。

etqxq

顶一下

zfang

怎么不行呢？
我做了这样的配置就可以的啊。
你看我的效果图

zfang

关键点：需要重新打开一下数据集。否则修改了也无效的。

etqxq

请试一下那个显示字段呀，


  DataCombox1.ViewProperties.Add('  VisibleColumns.Strings = (');
  DataCombox1.ViewProperties.Add('  ''A1''');
  DataCombox1.ViewProperties.Add('  ''A2'')');

就是这个,