我有一个表单由用户填写,它有一个复选框,以确定用户帐户是否处于活动状态,如果选中该复选框,我想知道它是否在数据库中有用户名和密码,如果没有msgbox应该出现.我有一个工作,我需要确定if语句...是否正确,如果没有请解释.
Protected Sub ibtnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ibtnSave.Click
objBU_Accounts_Contacts = New BU_Accounts_Contacts
Dim err As Integer
With objBU_Accounts_Contacts
.FK_AccountId = AccountID
.ContactEmail = txtConEmail.Text
.ContactFax = txtConFax.Text
.ContactMobile = txtConMobile.Text
.ContactName = txtContactName.Text
.ContactTitle = txtContactTitle.Text
.ContactTelephone = txtConTel.Text
.PharmaLicNo = ""
.PharmaExpDate = ""
.HasCredintials = False
If chkActive.Checked = True Then
.IsActive = True
Else
.IsActive = False
End If
.IsApproved = True
.IsMainContact = False
.Password = ""
.Remarks = txtConRemarks.Text
.UserName …