子数据窗口代码

//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