مشکل با edit

[r_mehrizi]

من این کدها را برای ویرایش یک سطر نوشتم اما اطلاعات ویرایش نمی شود


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 تعریف کرد و اطلاعات را ویرایش نمود

[b581102]

کد هايی که نوشتيد اصلا خوانا نيست !

[r_mehrizi]

کد هايی که نوشتيد اصلا خوانا نيست !


کدهایم را پیوست کردم خواهش می کنم یک نفر کمک کنه