Hello:
I have this working in another program, bur for some reason in this program I cannot get the text to wrap:
Line in red below:
I have this working in another program, bur for some reason in this program I cannot get the text to wrap:
Line in red below:
Code:
_dgv.Columns(3).DefaultCellStyle.WrapMode = DataGridViewTriState.TrueCode:
Private Sub Setup_dgv(_dgv As DataGridView)
Dim RequestID As Integer = CInt(txtID.Text)
Dim ta_Parts As PurchasingRequestDataSetTableAdapters.PartsTableAdapter = New PurchasingRequestDataSetTableAdapters.PartsTableAdapter
ta_Parts.FillBy_RequestID(ds.Parts, RequestID)
_dgv.DataSource = ds.Parts
' _dgv.AutoGenerateColumns = True
' _dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None
_dgv.Columns(0).HeaderCell.Value = "Req"
_dgv.Columns(0).Width = 35
_dgv.Columns(1).HeaderCell.Value = "ID"
_dgv.Columns(1).Width = 35
_dgv.Columns(2).HeaderCell.Value = "PN"
_dgv.Columns(2).Width = 80
_dgv.Columns(3).HeaderCell.Value = "Description"
_dgv.Columns(3).Width = 300
_dgv.Columns(4).HeaderCell.Value = "UM"
_dgv.Columns(4).Width = 55
_dgv.Columns(5).HeaderCell.Value = "Preferred Supplier"
_dgv.Columns(5).Width = 125
_dgv.Columns(6).HeaderCell.Value = "Vendor PN"
_dgv.Columns(6).Width = 95
_dgv.Columns(7).HeaderCell.Value = "Qty"
_dgv.Columns(7).Width = 40
_dgv.Columns(8).HeaderCell.Value = "Required Del Date"
_dgv.Columns(8).Width = 70
_dgv.Columns(9).HeaderCell.Value = "Receved Date"
_dgv.Columns(9).Width = 70
_dgv.Columns(10).HeaderCell.Value = "PO No"
_dgv.Columns(10).Width = 60
_dgv.Columns(11).HeaderCell.Value = "PO Line"
_dgv.Columns(11).Width = 40
_dgv.Columns(12).HeaderCell.Value = "Received"
_dgv.Columns(12).Width = 60
_dgv.Columns(13).HeaderCell.Value = "Notes"
_dgv.Columns(13).Width = 135
_dgv.Columns(3).DefaultCellStyle.WrapMode = DataGridViewTriState.True
_dgv.Columns(0).ReadOnly = True
_dgv.Columns(1).ReadOnly = True
_dgv.Columns(2).ReadOnly = True
_dgv.Columns(3).ReadOnly = True
_dgv.Columns(4).ReadOnly = True
_dgv.Columns(5).ReadOnly = True
_dgv.Columns(6).ReadOnly = True
_dgv.Columns(7).ReadOnly = True
_dgv.Columns(8).ReadOnly = True
_dgv.Columns(9).ReadOnly = True
_dgv.Columns(10).ReadOnly = True
_dgv.Columns(11).ReadOnly = True
_dgv.Columns(12).ReadOnly = True
_dgv.Columns(13).ReadOnly = True
_dgv.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
Dim user As String = GetLoggedInUser()
Dim adminuser As Boolean = Lookup_AdminUser(user)
Dim Status As String = CheckStatus()
Select Case Status
Case "Ordered", "Received"
For Each con As Control In Me.Controls
If adminuser = False Then
con.Enabled = False
End If
Next
End Select
End Sub