读书人

如何让列表框显示表的所有字段名

发布时间: 2012-03-26 15:46:55 作者: rapoo

怎么让列表框显示表的所有字段名?
如题!

[解决办法]
FOR i=1 TO thisform.list1.ListCount
tiaojian=tiaojian+thisform.list1.List(i)
ENDFOR
[解决办法]
一、让列表框显示表的字段名:
1、先设列表框的rowsourcetype为0
2、列表框的init事件代码:
sele 表1
vcount=afields(myzdm)
for i=1 to vcount
this.additem(myzdm(i))
endfor
二、读取全部列表框的值:
用楼上的方法。

[解决办法]
列表框第1行的值
thisform.list1.ListItem(1)

列表框第2行的值
thisform.list1.ListItem(2)

列表框第3行的值
thisform.list1.ListItem(3)

......
[解决办法]
SELECT zrqk
tiaojian= " "
FOR i=1 TO thisform.list2.ListCount
tiaojian=tiaojian+ALLTRIM(thisform.list2.List(i))+ ", "
ENDFOR
tiaojian=SUBSTR(tiaojian,1,LEN(tiaojian)-1)
COPY TO 人员.XLS FIELDS &tiaojian TYPE xl5
将tiaojian中的内容贴出来看看

读书人网 >VFP

热点推荐