parsaid
چهارشنبه 09 فروردین 1391, 11:27 صبح
سلام دوستان؛ عیدتووون مبارک
84807
بنده از دستورات زیر برای پر کردن DataGridView استفاده میکنم:
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim Cnn As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\data.mdb")
Dim Da As OleDbDataAdapter
Dim Ds As DataSet = New DataSet
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Ds.Clear()
Ds.Dispose()
Cnn.Dispose()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Da = New OleDbDataAdapter("select * from Kol", Cnn)
Da.Fill(Ds, "Kol")
Me.DataGViewK.DataSource = Ds
Me.DataGViewK.DataMember = "Kol"
Cnn.Close()
Da = New OleDbDataAdapter("select * from Moein", Cnn)
Da.Fill(Ds, "Moein")
Me.DataGViewM.DataSource = Ds
Me.DataGViewM.DataMember = "Moein"
Cnn.Close()
Da = New OleDbDataAdapter("select * from Sanad", Cnn)
Da.Fill(Ds, "Sanad")
Me.DataGViewS.DataSource = Ds
Me.DataGViewS.DataMember = "Sanad"
Cnn.Close()
End Sub
Private Sub DataGViewK_RowEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGViewK.RowEnter
If e.ColumnIndex = 0 Then
Da = New OleDbDataAdapter("select * from Moein where kolid=" + DataGViewK.Item(e.ColumnIndex, e.RowIndex).Value.ToString(), Cnn)
Ds = New DataSet
Ds.Clear()
Da.Fill(Ds, "Moein")
Me.DataGViewM.Refresh()
Me.DataGViewM.DataSource = Ds
Me.DataGViewM.DataMember = "Moein"
Cnn.Close() : End If
End Sub
Private Sub DataGViewM_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGViewM.CellContentClick
If e.ColumnIndex = 1 Then
Da = New OleDbDataAdapter("select * from Sanad where moeinid=" + DataGViewM.Item(e.ColumnIndex, e.RowIndex).Value.ToString(), Cnn)
Ds = New DataSet
Ds.Clear()
Da.Fill(Ds, "Sanad")
Me.DataGViewS.Refresh()
Me.DataGViewS.DataSource = Ds
Me.DataGViewS.DataMember = "Sanad"
Cnn.Close() : End If
End Sub
End Class
مشکلی که دارم، این هستش که وقتی میخوام نام ستونها رو بصورت دستی در DataGridViewها ست بکنم، دیگه اطلاعاتی در DataGridViewها ریخته نمیشه (شکل زیر) !!
84808
لطفاً راهنمای بفرمایین... ارادتمند
84807
بنده از دستورات زیر برای پر کردن DataGridView استفاده میکنم:
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim Cnn As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\data.mdb")
Dim Da As OleDbDataAdapter
Dim Ds As DataSet = New DataSet
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Ds.Clear()
Ds.Dispose()
Cnn.Dispose()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Da = New OleDbDataAdapter("select * from Kol", Cnn)
Da.Fill(Ds, "Kol")
Me.DataGViewK.DataSource = Ds
Me.DataGViewK.DataMember = "Kol"
Cnn.Close()
Da = New OleDbDataAdapter("select * from Moein", Cnn)
Da.Fill(Ds, "Moein")
Me.DataGViewM.DataSource = Ds
Me.DataGViewM.DataMember = "Moein"
Cnn.Close()
Da = New OleDbDataAdapter("select * from Sanad", Cnn)
Da.Fill(Ds, "Sanad")
Me.DataGViewS.DataSource = Ds
Me.DataGViewS.DataMember = "Sanad"
Cnn.Close()
End Sub
Private Sub DataGViewK_RowEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGViewK.RowEnter
If e.ColumnIndex = 0 Then
Da = New OleDbDataAdapter("select * from Moein where kolid=" + DataGViewK.Item(e.ColumnIndex, e.RowIndex).Value.ToString(), Cnn)
Ds = New DataSet
Ds.Clear()
Da.Fill(Ds, "Moein")
Me.DataGViewM.Refresh()
Me.DataGViewM.DataSource = Ds
Me.DataGViewM.DataMember = "Moein"
Cnn.Close() : End If
End Sub
Private Sub DataGViewM_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGViewM.CellContentClick
If e.ColumnIndex = 1 Then
Da = New OleDbDataAdapter("select * from Sanad where moeinid=" + DataGViewM.Item(e.ColumnIndex, e.RowIndex).Value.ToString(), Cnn)
Ds = New DataSet
Ds.Clear()
Da.Fill(Ds, "Sanad")
Me.DataGViewS.Refresh()
Me.DataGViewS.DataSource = Ds
Me.DataGViewS.DataMember = "Sanad"
Cnn.Close() : End If
End Sub
End Class
مشکلی که دارم، این هستش که وقتی میخوام نام ستونها رو بصورت دستی در DataGridViewها ست بکنم، دیگه اطلاعاتی در DataGridViewها ریخته نمیشه (شکل زیر) !!
84808
لطفاً راهنمای بفرمایین... ارادتمند