Protected Sub gvAddress_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles gvAddress.SelectedIndexChanged ImCountry() ImProvinceSelect() ImAmphurSelect() ImDistrictSelect() ImZipCodeSelect() Me.txtCmpnCode.Text = gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(0).Text.ToString() Me.txtMember.Text = gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(1).Text.ToString() Me.txtExpire.Text = gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(2).Text.ToString() Me.txtTaxID.Text = gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(3).Text.ToString() Me.txtAddressTH.Text = gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(4).Text.ToString() Me.txtAddressEN.Text = gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(5).Text.ToString() Me.txtQuatations.Checked = gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(6).Text.ToString() Me.txtBill.Checked = gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(7).Text.ToString() Me.txtMail.Checked = gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(8).Text.ToString() Me.txtNotActive.Checked = gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(9).Text.ToString() Me.txtRemarkAdd.Text = gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(10).Text.ToString() Me.DDLCountry.Text = gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(11).Text.ToString() Me.DDLProvinces.Text = gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(12).Text.ToString() Me.DDLAmphur.Text = gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(13).Text.ToString() Me.DDLDistrict.Text = gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(14).Text.ToString() End Sub
Public Shared Function CheckDBNull(s As String) As String If String.IsNullOrEmpty(s) Then Return "" Else Return s End If End Function
Me.txtCmpnCode.Text = CheckDBNull(gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(0).Text.ToString())
If gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(1).Text.ToString() = " " Then Me.txtMember.Text = "" Else Me.txtMember.Text = gvAddress.Rows(gvAddress.SelectedRow.RowIndex).Cells(1).Text.ToString() End If
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง