611
社区成员
发帖
与我相关
我的任务
分享打印问题：有没有可以直接修改PB数据窗口单位的方法？
现正在做一个通用的打印窗口。问题是在设置预览的纸张边距时，显示的为厘米。而数据窗口可以有四种单位。如果每次在改变时，进行单位转换也可以实现。能不能直接修改Units.我用dw_1.modify("datawindow.units=3")却没有变化。如用dw_1.object.datawindow.units=3则提示Error accessing external object property units
请问该如何解决
请问该如何解决
...全文
请发表友善的回复…
发表回复
竹风荷 2003-08-05
- 打赏
- 举报
up
Thinkinger 2003-08-02
- 打赏
- 举报
这个就可能要根据单位的不同，你自己调整布局了！没有更好的方法！
dtydlzg1980 2003-08-02
- 打赏
- 举报
不懂，搬上板凳听
竹风荷 2003-08-02
- 打赏
- 举报
to luminrong:units这样是不能更改，提示ACCESS EXTERNAL OBJECT PROPERTY ERROR！
竹风荷 2003-08-02
- 打赏
- 举报
to thinkinger:这样是可以改变单位，但却不能改变数据窗口中这个对象的位置，大小等相关数据，导致改单位后。该数据窗口有了明显的变化。
我现在需要这样做。是在一个窗口上的singleedit控件中，设置一个值。通过这个值来改变数据窗口打印时的边距。问题是如单位不同，则这个值用户是无法确定，所以要通一显示为厘米，PB的预览也是厘米。所以我想在改变边距前改变其单位。
我现在需要这样做。是在一个窗口上的singleedit控件中，设置一个值。通过这个值来改变数据窗口打印时的边距。问题是如单位不同，则这个值用户是无法确定，所以要通一显示为厘米，PB的预览也是厘米。所以我想在改变边距前改变其单位。
luminrong 2003-08-01
- 打赏
- 举报
string ls_test
ls_test = dw_edit.Describe("DataWindow.Units")
if ls_test <> '3' then
dw_eidt.Object.DataWindow.Units = '3'
end if
ls_test = dw_edit.Describe("DataWindow.Units")
if ls_test <> '3' then
dw_eidt.Object.DataWindow.Units = '3'
end if
eminena 2003-08-01
- 打赏
- 举报
你需要在什么时候改变单位?
Thinkinger 2003-08-01
- 打赏
- 举报
units是不能代码设置的！
解决思路：
用libraryexport()函数把你对应的数据窗口导到一个string变量中，用pos(),mid()函数配合找到units属性，修改units后,用libraryimport()放到库文件中，然后使用；使用完后用librarydelete()去到新增的这个datawindow object
解决思路：
用libraryexport()函数把你对应的数据窗口导到一个string变量中，用pos(),mid()函数配合找到units属性，修改units后,用libraryimport()放到库文件中，然后使用；使用完后用librarydelete()去到新增的这个datawindow object
竹风荷 2003-08-01
- 打赏
- 举报
up
竹风荷 2003-08-01
- 打赏
- 举报
to eminena:加上单引号也是一样的。我用这样的语句，就不提示错误。
long ll_tp
ll_tp=dw_1.object.datawindow.units.
只有在写入时才提示错误码，用modify不提示错误码 ，但却不能修改值
long ll_tp
ll_tp=dw_1.object.datawindow.units.
只有在写入时才提示错误码，用modify不提示错误码 ，但却不能修改值
eminena 2003-08-01
- 打赏
- 举报
1.Units 是字符型
2.相应语句是
dw_edit.Object.DataWindow.Units='1'
2.相应语句是
dw_edit.Object.DataWindow.Units='1'
Pegasuscc 2003-08-01
- 打赏
- 举报
关注up
