[alma_fandi]

السلام عليكم ورحمه  الله  وبركاته

ما الخطا بهذا الكود


طباعه فورم اخر سجل بالجدول  

حاولت اعمل الكوود بس ما تنفذ شي

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       
       Dim Report As New CrystalReport1
       Dim sql As String = " INSERT INTO [Table1] ( [Name], [Birthday], [Age], [Sex], [Nationality], [Nationality_ID], [Type], [State], [Place], [Phone], [Address], [D1], [D2], [D3], [D4], [D5], [D6]  ) " & _
               " VALUES                 ( @Name,  @Birthday,  @Age,  @Sex,  @Nationality,  @Nationality_ID,  @Type,  @State,  @Place,  @Phone,  @Address,  @D1,  @D2,  @D3,  @D4,  @D5,  @D6  ; SELECT @@IDENTITY;, conn)"
     
   


           Frmprint.CrystalReportViewer1.ReportSource = Report
           Frmprint.CrystalReportViewer1.Zoom(80%)
           Frmprint.CrystalReportViewer1.Refresh()
           Frmprint.Show()

   End Sub

جربت اعمل مثل الاخ  http://vb4arb.com/vb/showthread.php?tid=16169&page=2

كود :

 Dim Report As New CrystalReport1
     
       Dim q = From x In myDatatable Where x.Item("id") = id
       If q.Count > 0 Then
           Report.SetDataSource(q.CopyToDataTable)

           Frmprint.CrystalReportViewer1.ReportSource = Report
           Frmprint.CrystalReportViewer1.Zoom(80%)
           Frmprint.CrystalReportViewer1.Refresh()
         Frmprint.Show()
       End If

لكن  واجهت مشكلة مع انه  الحقل ترقيم تلقائي والحقل موجود فيه قيمه =14
مع هيك بحكي لى انه الحقل خالي