ls_bankname = this.GetItemString(row,"cardbank")
If ls_bankname = '全部' Then
ls_filter = ''
Else
ls_filter = " (cardbank = '" + ls_bankname + "' or pici = '全部') "
End If
//对 B 下拉数据窗口进行过滤
Long ll_insert,ll_code
DataWindowChild ldwc_pici
ll_code = dw_pici.GetChild('pici',ldwc_pici)
IF ll_code = -1 THEN MessageBox("Error", "Not a DataWindowChild")
ldwc_pici.SetFilter(ls_filter)
ldwc_pici.Filter()
choose case dwo.name
case "费用名称"
ldwc.settransobject(sqlca)
ls_dwcsql=ldwc.getsqlselect()
ls_tempsql=ls_dwcsql+" and 客户报价单产品.图号='"+ls_itemcode+"'"
ldwc.setsqlselect(ls_tempsql)
ldwc.retrieve()
ldwc.setsqlselect(ls_dwcsql)
case "费用值"
ls_costname = this.object.费用名称[row]
ldwc.settransobject(sqlca)
ls_dwcsql=ldwc.getsqlselect()
ls_tempsql=ls_dwcsql+" and 客户报价单产品.图号='"+ls_itemcode+"' and 费用名称='"+ls_costname+"'"
ldwc.setsqlselect(ls_tempsql)
ldwc.retrieve()
ldwc.setsqlselect(ls_dwcsql)
end choose
IF rtncode = -1 THEN MessageBox("Error", "Not a DataWindowChild")
ls_datatype = Left(adw_ini.Describe(s_column+".ColType"),5)
li_row = adw_ini.getrow()
choose case ls_datatype
case 'int'
ls_data = string(adw_ini.getitemnumber(li_row,s_column))
case 'char'
ls_data = adw_ini.getitemstring(li_row,s_column)
case 'date'
ls_data = string(adw_ini.getitemdate(li_row,s_column),'yyyy-mm-dd')
case 'long'
ls_data = string(adw_ini.getitemnumber(li_row,s_column))
case 'numb'
ls_data = string(adw_ini.getitemnumber(li_row,s_column))
case 'real'
ls_data = string(adw_ini.getitemnumber(li_row,s_column))
end choose
if add_condition = 1 then
ls_filter = as_condition + "'"+ls_data+"'"
else
ls_filter = s_column + "='"+ ls_data+"'"
end if
DataWindowChild dwc_orders
this.GetChild("后一列", dwc_orders)
dwc_orders.SetTransObject(SQLCA)
//上面定义实例变量,放在open事件中
if dwo.name = '前一列' then
dwc_orders.Retrieve(data)
end if