r_mehrizi
شنبه 02 شهریور 1387, 10:41 صبح
من این کدها را برای ویرایش یک سطر نوشتم اما اطلاعات ویرایش نمی شود
PrivateSub Insert()
Dim dt AsNew oghaf.tbl_rfDataTable
Dim dr As Oghaf.tbl_rfRow = dt.NewRow
dr = Build_Insert()
Dim RCls AsNew fazBLL
RCls.Addrf(dr)
EndSub
PrivateSub update()
Dim dt AsNew Oghaf.tbl_rfDataTable
Dim dr As Oghaf.tbl_rfRow = dt.NewRow
dr = Build_Insert()
Dim RCls AsNew fazBLL
RCls.Updaterf(dr)
EndSub
PrivateFunction Build_Insert() As Oghaf.tbl_rfRow
Dim dt AsNew Oghaf.tbl_rfDataTable
Dim dr As Oghaf.tbl_rfRow = dt.NewRow
dr.rf_id = Val(Me.hidrf_id.Value)
dr.rf_name = Me.txtrf_name.Text.Trim
dr.rf_order = Me.txtrf_no.Text.Trim
dr.rf_help = Me.txtrf_helpfaz.Text.Trim
dr.rf_des = Me.txtrf_desfaz.Text.Trim
dr.r_id = Val(Me.drop_request.SelectedValue)
dt.Rows.Add(dr)
Return dr
EndFunction
چطوری میشه یک hidden تعریف کرد و اطلاعات را ویرایش نمود
PrivateSub Insert()
Dim dt AsNew oghaf.tbl_rfDataTable
Dim dr As Oghaf.tbl_rfRow = dt.NewRow
dr = Build_Insert()
Dim RCls AsNew fazBLL
RCls.Addrf(dr)
EndSub
PrivateSub update()
Dim dt AsNew Oghaf.tbl_rfDataTable
Dim dr As Oghaf.tbl_rfRow = dt.NewRow
dr = Build_Insert()
Dim RCls AsNew fazBLL
RCls.Updaterf(dr)
EndSub
PrivateFunction Build_Insert() As Oghaf.tbl_rfRow
Dim dt AsNew Oghaf.tbl_rfDataTable
Dim dr As Oghaf.tbl_rfRow = dt.NewRow
dr.rf_id = Val(Me.hidrf_id.Value)
dr.rf_name = Me.txtrf_name.Text.Trim
dr.rf_order = Me.txtrf_no.Text.Trim
dr.rf_help = Me.txtrf_helpfaz.Text.Trim
dr.rf_des = Me.txtrf_desfaz.Text.Trim
dr.r_id = Val(Me.drop_request.SelectedValue)
dt.Rows.Add(dr)
Return dr
EndFunction
چطوری میشه یک hidden تعریف کرد و اطلاعات را ویرایش نمود