Hi,
This is my first big project. I have a form that is loaded with customer information. The datagrid is created with code as you can see below. I do not want the user to be able to update data in the gridview, for fear of mistakes.
I have a second form with textboxes. How can I load the second form textboxes with the information that was selected in this gridview. I did make one field a hyperlink field and can actually load the form, but my selection does not show up in the textboxes.
Here is the code..... :
Private Function LoadDS() As DataSet
Try
Dim connectStringBuilder As New SqlConnectionStringBuilder()
connectStringBuilder.DataSource = My.Settings.Server
connectStringBuilder.InitialCatalog = My.Settings.Database
connectStringBuilder.UserID = My.Settings.User
connectStringBuilder.Password = My.Settings.Password
Using connection As New SqlConnection(connectStringBuilder.ConnectionStrin g)
connection.Open()
Dim command As New SqlCommand( _
"Select * from CustTracker", _
connection)
daCust.SelectCommand = command
Using daCust
daCust.Fill(ds, "Custs")
connection.Close()
End Using
End Using
Return ds
Catch err As SqlException
MessageBox.Show(err.Message, "SQL Exception", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return Nothing
End Try
End Function
Private Sub SetupGrid()
DataGridView1.AlternatingRowsDefaultCellStyle.Back Color = SystemColors.InactiveCaptionText
DataGridView1.AutoGenerateColumns = False
DataGridView1.DataSource = CustBindS
DataGridView1.MultiSelect = False
DataGridView1.SelectionMode = DataGridViewSelectionMode.CellSelect
DataGridView1.VirtualMode = True
Dim CustID As New DataGridViewTextBoxColumn()
CustID.DataPropertyName = "ID"
CustID.HeaderText = "ID"
CustID.Name = "ID"
CustID.ReadOnly = True
CustID.Visible = True
DataGridView1.Columns.Add(CustID)
Dim ITPrice As New DataGridViewTextBoxColumn()
ITPrice.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
ITPrice.DataPropertyName = "ItemPrice"
ITPrice.HeaderText = "Item Price"
ITPrice.Name = "ItemPrice"
ITPrice.ReadOnly = False
DataGridView1.Columns.Add(ITPrice)
Dim colCKNumber As New DataGridViewLinkColumn()
colCKNumber.AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
colCKNumber.MinimumWidth = 100
colCKNumber.DataPropertyName = "CheckNumber"
colCKNumber.HeaderText = "Check Number"
colCKNumber.LinkBehavior = LinkBehavior.AlwaysUnderline
colCKNumber.LinkBehavior = LinkBehavior.SystemDefault
colCKNumber.LinkColor = Color.Blue
colCKNumber.Name = "CheckNumber"
colCKNumber.SortMode = DataGridViewColumnSortMode.Automatic
DataGridView1.Columns.Add(colCKNumber)
End Sub
Private Sub Modify2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetDate()
DataS = LoadDS()
If DataS IsNot Nothing Then
CustBindS = New BindingSource(DataS, "Custs")
SetupGrid()
End If
End Sub
Thank you very much for the help.