子数据窗口代码

//String ls_temp
//String ls_sql
//DataStore ldst_temp
//String ls_syntax
//String ls_errors
//int li_i=1
//any la_new
//datawindowchild dw_temp
//
//
//ls_temp=""
//ib_Modified = true
//
//if Dwo.name = "bgxm" then
//
////判断是否已经存在相同字段名
//do while li_i<=dw_list.rowcount( )
// if dw_list.GetItemString(li_i,"bgxm")=datathen
//  messagebox("变更项目重复","请重新选择变更项目！")   
//  cb_4.PostEvent(Clicked!)
//  return
// end if
// li_i++
//loop
////回复变更前内容
// ls_temp=dw_list.GetItemstring(row,"bgxm")
// choose caseleft(Lower(ldst_zb.Describe(ls_temp+".ColType")),3)
// case 'cha'
//  la_new=dw_list.GetItemString(row,"bgqnr")
// case 'dat'
//  la_new=date(dw_list.GetItemstring(row,"bgqnr"))
// case 'num'
//  la_new=double(dw_list.GetItemstring(row,"bgqnr")) 
// endchoose  
// ldst_zb.setitem(1,ls_temp ,la_new )
////读变更前项目
//ls_sql = "select " + data + " from wj_jbxxdjb wheregldm='"+is_gldm+"'"
//ls_syntax =SQLCA.SyntaxFromSql(ls_sql,'style(type=grid)',ls_errors)
//
//if Len(ls_errors) > 0 then return
//ldst_temp = Create DataStore
//if Len(ls_errors) > 0 then return
//ldst_temp.Create(ls_syntax,ls_errors)
//if len(ls_errors) > 0 then return
//ldst_temp.SetTransObject(SQLCA)
//ldst_temp.Retrieve()
//if ldst_temp.RowCount() < 1 then return
//
//dw_list.SetItem(row,"bghnr","")
//choose caseleft(Lower(ldst_temp.Describe(data+".ColType")),3)
// case 'cha'
//  dw_list.SetItem(row,"bgqnr",string(ldst_temp.GetItemString(1,1)))
// case 'dat'
//  dw_list.setitem(row,"bgqnr",string(ldst_temp.GetItemDatetime(1,1),"yyyy-mm-dd"))
// case 'num'
//  dw_list.setitem(row,"bgqnr",string(ldst_temp.GetItemNumber(1,1)))
//end choose
// 
////写下面的窗口
//choose caseleft(Lower(ldst_temp.Describe(data+".ColType")),3)
// case 'cha'
//  dw_1.Modify("t_prevxm_"+string(row)+".text='"+string(ldst_temp.GetItemString(1,1))+"'")
// case 'dat'
//  dw_1.Modify("t_prevxm_"+string(row)+".text='"+string(ldst_temp.GetItemDatetime(1,1),"yyyy-mm-dd")+"'")
// case 'num'
//  dw_1.Modify("t_prevxm_"+string(row)+".text='"+string(ldst_temp.GetItemNumber(1,1))+"'")
//end choose
//
//
//if dw_list.getchild("bgxm",dw_temp)<>-1 then
// long  ll_hh
// ll_hh=dw_temp.find("pbc_cnam='"+data+"'",1,dw_temp.RowCount())
// ls_temp=string(dw_temp.GetItemString(ll_hh,"pbc_hdr"))
// dw_1.Modify("t_xm_"+string(row)+".text='"+ls_temp+"'")
//end if
//
//
//
//
//
//
//
//
//elseif dwo.name = "bghnr" then
//  
////写下面的窗口
//
//  dw_1.Modify("t_nextxm_"+string(row)+".text='"+data+"'")
//
//
//else
// return 
// 
// 
// 
//end if