+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استفسار عن طريقة نقل البيانات من Datagridview إلى الكريستال ريبورت (/showthread.php?tid=27043)
استفسار عن طريقة نقل البيانات من Datagridview إلى الكريستال ريبورت - جيولوجي مبتدئ - 20-10-18
السلام عليكم ورحمة الله وبركاته
شاكرا لكم مقدماً مجهودكم الرائع في المنتدى
أريد أن أعرف طريقة نقل البيانات من Datagridview إلى الكريستال ريبورت بالتفصيل لو سمحتوا
أأتعبني هذا الموضوع بدرجة كبيرة
RE: استفسار عن طريقة نقل البيانات من Datagridview إلى الكريستال ريبورت - عبد العزيز البسكري - 20-10-18
السّلام عليكم و رحمة الله و بركاته
و كيف يتم ملء الداتا جريد بالبيانات أخي الكريم ؟؟
تحياتي
RE: استفسار عن طريقة نقل البيانات من Datagridview إلى الكريستال ريبورت - جيولوجي مبتدئ - 22-10-18
Imports System.Data.OleDb
Public Class Form1
Dim con As New OleDbConnection
Dim adapter As New OleDbDataAdapter
Dim dtmain_Moad, dtShoab, dtStudents As New DataTable
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
adapter = New OleDbDataAdapter(" select * from main_Moad ", con)
adapter.Fill(dtmain_Moad)
ComboBox1.DataSource = dtmain_Moad
ComboBox1.DisplayMember = "Lable"
ComboBox1.ValueMember = "ID"
Label1.Visible = False
End Sub
Public Sub New()
' This call is required by the designer.
InitializeComponent()
con.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\newTemp1\newTemp1.accdb")
' Add any initialization after the InitializeComponent() call.
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Try
dtShoab.Clear()
adapter = New OleDbDataAdapter(" select * from Shoab where ID_Mada =" & ComboBox1.SelectedValue, con)
adapter.Fill(dtShoab)
ComboBox2.DataSource = dtShoab
ComboBox2.DisplayMember = "Lable"
ComboBox2.ValueMember = "ID"
Catch ex As Exception
End Try
End Sub
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
Try
dtStudents.Clear()
adapter = New OleDbDataAdapter(" select * from Students where Id_Shoba =" & ComboBox2.SelectedValue, con)
adapter.Fill(dtStudents)
DataGridView1.DataSource = dtStudents
Label1.Text = DataGridView1.Rows.Count - 1
Label1.Visible = False
If DataGridView1.Rows.Count - 1 > 0 Then
Label1.Visible = True
End If
Catch ex As Exception
End Try
End SubEnd Sub
(20-10-18, 08:35 PM)عبد العزيز البسكري كتب :السّلام عليكم و رحمة الله و بركاتهو كيف يتم ملء الداتا جريد بالبيانات أخي الكريم ؟؟تحياتي
هذا هو الكود أخي الكريم