下拉列表框显示数据的宽度问题!

2008-07-16 02:45:39 325 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

sdhfeng 墨衍会员 · AI 创作全网分发关注 + 加入社区

【Spreadsheet】香港规范结构设计电子表格库开发方案深入理解香港本地规范特点和要求结合国际先进标准(Eurocode) 的技术内容考虑香港地理环境特殊性 (台风、地质等)建立完善的质量控制体系保持持续更新维护的能力。阅读详情

本人做了个下拉列表框，当打开时出现下拉菜单远宽于combobox宽度，很难看，而且当选择了某项以后居然看不到数据。
因为下拉菜单中的数据是由数据库中查找的整型数据，只有1位数，不知为何那么宽。
能否调节成与combobox宽度一样。

...全文

紫光同创PGL50H开发板实战：盘古50KN网口板的高速通信与数据处理本文详细介绍了紫光同创PGL50H开发板（盘古50KN网口板）在高速通信与数据处理领域的实战应用。文章从开箱、核心芯片解析、开发环境搭建入手，重点讲解了如何配置与测试其8路千兆以太网接口和SFP光纤接口，并深入探讨了FPGA与DDR3协同进行多路数据汇聚处理的系统架构与调试方法，为网络通信与高速数据处理系统开发提供了宝贵的实践经验。阅读详情

sdhfeng

VFP 2,750 成员 29,142 内容

+ 关注 + 加入社区

切换为时间正序

都市夜猫 2008-07-17

打赏
举报

[Quote=引用 12 楼 sdhfeng 的回复:]
我将代码改成如此就可以了：
thisform.combo2.RowSource='sele distinc allt(str(bkz)) AS bkz from &_dbc.!bkbm_v into cursor bkzmp order by bkz'
[/Quote]

除非你所有的 bkz 都是一位数，否则，当碰到取出的第一条纪录是一位数时，你的语句导致的结果是所有大于9的 bkz 都被截断为一位数

sdhfeng 2008-07-17

打赏
举报

我将代码改成如此就可以了：
thisform.combo2.RowSource='sele distinc allt(str(bkz)) AS bkz from &_dbc.!bkbm_v into cursor bkzmp order by bkz'
谢谢朋友的提醒!!

sdhfeng 2008-07-17

打赏
举报

dkfdtf这位朋友，按你的修改代码意见修改了还是没用啊。

都市夜猫 2008-07-17

打赏
举报

我也没做试验，只是凭空想象而已，如果情况不是这样，在此深表歉意！

sdhfeng 2008-07-17

打赏
举报

dkfdtf，为何会都只取了一位数？ allt(str(bkz))是将其转换成字符型并去除空格啊。

都市夜猫 2008-07-16

打赏
举报

改一下组合框的数据源：

thisform.combo2.RowSource='sele distinc padr(trans(bkz),10) AS bkz from &_dbc.!bkbm_v into cursor bkzmp order by bkz'
thisform.combo2.DisplayValue=bkzmp.bkz

shxmh 2008-07-16

打赏
举报

楼主说的情况只有一种解决办法

就是你的combobox.width值>=可能出的ColumnWidth值

sdhfeng 2008-07-16

打赏
举报

是不是因为查询出来的数据是整型数据啊，那以上代码如何改一下啊？

sdhfeng 2008-07-16

打赏
举报

我在下拉列表框中用的是这样的代码：
thisform.combo2.RowSource='sele distinc bkz from &_dbc.!bkbm_v into cursor bkzmp order by bkz'
thisform.combo2.DisplayValue=ALLTRIM(STR(bkzmp.bkz))
加上上面这位老兄的代码，下拉菜单宽度是变了，可是当点击下拉菜单时，数字看不到了，因为原先数字是紧靠在最右边的，现在宽度变窄了，数字不见了。

老七 2008-07-16

打赏
举报

dkfdtf的回复没问题,用字段测试一下

sdhfeng 2008-07-16

打赏
举报

按你的方法做了下，确实能调整宽度大小，我原先在属性里设置不行，写了代码可以了。
不过现在问题是下拉菜单中的数字看不到了。

老七 2008-07-16

打赏
举报

Width

都市夜猫 2008-07-16

打赏
举报

除非你用的不是 vfp，否则设置它绝对没错:

With Thisform.ComboBox1
.ColumnCount = 2
.ColumnWidth = '50,0'
.ColumnLines = .F.
EndWith

sdhfeng 2008-07-16

打赏
举报

这样设置不对，还是没变化。

都市夜猫 2008-07-16

打赏
举报

设置 ColumnWidths 属性就行了

下拉列表框显示数据的宽度问题!

相关推荐