表格中添加组合框，关于组合框的数据源的有关问题

2012-05-14

表格中添加组合框，关于组合框的数据源的问题。VB codeFor i 1 to ThisForm._grid1.ColumnCountx Transf

表格中添加组合框，关于组合框的数据源的问题。

VB code

For i = 1 to ThisForm._grid1.ColumnCount  x = Transform(i)  With ThisForm._grid1.column&x.      .AddObject('cmb分公司','ComboBox')       Select dist 分公司 from YWJL into array arfgs      .CurrentControl = 'cmb分公司'      .Sparse = .T.      .cmb分公司.borderstyle = 0      .cmb分公司.visible = .T.      .cmb分公司.rowsourcetype = 5            .cmb分公司.rowsource = 'arfgs'  EndwithNext

为什么我这个组合框中的数据是空的？数组中我调试时是看到是有数据的啊。

[解决办法]
注意数组变量的作用域，执行完你这段代码，数组就不存在了

要不就将数组放到 grid 的一个属性中，如：

VB code

ThisForm._grid1.AddProperty('arfgs[1]')Select dist 分公司 from YWJL into array ThisForm._grid1.arfgsFor i = 1 to ThisForm.grid1.ColumnCount    ...    .cmb分公司.rowsource = 'This.Parent.Parent.arfgs'Next
[解决办法]
你的代码不用改动，直接在你代码前面加一句：
Public Array arfgs(1)
[解决办法]
楼主还是对VFP控件属性、方法、事件掌握的不够透彻。

热点排行