If IsNumeric(tb_phValue.Text) = False Then
MessageBox.Show("ค่าผลการตรวจเลือดต้องเป็นตัวเลขเท่านั้น", "Warning !!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
tb_phValue.Clear()
tb_phValue.Focus()
Exit Sub
End If
If IsNumeric(tb_phValue.Text) = False Then
if val(tb_phValue.text) > 1 then
MessageBox.Show("ค่าผลการตรวจเลือดต้องเป็นตัวเลขเท่านั้น", "Warning !!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
tb_phValue.Clear()
tb_phValue.Focus()
end if
Exit Sub
End If
Load balance : Server 04
