Hi
Pls check my code and help how to define the data grid in col.
thanksCode:Private Sub DesignSearchGrid() With dgvSearch .EditMode = DataGridViewEditMode.EditProgrammatically .AllowUserToAddRows = False .AllowUserToDeleteRows = False .AllowUserToOrderColumns = True .AllowUserToResizeRows = True .AllowUserToResizeColumns = True .MultiSelect = False .RowHeadersVisible = False .Location = New Point(9, 43) .Size = New Size(266, 177) .ColumnCount = 3 .RowCount = 1 .Columns(0).Name = "EmpCode" .Columns(0).Width = 70 .Columns(1).Name = "Employee Name" .Columns(1).Width = 200 .Columns(2).Name = "Date of Birth" .Columns(2).Width = 100 End With End Sub Private Sub PopulateSearchGrid() Dim DaSearch As SqlDataAdapter Dim dtSearch As New DataTable Dim StrQuery As String Dim iRow As Integer Try StrQuery = "SELECT EmployeeMaster.EmpCode, EmployeeMaster.Name as EmpName,EmployeeMaster.DOB as EmpName FROM EmployeeMaster" DaSearch = New SqlDataAdapter(StrQuery, Conn) DaSearch.Fill(dtSearch) For iRow = 0 To dgvSearch.RowCount - 1 dgvSearch.Rows(iRow).Cells(0).Value = dtSearch.Rows.Item("EmpCode") dgvSearch.Rows(iRow).Cells(0).Value = dtSearch.Rows.Item("EmpName") dgvSearch.Rows(iRow).Cells(0).Value = dtSearch.Rows.Item("DOB") Next iRow Catch ex As Exception MsgBox(ex.Message) End Try End Sub


Reply With Quote
