如题!
------解决方案--------------------------------------------------------
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中的内容贴出来看看