循环向foxpro中的combo控件添加值

循环向foxpro中的combo控件添加值

首先向表单中拖入combo控件

在一个按钮的click事件中加入如下代码

SELE 0
USE aaa
AFIELDS(fiel_stru) &&获取表结构存如数组xx
fiel_num=FCOUNT() &&计算表字段数
for N=1 to fiel_num
THISform.combo1.addItem(alltrim(fiel_stru(N,1)))
endfor
use

 » 本站地址:http://www.gomoth.com

标签: