29-10-20, 09:47 PM
السلام عليكم ورحمة الله تعالي اخواتي واخوتى
ارجو منكم المساعدة
لقد قمت بتصميم برنامج للاقساط وعندي مشكلة في شاشة دفع اكثر من قسط
بعد كتابة ذلك الكود لا يتم التعديل في داخل قاعدة البيانات
'التعديل على جدول الاقساط
Public Sub Update_InstallmentSchedule_InDirect(colName As String, colNametxt As String)
' check if this ColumnName is already exist in database
Dim DT As New DataTable
Dim da As New SqlDataAdapter
DT.Clear()
da = New SqlDataAdapter("Select * FROM InstallmentSchedule where " & colName & " = " & colNametxt & "", con)
da.Fill(DT)
For t As Integer = 0 To dgv.Rows.Count - 1
Dim pos As Integer = DT.Rows.Count - 1
DT.Rows(pos).Item("Dated") = Today
DT.Rows(pos).Item("Staus") = dgv(5, t).Value
DT.Rows(pos).Item("UserNaem") = mainScreen.Label5.Text
Dim Save As New SqlCommandBuilder(da)
da.Update(DT)
DT.AcceptChanges()
Next
وذلك الكود من خلف (Button) للمرور على جميع البيانات وحفظها
For T As Integer = 0 To dgv.Rows.Count - 1
If dgv(1, T).Value = True Then
Update_InstallmentSchedule_InDirect("ID", dgv(0, T).Value)
End If
Next
ارجو منكم المساعدة لاننى في امس الحاجة للرد منكم
والسلام عليكم ورحمة الله تعالي
ارجو منكم المساعدة
لقد قمت بتصميم برنامج للاقساط وعندي مشكلة في شاشة دفع اكثر من قسط
بعد كتابة ذلك الكود لا يتم التعديل في داخل قاعدة البيانات
'التعديل على جدول الاقساط
Public Sub Update_InstallmentSchedule_InDirect(colName As String, colNametxt As String)
' check if this ColumnName is already exist in database
Dim DT As New DataTable
Dim da As New SqlDataAdapter
DT.Clear()
da = New SqlDataAdapter("Select * FROM InstallmentSchedule where " & colName & " = " & colNametxt & "", con)
da.Fill(DT)
For t As Integer = 0 To dgv.Rows.Count - 1
Dim pos As Integer = DT.Rows.Count - 1
DT.Rows(pos).Item("Dated") = Today
DT.Rows(pos).Item("Staus") = dgv(5, t).Value
DT.Rows(pos).Item("UserNaem") = mainScreen.Label5.Text
Dim Save As New SqlCommandBuilder(da)
da.Update(DT)
DT.AcceptChanges()
Next
وذلك الكود من خلف (Button) للمرور على جميع البيانات وحفظها
For T As Integer = 0 To dgv.Rows.Count - 1
If dgv(1, T).Value = True Then
Update_InstallmentSchedule_InDirect("ID", dgv(0, T).Value)
End If
Next
ارجو منكم المساعدة لاننى في امس الحاجة للرد منكم
والسلام عليكم ورحمة الله تعالي