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

zfang

上面的测试是做一个树形展现，其他的应该是类似的。你参考我那个试试。

zfang

看我做的一个简单测试：

etqxq

DataCombox1:=TDataLocateComboBox.Create(Self);
  DataCombox1.DataSource:=DS_XZQH;
  DataCombox1.Parent:=Self;
  DataCombox1.DataField:='A2';
  DataCombox1.KeyField:='A1';
  DataCombox1.ViewID:='GridView';
  DataCombox1.ViewProperties.BeginUpdate;
  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');
  DataCombox1.ViewProperties.EndUpdate;

这是我的代码
而显示的列不止A1和A2.还有其它列

zfang

重新打开数据集了吗？你的代码中没看到你重新打开数据集的代码。

etqxq

好的，谢谢，结贴

zfang

好，谢谢反馈。