一个w_1中有个dw_1 其dataobject为 dw_xianjin_edit

jiery 2014-02-12 10:14:58
dw_xianjin_edit中四列均为dorpdowndw 现在要这个四列联动
选了第一项,第二项过滤,以此类推
...全文
229 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
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()重新获取 这样就可以四个下拉列表联动

611

社区成员

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

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