تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] عمل refresh ل datatable بعد الحفظ
#1
مساعدة في تحيين وتحديث جدول بعد الحفظ
المشكلة اني عندما احفظ بيانات جدول وعند طباعة التقرير المناسب يظهر هذا الاخير فارغا وعملية  الحفظ تمت بنجاح
كود الحفظ:
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


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
(04-03-20, 02:18 PM)tahaayyoub كتب : مساعدة في تحيين وتحديث جدول بعد الحفظ
المشكلة اني عندما احفظ بيانات جدول وعند طباعة التقرير المناسب يظهر هذا الاخير فارغا وعملية  الحفظ تمت بنجاح
كود الحفظ:
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


عليك باعادة تحميل البيانات من جديد بعد الحفظ لتظهر في الداتاجريد
الرد
تم الشكر بواسطة: عبد العزيز البسكري , tahaayyoub



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم