2,749
社区成员
发帖
与我相关
我的任务
分享下拉列表框显示数据的宽度问题!
本人做了个下拉列表框，当打开时出现下拉菜单远宽于combobox宽度，很难看，而且当选择了某项以后居然看不到数据。
因为下拉菜单中的数据是由数据库中查找的整型数据，只有1位数，不知为何那么宽。
能否调节成与combobox宽度一样。
因为下拉菜单中的数据是由数据库中查找的整型数据，只有1位数，不知为何那么宽。
能否调节成与combobox宽度一样。
...全文
请发表友善的回复…
发表回复
都市夜猫 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 都被截断为一位数
我将代码改成如此就可以了：
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'
谢谢朋友的提醒!!
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
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值
就是你的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))
加上上面这位老兄的代码，下拉菜单宽度是变了，可是当点击下拉菜单时，数字看不到了，因为原先数字是紧靠在最右边的，现在宽度变窄了，数字不见了。
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
With Thisform.ComboBox1
.ColumnCount = 2
.ColumnWidth = '50,0'
.ColumnLines = .F.
EndWith
sdhfeng 2008-07-16
- 打赏
- 举报
这样设置不对，还是没变化。
都市夜猫 2008-07-16
- 打赏
- 举报
设置 ColumnWidths 属性就行了
