组合框数组为数据源的问题

[wuanzhengxin]

我在表单的init中写了以下代码
IF !USED("flmm")
USE d:\czgjj\str\flmm.dbf EXCLUSIVE IN 4
ENDIF
SELECT tlmm
SCATTER FIELDS 名称 TO x
请问怎样设x这个数组为一个组合框的数据源呢？

[lygcw9602]

RowSource="x" RowSourcetype=5

[都市夜猫]

你这样的做法存在两个问题： 1. 这个数组 x 只包含一个元素，作为组合框的数据源有意义吗？ 2. 默认 x 为 private 型变量，一旦这段代码执行完毕，x 将不复存在，组合框的数据源也将丢失，因此必须将 x 声明为 public 型变量，像这样：

。。。
SELECT tlmm
PUBLIC x
SCATTER FIELDS 名称 TO x
Thisform.combo1.RowSourceType = 5
Thisform.combo1.RowSource = 'x'

不建议这样做，公用变量难以管理，你得保证没有其他地方的代码或其他人修改 x 变量的内容或类型，建议用表单或组合框属性来代替：

。。。
SELECT tlmm
AddProperty(Thisform.combo1, 'x[1]')
SCATTER FIELDS 名称 TO Thisform.combo1.x
Thisform.combo1.RowSourceType = 5
Thisform.combo1.RowSource = 'This.x'