26-03-20, 05:38 PM
مساعدة
احاول ملء داتا جريد من جدول معين
في حالة ما اذا كان الجدول يحوي معطيات يقوم بجلبها وملء الداتا جريد بشكل عادي جدا ولكن في الحالة العكسية اذا كان الجدول فارغ فانه لا يمكنني الاضافة على الداتا جريد
حاولت اضافة سطر بدون جدوى
Sub LoaddatafromIndemnite()
Dim newdata As Boolean = True
Connect()
Dim da As SqlDataAdapter
Dim dt As DataTable
da = New SqlDataAdapter("Select Indemnite.Id_indemnite as[الفهرس], Indemnite.id_aff as [القضية], Indemnite.id_tiers as[رمز المعني], Indemnite.Indemnite1 as[تسمية التعويض], Indemnite.n_personne1 as[عدد الافراد], Indemnite.date_debut1 as[من تاريخ], Indemnite.date_fin1 as[الى غاية], Indemnite.montant_dette1 as[مبلغ الدين], Indemnite.obligation1 as[الالزامات] From Indemnite INNER Join affaires On Indemnite.id_aff = affaires.id_aff Where affaires.id_aff ='" & Naffaire & "'", con)
dt = New DataTable
da.Fill(dt)
If dt.Rows.Count <= 0 Then
'كود الاضافة على داتا جريد في سطر فارغ
...................................
..................................
Else
DataGridView1.DataSource = dt
End If
con.Close()
da.Dispose()
End Sub
احاول ملء داتا جريد من جدول معين
في حالة ما اذا كان الجدول يحوي معطيات يقوم بجلبها وملء الداتا جريد بشكل عادي جدا ولكن في الحالة العكسية اذا كان الجدول فارغ فانه لا يمكنني الاضافة على الداتا جريد
حاولت اضافة سطر بدون جدوى
Sub LoaddatafromIndemnite()
Dim newdata As Boolean = True
Connect()
Dim da As SqlDataAdapter
Dim dt As DataTable
da = New SqlDataAdapter("Select Indemnite.Id_indemnite as[الفهرس], Indemnite.id_aff as [القضية], Indemnite.id_tiers as[رمز المعني], Indemnite.Indemnite1 as[تسمية التعويض], Indemnite.n_personne1 as[عدد الافراد], Indemnite.date_debut1 as[من تاريخ], Indemnite.date_fin1 as[الى غاية], Indemnite.montant_dette1 as[مبلغ الدين], Indemnite.obligation1 as[الالزامات] From Indemnite INNER Join affaires On Indemnite.id_aff = affaires.id_aff Where affaires.id_aff ='" & Naffaire & "'", con)
dt = New DataTable
da.Fill(dt)
If dt.Rows.Count <= 0 Then
'كود الاضافة على داتا جريد في سطر فارغ
...................................
..................................
Else
DataGridView1.DataSource = dt
End If
con.Close()
da.Dispose()
End Sub