| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 307 人关注过本帖
标题:请教列表框如何小写显示
只看楼主 加入收藏
huasinstamps
Rank: 2
等 级:论坛游民
帖 子:64
专家分:24
注 册:2017-6-1
结帖率:88.89%
收藏
已结贴  问题点数:20 回复次数:6 
请教列表框如何小写显示
我的列表框代码如下:

public yyy[1]
=adir(yyy,"*.*")
=asort(yyy)
thisform.list1.RowSourcetype=5
thisform.list1.RowSource='yyy'

列表框显示的文件名都是大写的。请教各位老师怎么能小写显示?多谢!
搜索更多相关主题的帖子: 显示 列表框 老师 小写 thisform 
2024-02-23 13:26
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:10 
LOCAL aa[2,2]
aa[1,1] = "Abc"
aa[1,2] = "Bcd"
aa[2,1] = "Def"
aa[2,2] = "Efg"
FOR ln = 1 TO ALEN(aa, 1)
    aa[ln, 1] = LOWER(aa[ln, 1])
    aa[ln, 2] = LOWER(aa[ln, 2])
ENDFOR
LIST MEMORY LIKE aa

[此贴子已经被作者于2024-2-23 13:57编辑过]


坚守VFP最后的阵地
2024-02-23 13:48
老去的流星雨
Rank: 2
等 级:论坛游民
帖 子:24
专家分:57
注 册:2023-9-9
收藏
得分:10 
原因是adir返回的文件名是大写的,需要替换一下
LOCAL yyy[1]
=ADIR(yyy,"*.*")
CREATE CURSOR FileNameList(文件名 V(200))
APPEND FROM ARRAY yyy
REPLACE 文件名 WITH LOWER(文件名) all
thisform.list1.RowSourcetype=2
thisform.list1.RowSource='FileNameList'
2024-02-23 16:31
huasinstamps
Rank: 2
等 级:论坛游民
帖 子:64
专家分:24
注 册:2017-6-1
收藏
得分:0 
谢谢楼上两位老师!我按流星雨老师的代码改了我的代码如下

cd d:\vfp\turtles\photo_800
local newlist[1]
=adir(newlist,"*.*")
creat cursor listadir(sours c(200))
append from array newlist
replace all sours with lower(sours)
thisform.pageframe1.page6.pageframe1.page1.list1.RowSourcetype=2
thisform.pageframe1.page6.pageframe1.page1.list1.RowSource='listadir'
cd\vfp

但运行时提示出错 - 找不到“字段”表达式。。。麻烦老师指点下
2024-02-24 09:44
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
临时表的路径和表单的路径是否相同?
页框中加页框?

[此贴子已经被作者于2024-2-24 10:10编辑过]


坚守VFP最后的阵地
2024-02-24 10:08
老去的流星雨
Rank: 2
等 级:论坛游民
帖 子:24
专家分:57
注 册:2023-9-9
收藏
得分:0 
回复 4楼 huasinstamps
我测试了一下代码,没有问题,你挂起一下,看看报错的代码是不是其他地方的
2024-02-24 10:48
huasinstamps
Rank: 2
等 级:论坛游民
帖 子:64
专家分:24
注 册:2017-6-1
收藏
得分:0 
思路我了解了,过会我再试下应该问题不大。非常感谢!
2024-02-26 10:06
快速回复:请教列表框如何小写显示
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017063 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved