منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
        save_btn_Click(Nothing, Nothing)
        Dim adp As New SqlDataAdapter("select * from invoice_print where invoice_number=N'" & (printcode.Text) & "'", sqlconn)
        Dim ds As New DataSet
        adp.Fill(ds)
        Dim dt = ds.Tables(0)
        If dt.Rows.Count = 0 Then
            MsgBox("لايوجد بيانات لطباعتها", MsgBoxStyle.Critical, "خطاء")
            Exit Sub
        End If
        Dim rept
        rept = New invoice_pos112
        Dim tool As New XtraReport
        rept.datasource = dt
        Dim frm As New preview
        preview.DocumentViewer1.DocumentSource = rept
        preview.Show()
    End Sub