12-01-20, 05:34 AM
السلام عليكم
مع داتا جريد فيو فيها ثلاية اعمدة الاول من نوع CheckBoxColumnو الثاني من نوع TextBoxColumn و الثالث من نوع TextBoxColumn
المشكلة عند زر الحفظ
عند الظغط على زر الحفظ يقوم بقرأة العمود CheckBoxColumn بشكل صحيح اذا تم الادخال في احد الخلايا من احد الاعمدة TextBoxColumn
اذا لم يتم الادخال في احد الاعمدة يقرأ العمود CheckBoxColumn انة فارغ Nothing مع ان الخلية في العمود تكون True
ايش السبب هل توجد خصائص اخرى او الكود فية خطاء
هذا الكود
مع داتا جريد فيو فيها ثلاية اعمدة الاول من نوع CheckBoxColumnو الثاني من نوع TextBoxColumn و الثالث من نوع TextBoxColumn
المشكلة عند زر الحفظ
عند الظغط على زر الحفظ يقوم بقرأة العمود CheckBoxColumn بشكل صحيح اذا تم الادخال في احد الخلايا من احد الاعمدة TextBoxColumn
اذا لم يتم الادخال في احد الاعمدة يقرأ العمود CheckBoxColumn انة فارغ Nothing مع ان الخلية في العمود تكون True
ايش السبب هل توجد خصائص اخرى او الكود فية خطاء
هذا الكود
كود :
For i As Integer = 0 To DG.Rows.Count - 1
Dim check As Boolean = CType(DG.Rows(i).Cells("Status").Value, Boolean)
check = DG.Rows(i).Cells("Status").Value
If check = Nothing Then
check = 0
ElseIf check = True Then
check = 1
ElseIf check = False Then
check = 0
End If
Dim Employee_number As String = DG.Rows(i).Cells("Employee_number").Value()
Dim Statement As String = DG.Rows(i).Cells("Statement").Value()
If Not String.IsNullOrEmpty(DG.Rows(i).Cells("Employee_number").Value()) Then
Dim SelectSt As String = "Insert Into employees (Employee_number,Statement,Status) values "
(" & Employee_number & "," & Statement & "," & check & ")"
'معلومة فتح الاتصال في هذه الدالة الذي في الاسفل
If Not DML_Statment(SelectSt) Then CommitTrans(False) : Exit Sub
End If
Next