在DW的header动态建立TEXT的问题

fuxiaoyang13 2010-11-30 06:51:47

ls_return = this.modify( &
"create text(band=header alignment='0' text='6' border='6' color='16776960'" + &
" x='"+string(ll_newx)+"' y='0' height='" +string(ll_height)+ "' width='50'" + &
" name= " + ll_colname +"_filter_" + string(ll_col , '00') + &
" font.face='Webdings' font.height='-10'" + &
" font.weight='400' font.family='1' font.pitch='2'" + &
" font.charset='2' background.mode='1' background.color='12639424')")

我用上面的代码要在DW的header区每列的尾部建立个50宽的TEXT控件，可实际建立出来的TEXT覆盖整个列了
请各位大侠帮忙看看是啥原因！PB9.0的 DW是GRID风格的

...全文

363 30 打赏收藏转发到动态举报

写回复

用AI写文章

30 条回复

切换为时间正序

请发表友善的回复…

发表回复

fuxiaoyang13 2010-12-01

打赏
举报

多谢xiaobn_cn兄了！

xiaobn_cn 2010-12-01

打赏
举报

我就能想出这个办法了，有时候PB做的工作太多反而会给程序员造成困扰。呵呵

fuxiaoyang13 2010-12-01

打赏
举报

不过这样还要去计算当前标题可以容纳的字符数才能将要加的字符插入前部或尾部！

fuxiaoyang13 2010-12-01

打赏
举报

这个倒是个方法！！！！！！！！！！

xiaobn_cn 2010-12-01

打赏
举报

grid风格实现可以通过以下办法实现：
不需要生成新的text ,就在grid标题的text后面加上你所需要字符,例如将“名称”改为“ 名称 ...”，然后在clicked事件中通过算法（见后面）判断出点击的位置相对于该控件左侧的偏移量，当偏移量符合指定值时认为用户点击的是“...”位置，然后执行相应的代码。

// 数据窗口偏移量 ＋ 点击位置X坐标 － 控件的X坐标

Integer(This.Object.Datawindow.HorizontalScrollPosition) + XPos - Integer(This.Describe(dwo.Name + '.X'))

fuxiaoyang13 2010-12-01

打赏
举报

要写代码啊，这个俺不不知道咋写，要是GRID风格能实现就好了

xiaobn_cn 2010-12-01

打赏
举报

PB里没有标准表格这种称呼的数据窗口，一般来说做表格都使用grid风格的。

xiaobn_cn 2010-12-01

打赏
举报

tabular相比与grid缺少了列宽调整和列移动的功能，这是没办法的事，如果需要该功能可以考虑自已写代码实现。

fuxiaoyang13 2010-12-01

打赏
举报

标准的表格式是我在一个报表设计器里看到的！可能是致用报表设计器吧，不知道对应到PB里是哪种

fuxiaoyang13 2010-12-01

打赏
举报

tabular是可以，但不是我想要的效果！！

xiaobn_cn 2010-12-01

打赏
举报

我不是很清楚你指的标准式表格是什么概念，用tabular可以实现的。

fuxiaoyang13 2010-12-01

打赏
举报

这样啊，那TABLULAR和标准的表格式能实现吗！

xiaobn_cn 2010-12-01

打赏
举报

[Quote=引用 6 楼 fuxiaoyang13 的回复:]
我要求的是新建的TEXT只占每个例标题的很小一部分，其余部分还是原列标题，单击新建的TEXT的哪小部分时才弹出下拉表，单击列标题时不弹出下拉表
[/Quote]

据我所知你的要求是达不到的，至少到目前为止我还没找到解决的方法。因为你插入的text控件会被PB自动调整位置和大小。调整的规则是以数据列的间隔线为基准。