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

ENDFOR

下班了,没时间验证了

第7楼. 由 wwwwb 于 2007-6-25 16:17:33 发表

FOR i=1 TO thisform.list1.ListCount

tiaojian=tiaojian+thisform.list1.List(i)

ENDFOR

第8楼. 由 bsdzf 于 2007-6-25 16:52:43 发表

一、让列表框显示表的字段名：

1、先设列表框的rowsourcetype为0

2、列表框的init事件代码：

sele 表1

vcount=afields(myzdm)

for i=1 to vcount

this.additem(myzdm(i))

endfor

二、读取全部列表框的值：

用楼上的方法。

第9楼. 由 apple_8180 于 2007-6-25 17:01:40 发表

列表框第1行的值

thisform.list1.ListItem(1)

列表框第2行的值

thisform.list1.ListItem(2)

列表框第3行的值

thisform.list1.ListItem(3)

......

第10楼. 由 qq03sj04 于 2007-6-26 9:05:26 发表

导出excel表的代码如下:

SELECT zrqk

tiaojian="zrqk."

FOR i=1 TO thisform.list2.ListCount

tiaojian=tiaojian+ALLTRIM(thisform.list2.List(i))+",zrqk."

ENDFOR