如何动态将列由edit变成 dddw

[qq_1919561306]

//如何动态将列由edit变成 dddw

this.modify("行业代码.dddw.name=dddw_tcode")
this.modify("行业代码.dddw.displaycolumn='名称'")
this.modify("行业代码.dddw.datacolumn='编码'")

this.modify("行业代码.dddw.percentwidth='200'")
this.modify("行业代码.dddw.hscrollbar='yes' ")
this.modify("行业代码.dddw.vscrollbar='yes'")

DataWindowChild ldwc_child

integer li_rtncode

li_rtncode = this.GetChild('行业代码', ldwc_child)

IF li_rtncode = -1 THEN MessageBox( "Error", "Not a DataWindowChild")

ldwc_child.settransobject(sqlca)
ldwc_child.retrieve( )

[fibbery]

你需要设置edit Style为dddw，然后设置子数据窗口。

[new4everlau]

顶！啊啊

[seven2015]

学习一招

[WellSoft]

//====================================================================
// 名称: of_DynSetColDDDW()
//--------------------------------------------------------------------
// 说明: 动态设置子下拉数据窗口
//--------------------------------------------------------------------
// 参数:
// reference u_dw adw_dw 主数据窗口
// value string as_Column
// value string as_Style
// value string as_DDDWObject dddw的数据窗口对象
// value string as_DataColumn 数据列的列名
// value string as_DisplayColumn 显示列的列名
// value string as_Lines
// value string as_AllowEdit
// value string as_VscrollBar
// value string as_NilIsNull
// value string as_AutoRetrieve
// value string as_Required
//--------------------------------------------------------------------
// 返回: integer
//--------------------------------------------------------------------
// 作者: 陈先生 日期: 2008.01.14
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================

IF adw_dw.DESCRIBE(as_Column + ".Visible") = "1" THEN
adw_dw.Modify(as_Column + ".Edit.Style='" + as_Style + "'")
adw_dw.Modify(as_Column + ".dddw.Name='" + as_DDDWObject + "'")
adw_dw.Modify(as_Column + ".dddw.DataColumn='" + as_DataColumn + "'")
adw_dw.Modify(as_Column + ".dddw.DisplayColumn='" + as_DisplayColumn + "'")
adw_dw.Modify(as_Column + ".dddw.Lines='" + as_Lines + "'")
adw_dw.Modify(as_Column + ".dddw.AllowEdit='" + as_AllowEdit + "'")
adw_dw.Modify(as_Column + ".dddw.VScrollbar='" + as_VscrollBar + "'")
adw_dw.Modify(as_Column + ".dddw.NilIsNull='" + as_NilIsNull + "'")
adw_dw.Modify(as_Column + ".dddw.AutoRetrieve='" + as_AutoRetrieve + "'")
adw_dw.Modify(as_Column + ".dddw.Required='" + as_Required + "'")
END IF

RETURN SUCCESS