Private Sub Show1() Dim sql As String sql = "SELECT * FROM populationView_1" ' sql &= " where PID='" & txtPID.Text & "'" If IsFind = True Then If ds.Tables("populationView_1") IsNot Nothing Then ds.Tables("populationView_1").Clear() End If End If With Conn If .State = ConnectionState.Open Then .Close() .ConnectionString = strConnstring .Open() End With da = New SqlDataAdapter(sql, Conn) da.Fill(dc, "populationView_1") DataGridView1.DataSource = Nothing DataGridView1.DataSource = dc.Tables("populationView_1") ' txtsearch.Clear() Dim cs As New DataGridViewCellStyle cs.Font = New Font("ms sans serif", 10, FontStyle.Regular) cs.Alignment = DataGridViewContentAlignment.MiddleCenter cs.ForeColor = Color.Blue With DataGridView1 .ColumnHeadersDefaultCellStyle = cs .Columns(0).HeaderText = "ลำดับ" .Columns(1).HeaderText = "คำนำหน้าชื่อ" .Columns(2).HeaderText = "ชื่อ" .Columns(3).HeaderText = "นามสกุล" .Columns(4).HeaderText = "บ้านเลขที่" .Columns(5).HeaderText = "หมู่" .Columns(6).HeaderText = "หมู่บ้าน" .Columns(7).HeaderText = "ตำบล" .Columns(8).HeaderText = "อำเภอ" .Columns(9).HeaderText = "จังหวัด" .Columns(10).HeaderText = "รหัสไปรษณี" .Columns(0).Width = 40 .Columns(1).Width = 80 .Columns(2).Width = 80 .Columns(3).Width = 80 .Columns(4).Width = 60 .Columns(5).Width = 60 .Columns(6).Width = 70 .Columns(7).Width = 80 .Columns(8).Width = 80 .Columns(9).Width = 80 .Columns(10).Width = 70 .Columns(0).SortMode = DataGridViewColumnSortMode.NotSortable .Columns(1).SortMode = DataGridViewColumnSortMode.NotSortable .Columns(2).SortMode = DataGridViewColumnSortMode.NotSortable .Columns(3).SortMode = DataGridViewColumnSortMode.NotSortable .Columns(4).SortMode = DataGridViewColumnSortMode.NotSortable .Columns(5).SortMode = DataGridViewColumnSortMode.NotSortable .Columns(6).SortMode = DataGridViewColumnSortMode.NotSortable .Columns(7).SortMode = DataGridViewColumnSortMode.NotSortable .Columns(8).SortMode = DataGridViewColumnSortMode.NotSortable .Columns(9).SortMode = DataGridViewColumnSortMode.NotSortable .Columns(10).SortMode = DataGridViewColumnSortMode.NotSortable End With
If Not (dc.Tables("populationView_1") Is Nothing) Then dc.Tables("populationView_1").Clear() End If
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง