Private Sub Fill_List() Try cmd = New OleDbCommand(Master_RollerSQL, con) If con.State = ConnectionState.Closed Then con.Open() da = New OleDbDataAdapter(cmd) ds = New DataSet() da.Fill(ds, "master_roller") Master_Roller_DataGrid.DataSource = ds.Tables("master_roller") Master_Roller_DataGrid.Columns(0).Visible = False Master_Roller_DataGrid.Columns(1).HeaderText = "CODE" Master_Roller_DataGrid.Columns(1).Width = 50 Master_Roller_DataGrid.Columns(1).DefaultCellStyle.Format = ("##_#_#") Master_Roller_DataGrid.Columns(2).HeaderText = "LINE" Master_Roller_DataGrid.Columns(2).Width = 70 Master_Roller_DataGrid.Columns(3).HeaderText = "TYPE" Master_Roller_DataGrid.Columns(3).Width = 130 Master_Roller_DataGrid.Refresh() con.Close() Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, Me.Text) End Try Current_Click = -1 End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)