dnf百花武器选择:TxtUserName.Text.Text = ""这里是那里错拉 ， 有知道的教教我这位小吓

Private Sub BtAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtAdd.Click
Try
Dim comstr As String
If CmbPurview.Text = "一般用户" Then '判断注册一般用户还是管理员
If TxtPassword.Text = TxtConfirmPassword.Text Then '确认密码填写无误
comstr = "insert into " & CmbPurview.Text & " values('" & TxtUserName.Text & " ','" & CChar(TxtPassword.Text) & " ')"
'定义一个Sqlcommand类实力，并初始化
Dim mycom As New SqlCommand(comstr, SqlConnection1)
SqlConnection1.Open()
mycom.ExecuteNonQuery() '执行命令
SqlConnection1.Close()
MsgBox("添加成功！")
Else
MsgBox("两次密码输入不相同！")
TxtPassword.Text = ""
TxtConfirmPassword.Text = ""
TxtPassword.Focus() '把焦点落在密码的文本框
End If
Else
If TxtPassword.Text = TxtConfirmPassword.Text And TxtSuperPassword.Text = "applehuang" Then
comstr = "insert into " & CmbPurview.Text & " values( ' " & TxtUserName.Text & " ', ' " & CChar(TxtPassword.Text) & " ') "
Dim mycom As New SqlCommand(comstr, SqlConnection1)
SqlConnection1.Open()
mycom.ExecuteNonQuery()
MsgBox("添加成功!")
Else
MsgBox("密码错误")
TxtPassword.Text.ToCharArray()
TxtConfirmPassword.Text = ""
TxtSuperPassword.Text = ""
TxtPassword.Focus()
End If
End If
Catch ex As Exception
MsgBox("该用户已存在，请选另一个用户!") '异常处理，如果相同用户名存在就会出错
TxtUserName.Text.Text = ""
TxtUserName.Text.Focus()
Finally
SqlConnection1.Close()
End Try
End Sub
End Class