0

我正在尝试在 MS-Access2007 VBA 中为列表框输入 ColumnWidths,但在获取十进制数字时遇到问题。

代码:

ResultList.ColumnWidths = "1;0.65;0.7;0.7;0.8;0.4"
Debug.Print ResultList.ColumnWidths

为 ColumnWidths 放入的内容:

1;1;1;1;1;0

我想让它在输入后的方式(基于现在的情况):

1";0.65";0.7";0.7";0.8";0.4"

问题:

我如何让它认识到我想要小数点,以便它停止四舍五入?有没有办法在要输入的字符串中加上引号?

4

2 回答 2

2
ResultList.ColumnWidths = "1 cm;0.65 cm;0.7 cm;0.7 cm;0.8 cm;0.4 cm"

查看 ColumnWidths 的文档。它说

ColumnWidths 属性保存一个值,以英寸或厘米为单位指定每列的宽度,具体取决于在 Windows 控制面板的区域选项对话框的数字选项卡上的测量系统框中选择的测量系统(美国或公制)。默认设置为 1 英寸或 2.54 厘米。对于列表框或组合框中的每一列,ColumnWidths 属性设置必须是 0 到 22 英寸(55.87 厘米)之间的值。

编辑:您也可以以英寸为单位指定宽度。

ResultList.ColumnWidths = "1 in;0.65 in;0.7 in;0.7 in;0.8 in;0.4 in"
于 2009-07-10T19:17:30.757 回答
0

Shahkalpesh 为您提供了问题的解决方案,但您实际问题的答案是将字符串中的每个引号加倍。

sWidths = "1"";0.65"";0.7"";0.7"";0.8"";0.4"""
Debug.Print sWidths

->  1";0.65";0.7";0.7";0.8";0.4"

非常不好看!这就是您在常规 VB 字符串变量中执行此操作的方式,但这不是该属性的正确语法。

于 2009-07-10T22:21:59.327 回答