实现从Grid中选中一行在FreeForm中显示

 

 

1 定义 window function -----   df_focus(long al_row,string as_colname)  均为public 类型，交并无返回值

       //聚焦处理
dw_mcs832dw2.SelectRow(0,false)
dw_mcs832dw2.ScrollToRow(al_row)
dw_mcs832dw2.SetColumn(as_colname)
dw_mcs832dw2.SetFocus()

 

2 定义 window function ----- wf_selectrow(long al_row) al_row为public 类型，函数无返回值

//焦点处理函数
long ll_row
setpointer(hourglass!)
ll_row = al_row
dw_mcs832dw1.SetRow(ll_row)
dw_mcs832dw1.ScrollToRow(ll_row)
dw_mcs832dw1.SelectRow(0,False)
dw_mcs832dw1.SelectRow(ll_row,True)
dw_mcs832dw2.scrolltorow(ll_row)
if ll_row < 1 then return


//String ls_id ,ls_model,ls_flag,ls_flag1
//int li_control=0                //同步两个数据窗口的数据和焦点
//ls_id = dw_list.getitemstring(ll_row,"ispp_bank_code")  //从数据窗口dw_list里取出bank code的值
//ls_model = dw_list.getitemstring(ll_row,"ispp_model_grp")
//ls_flag = dw_list.getitemstring(ll_row,'ISPP_DEL_FLAG')
//dw_detail.retrieve(ls_id,ls_model)
//wf_flag(ls_flag,li_control)
//dw_detail.setitem(1,'ISPP_DEL_FLAG',ls_flag)
//setpointer(arrow!


//*******************************************
//聚焦处理
//dw_mcs832dw2.SelectRow(0,false)
//dw_mcs832dw2.ScrollToRow(al_row)
//dw_mcs832dw2.SetColumn(as_colname)
//dw_mcs832dw2.SetFocus()

 

3 在Grid类型的数据窗口的Clicked  事件下编码：

 

    long ll_rows
    int ll_RowNbr,ll_ModifyRowNbr
    ll_rows = dw_mcs832dw1.Retrieve()

    if ll_rows < 0 then
        MessageBox( "Database Error", "No rows retrieved")
    return 
    end if

    ll_RowNbr = dw_mcs832dw1.getClickedRow()

    if    ll_RowNbr = 0 then
          return
   else
   
     ll_ModifyRowNbr = dw_mcs832dw1.getItemNumber(ll_RowNbr,1)   
     dw_mcs832dw2.retrieve(ll_ModifyRowNbr)
     //dw_mcs832dw1.shareData(dw_mcs832dw2)
      wf_selectrow(ll_RowNbr)
    //return ll_ModifyRowNbr
end if