一个w_1中有个dw_1 其dataobject为 dw_xianjin_edit

[jiery]

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

[zlf19810306]

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

[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

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

[WorldMobile]

在每一个数据窗口的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]

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

[WorldMobile]

引用 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]

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

[jiery]

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