一个w_1中有个dw_1 其dataobject为 dw_xianjin_edit

2014-02-12 10:14:58 319 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

weblogic 集群搭建，双机部署，相关问题记录 4.5.集群搭建1 参考网址https://wenku.baidu.com/view/76365129cd1755270722192e453610661ed95aa4.html IP地址端口角色 192.168.1.160 9001 AdminServer ... 阅读详情

dw_xianjin_edit中四列均为dorpdowndw 现在要这个四列联动
选了第一项，第二项过滤，以此类推

...全文

PB报表自定义系统：基于DataWindow的动态配置化实践在企业级应用开发中，报表需求频繁迭代，硬编码方式往往导致重复开发与维护成本居高不下。报表动态化设计的核心在于将界面展示与数据绑定解耦，通过元数据描述接口动态调整数据窗口属性，实现列布局、计算字段、过滤参数等元素的灵活配置。这种机制不仅提升了开发效率，还能支持运行期无编译发布，为存量系统改造提供了可行路径。在典型业务场景中，用户可调整列宽、增加金额计算列、按部门过滤数据，甚至实现列级权限控制。PowerBuilder的DataWindow凭借其强大的数据绑定与Describe/Modify接口，成为落地自定义阅读详情

jiery

DataWindow 611 成员 20,469 内容

+ 关注 + 加入社区

切换为时间正序

jiery 2014-02-14

打赏
举报

string ls_new_sql,ls_old_sql
DataWindowChild dw_child_yijikm
This.GetChild("yijikm",dw_child_yijikm) //一级科目
dw_child_yijikm.SetTransObject( SQLCA)
dw_child_yijikm.SetRedraw(False)
//dw_child_yijikm.setfilter(" and levelpcode ='"+string(dw_1.getitemstring(1,'zijinliuxiang'))+"'") //资金流向
//dw_child_yijikm.filter()
dw_child_yijikm.Retrieve(gs_ztdm)
IF dw_child_yijikm.RowCount() <= 0 Then
	dw_child_yijikm.InsertRow(0)
End IF

jiery 2014-02-14

打赏
举报

帮忙搞个例子或者帮忙改下高手

WorldMobile 2014-02-13

打赏
举报

引用 4 楼 jiery 的回复:

dw_1 itemchanged 代码

string ls_zijinliuxiang,ls_yijicode,ls_yijiname,ls_data
if dwo.name='zijinliuxiang' then
	 if (data <> '' or not(isnull(data))) then 
		ls_zijinliuxiang = data
		declare cs_emp cursor for
		 select levelcode,levelname 
		 from T_B_kemu where ztdm=:gs_ztdm and leveclass=2 and LEFT(levelcode,2) = :ls_zijinliuxiang;
		open cs_emp;
		 fetch cs_emp into :ls_yijicode,:ls_yijiname;
		 ls_data = ''
		 do while sqlca.sqlcode = 0
		    ls_data =ls_data + Trim(ls_yijiname) +"~t" + Trim(ls_yijicode)  +"/"
			
			fetch cs_emp into :ls_yijicode,:ls_yijiname;
		 loop;	
		close cs_emp;
		If len(trim(ls_data)) > 0 Then
			this.setitem(row,'yijikm','')
		   	this.object.yijikm.values = ls_data
		else
			this.setitem(row,'yijikm','')
			this.object.yijikm.values = ""
		end IF
	end if
end if

这样无法改变下拉框的数据源啊

用getchild取出子数据窗口，然后再对子数据窗口进行过滤，你的代码写的是针对下拉列表来实现的，当然不行

jiery 2014-02-13

打赏
举报

我这个窗口就一个dw dw_1 dw_1的四个列都为dropdowndw

WorldMobile 2014-02-13

打赏
举报

在每一个数据窗口的itemchanged事件里写代码如果数据发生变化，就用根据输入的数据，过滤下一个数据窗口里的下拉数据窗口的数据即可比如 string ls_data ls_data = data datawindowchild ldwc_child dw_2.getchild("一级科目", ldwc_child) //一级科目为你的带下拉数据窗口列名，根据你实际的列名替换掉 ldwc_child.setfilter("科目 like '" + ls_data + "'") //这里写你需要的过滤条件 ldwc_child.filter()

jiery 2014-02-13

打赏
举报

dw_1 itemchanged 代码

string ls_zijinliuxiang,ls_yijicode,ls_yijiname,ls_data
if dwo.name='zijinliuxiang' then
	 if (data <> '' or not(isnull(data))) then 
		ls_zijinliuxiang = data
		declare cs_emp cursor for
		 select levelcode,levelname 
		 from T_B_kemu where ztdm=:gs_ztdm and leveclass=2 and LEFT(levelcode,2) = :ls_zijinliuxiang;
		open cs_emp;
		 fetch cs_emp into :ls_yijicode,:ls_yijiname;
		 ls_data = ''
		 do while sqlca.sqlcode = 0
		    ls_data =ls_data + Trim(ls_yijiname) +"~t" + Trim(ls_yijicode)  +"/"
			
			fetch cs_emp into :ls_yijicode,:ls_yijiname;
		 loop;	
		close cs_emp;
		If len(trim(ls_data)) > 0 Then
			this.setitem(row,'yijikm','')
		   	this.object.yijikm.values = ls_data
		else
			this.setitem(row,'yijikm','')
			this.object.yijikm.values = ""
		end IF
	end if
end if

这样无法改变下拉框的数据源啊

zlf19810306 2014-02-13

打赏
举报

dw_1 的 itemchanged event里写代码 datawindowchild ldc_1,..... choose case dwo.name case columnname1 ..... case columnname2 ..... end choose 通过判断dwo.name 也就是列名，看是哪个列下拉，走对应的分支，然后用datawindowchild 对象获取下级的dropdowndw，然后用setfilter过滤或者是用retrieve（）重新获取这样就可以四个下拉列表联动

一个w_1中有个dw_1 其dataobject为 dw_xianjin_edit

相关推荐