04-03-20, 02:18 PM
مساعدة في تحيين وتحديث جدول بعد الحفظ
المشكلة اني عندما احفظ بيانات جدول وعند طباعة التقرير المناسب يظهر هذا الاخير فارغا وعملية الحفظ تمت بنجاح
كود الحفظ:
Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
Dim ssd As String = GetAutoIncrement("proces_verbal", "id_pv")
TextBox3.Text = ssd
Try
Connect()
con.Open()
Dim cb As String = "insert into proces_verbal ([id_pv], [id_tiers], [type_pv], [date_pv], [heure_pv], [mantant], [heure_sup], [kilometre], [tva], [timbre], [id_proces_v], [textloi], [textloi1], [textloi2], [notifier], [savoirfaire], [cequiprecede], [heure_fin],[payer]) VALUES (@d1,@d2,@d3,@d4,@d5,@d6,@d7,@d8,@d9,@d10,@d11,@d12,@d13,@d14,@d15,@d16,@d17,@d18,@d19)"
cmd = New SqlCommand(cb)
cmd.Connection = con
cmd.Parameters.AddWithValue("@d1", TextBox3.Text)
cmd.Parameters.AddWithValue("@d2", TextBox2.Text)
cmd.Parameters.AddWithValue("@d3", ComboBox1.Text)
cmd.Parameters.AddWithValue("@d4", DateTimePicker1.Text)
cmd.Parameters.AddWithValue("@d5", MaskedTextBox3.Text)
cmd.Parameters.AddWithValue("@d6", TextBox6.Text)
cmd.Parameters.AddWithValue("@d7", TextBox7.Text)
cmd.Parameters.AddWithValue("@d8", TextBox8.Text)
cmd.Parameters.AddWithValue("@d9", TextBox9.Text)
cmd.Parameters.AddWithValue("@d10", TextBox12.Text)
cmd.Parameters.AddWithValue("@d11", TextBox1.Text)
cmd.Parameters.AddWithValue("@d12", TextBox19.Text)
cmd.Parameters.AddWithValue("@d13", TextBox20.Text)
cmd.Parameters.AddWithValue("@d14", TextBox21.Text)
cmd.Parameters.AddWithValue("@d15", TextBox22.Text)
cmd.Parameters.AddWithValue("@d16", TextBox23.Text)
cmd.Parameters.AddWithValue("@d17", TextBox24.Text)
cmd.Parameters.AddWithValue("@d18", MaskedTextBox1.Text)
cmd.Parameters.AddWithValue("@d19", ChkPayer.Checked)
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تمت عملية الحفظ بنجاح", "courrier", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End Try
'Notification_Jug_Load(sender, e)
'VoirAffaires1.DataGridView2.Refresh()
End Sub
كود طباعة التقرير
Public Sub Imprimer()
Connect()
con.Open()
Dim da As SqlDataAdapter
Dim dt4 As New DataTable
da = New SqlDataAdapter("SELECT * FROM proces_verbal where id_tiers = '" & Me.TextBox3.Text & "'", con)
da.Fill(dt4)
Dim Cr As New ReportMoayana
If dt4.Rows.Count = 0 Then
MsgBox("لايوجد محضر لطباعته")
Else
Cr.SetDataSource(dt4)
FormPrint.CrystalReportViewer1.ReportSource = Cr
FormPrint.Show()
End If
da.Dispose()
con.Close()
End Sub
المشكلة اني عندما احفظ بيانات جدول وعند طباعة التقرير المناسب يظهر هذا الاخير فارغا وعملية الحفظ تمت بنجاح
كود الحفظ:
Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
Dim ssd As String = GetAutoIncrement("proces_verbal", "id_pv")
TextBox3.Text = ssd
Try
Connect()
con.Open()
Dim cb As String = "insert into proces_verbal ([id_pv], [id_tiers], [type_pv], [date_pv], [heure_pv], [mantant], [heure_sup], [kilometre], [tva], [timbre], [id_proces_v], [textloi], [textloi1], [textloi2], [notifier], [savoirfaire], [cequiprecede], [heure_fin],[payer]) VALUES (@d1,@d2,@d3,@d4,@d5,@d6,@d7,@d8,@d9,@d10,@d11,@d12,@d13,@d14,@d15,@d16,@d17,@d18,@d19)"
cmd = New SqlCommand(cb)
cmd.Connection = con
cmd.Parameters.AddWithValue("@d1", TextBox3.Text)
cmd.Parameters.AddWithValue("@d2", TextBox2.Text)
cmd.Parameters.AddWithValue("@d3", ComboBox1.Text)
cmd.Parameters.AddWithValue("@d4", DateTimePicker1.Text)
cmd.Parameters.AddWithValue("@d5", MaskedTextBox3.Text)
cmd.Parameters.AddWithValue("@d6", TextBox6.Text)
cmd.Parameters.AddWithValue("@d7", TextBox7.Text)
cmd.Parameters.AddWithValue("@d8", TextBox8.Text)
cmd.Parameters.AddWithValue("@d9", TextBox9.Text)
cmd.Parameters.AddWithValue("@d10", TextBox12.Text)
cmd.Parameters.AddWithValue("@d11", TextBox1.Text)
cmd.Parameters.AddWithValue("@d12", TextBox19.Text)
cmd.Parameters.AddWithValue("@d13", TextBox20.Text)
cmd.Parameters.AddWithValue("@d14", TextBox21.Text)
cmd.Parameters.AddWithValue("@d15", TextBox22.Text)
cmd.Parameters.AddWithValue("@d16", TextBox23.Text)
cmd.Parameters.AddWithValue("@d17", TextBox24.Text)
cmd.Parameters.AddWithValue("@d18", MaskedTextBox1.Text)
cmd.Parameters.AddWithValue("@d19", ChkPayer.Checked)
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تمت عملية الحفظ بنجاح", "courrier", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End Try
'Notification_Jug_Load(sender, e)
'VoirAffaires1.DataGridView2.Refresh()
End Sub
كود طباعة التقرير
Public Sub Imprimer()
Connect()
con.Open()
Dim da As SqlDataAdapter
Dim dt4 As New DataTable
da = New SqlDataAdapter("SELECT * FROM proces_verbal where id_tiers = '" & Me.TextBox3.Text & "'", con)
da.Fill(dt4)
Dim Cr As New ReportMoayana
If dt4.Rows.Count = 0 Then
MsgBox("لايوجد محضر لطباعته")
Else
Cr.SetDataSource(dt4)
FormPrint.CrystalReportViewer1.ReportSource = Cr
FormPrint.Show()
End If
da.Dispose()
con.Close()
End Sub