以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  字符串比对  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110792)

--  作者:Rhonin
--  发布时间:2017/12/9 16:16:00
--  字符串比对
老师好,请问一下怎样判断textbox控件的值和表里某一列的值是否相等,如果不相等的话输出一个msg,相等则无操作

Dim n1 As String = e.form.controls("textbox1").value
Dim n2 As String = e.form.controls("textbox2").value
For Each r As Row In Tables("修改密码_table1").Rows
    \'Dim r1 As String = r("name")
    Dim fdr As DataRow = DataTables("Users").Find("name = \'" & n1 & "\'")
    If fdr("password")=n2 Then
    Else
        messagebox.show("您输入的密码错误")
    End If
Next
这个代码执行的话就是无论对错都会一直提示msg,请问下老师错在哪里,应该怎么修改

--  作者:有点蓝
--  发布时间:2017/12/9 16:35:00
--  
Dim n1 As String = e.form.controls("textbox1").value
Dim n2 As String = e.form.controls("textbox2").value

Dim fdr As DataRow = DataTables("Users").Find("name = \'" & n1 & "\'")
If fdr Is Nothing
    messagebox.show("无此用户")
ElseIf fdr("password")=n2 Then
Else
    messagebox.show("您输入的密码错误")
End If