datawindow 高级问题(datawindow column 自动增高问题)

xiezhsh3 2002-12-10 11:39:18

把datawindow中的某一column设置为Autosize height, 在显示时正常, 但用
dw.describe("columnname.height")得到的高度还是设计时该column的高度,
现在想得到显示的高度, 该怎么处理呢? 急阿, 请各位帮忙!


...全文
124 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
lyzalan 2002-12-12
  • 打赏
  • 举报
回复

我的数据窗口风格是freefrom,把datawindow中的某一column设置为Autosize height, 在显示时正常, 但用
dw.describe("columnname.height")得到的高度还是设计时该column的高度,
现在想得到显示的高度, 该怎么处理呢? 以上的方法我都试过就是不能正确得到列的高度,不是grid 风格的rowheight()这样只能得到行的高度.急阿, 请各位帮忙!在此表示感谢!
dotnba 2002-12-12
  • 打赏
  • 举报
回复
那你把所有行高加起来不就是列的高度了吗?
首先加计算列(RowHeight):RowHeight.Expression = RowHeight()
再加汇总计算:Sum(RowHeight For All)
888888888888 2002-12-10
  • 打赏
  • 举报
回复
关注!

有空帮我看看http://expert.csdn.net/Expert/topic/1238/1238213.xml?temp=.2264673
balloonman2002 2002-12-10
  • 打赏
  • 举报
回复
K,我怎么连显示自动调整高度都不成功啊,K,,,
再查查帮助,看有没有其他方法,,,
llitcwl 2002-12-10
  • 打赏
  • 举报
回复
dw_1.Object.DataWindow.Detail.Height
试试取带区的高度(应该是配合带区调高用的吧?)
laoj 2002-12-10
  • 打赏
  • 举报
回复
ldy(罗大佑) ( ) 的方法可以,我试过。
balloonman2002 2002-12-10
  • 打赏
  • 举报
回复
数据窗口的自动折行设置

答:自动折行设置:
1、在DataWindow Painter中打开DataWindow;
2、在需设定自动折行的列上双击鼠标, 弹开此列的属性窗口;
3、 选择Position标签, 选中Autosize Height 多选框;
4、 选择Edit标签, 不选中Auto Horz Scroll多选框;
5、 单击OK按钮, 保存所做的修改;
6、 点中Detail Band (即写有Detail的灰色长带), 单击鼠标右键, 选择Properties... 菜单项;
7、 选中Autosize Height多选框;
8、 单击OK按钮, 保存所做的修改;
9、 保存DataWindow。


我按照上面做的,用的是GRID风格,总是不成功,K,,,
dotnba 2002-12-10
  • 打赏
  • 举报
回复
long ll_row
string ls_height

ll_row = dw_1.InsertRow(0)
dw_1.scrolltorow(ll_row)
ls_height = dw_1.describe("evaluate('RowHeight()'," + string(ll_row) + ")")
MessageBox("行高",ls_height)

TO: balloonman2002(CSDN太慢了 :()
你不能选中Auto Horz Scroll
上面已经在PB8中测试
dotnba 2002-12-10
  • 打赏
  • 举报
回复
long ll_row
string ls_height

ll_row = dw_image.InsertRow(0)
dw_image.SetItem(ll_row,"imageid",string(ll_row,"000000") + " tetet")
dw_image.scrolltorow(ll_row)

ls_height = dw_image.describe("evaluate('RowHeight()'," + string(ll_row) + ")")
MessageBox("行高",ls_height)
xiezhsh3 2002-12-10
  • 打赏
  • 举报
回复
To: llitcwl(中国龙)
测试了, 跟带区没有关系
当数据存在主次表时,当更新了次表数据后,主表数据在后台有更变时。可利用刷新主表当前行的方法重显主表数据。 /************************************************************ 函数名称: f_refresh_currentrow(adw) 功 能: 刷新DW当前行数据,不可刷新NO update or 带arguments的DW 参数说明: adw 目标DW 返 回 值: integer 成功返回1,失败返回-1 作 者: sean 创建时间: 2010年8月18日 ************************************************************/ string ls_dataobject string ls_keys[] //key Column Name string ls_dbname[] //key field Name string ls_coltype[] //field style string ls_tablenm //table name string ls_condition //sql Condition long ll_currentrow //Current Row numeric long ll_column //Column count integer i datawindow ldw datastore ldatastore ldw=adw if ldw.rowcount( )=0 then return -1 elseif trim(ldw.describe( "datawindow.table.arguments"))<>'?' then messagebox('','刷新数据窗口当前行失败!,数据窗口需要参数',exclamation!) return -1 else ll_currentrow=ldw.getrow( ) FOR ll_column = 1 TO long(ldw.object.datawindow.column.count)//key names If ldw.Describe("#"+string(ll_column)+".key") ='yes' Then i++ ls_keys[i]=ldw.Describe("#"+string(ll_column)+".name") ls_dbname[i]=ldw.Describe("#"+string(ll_column)+".dbname") ls_coltype[i]=ldw.Describe("#"+string(ll_column)+".coltype") End If NEXT if upperbound(ls_keys[])=0 then messagebox('','刷新数据窗口当前行失败!,没有主键',exclamation!) return -1 else ls_tablenm=left(ls_dbname[1],pos(ls_dbname[1],'.') -1) //table name for i=1 to upperbound(ls_keys[]) if pos('numb,deci,long,',LeftA(ls_coltype[i],4) +',')>0 then ls_condition+="and "+ls_dbname[i]+"="+string(f_getitem(ldw,ll_currentrow,ls_keys[i])) else ls_condition+="and "+ls_dbname[i]+"='"+string(f_getitem(ldw,ll_currentrow,ls_keys[i]))+"'" end if next ls_condition=mid(ls_condition,4) //sql Condition ldatastore=create datastore ldatastore.dataobject=ldw.dataobject ldatastore.settransobject( sqlca) if f_addwhere_retrieve(ldatastore,ls_condition)=1 then if ldatastore.rowcount( )=1 then ldw.object.data[ll_currentrow]=ldatastore.object.data[1] ldw.setitemstatus( ll_currentrow, 0, primary!, NotModified!) //if ldw.getrow( )<>ll_currentrow then ldw.scrolltorow( ll_currentrow) end if else messagebox('','刷新数据窗口当前行失败!,条件语法错误',exclamation!) return -1 end if destroy ldatastore end if end if

609

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder DataWindow
社区管理员
  • DataWindow社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧