Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:这两个值相等为什么不执行退出呢?

1楼
dd-zdh 发表于:2011/5/6 19:56:00

Dim UserName As String = e.Form.Controls("UserName").Value
Dim s1,s2 As String
Dim cmd As New SQLCommand
Dim dt As DataTable
'Dim dr As DataRow
cmd.C
If UserName = "" Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "Select * From {用户表} Where [用户名] = '" & UserName & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
s1=dt.DataRows(0)("密码")
e.Form.Controls("TextBox2").text=s1
s2=e.form.Controls("TextBox1").text
'dr = dt.DataRows(0)
If  s1 = s2 Then
'If e.Form.Controls("PassWord").text = dt.DataRows(0)("密码")  Then
    '_UserName = UserName
    '_UserGroup = dt.DataRows(0)("部门")
    e.Form.Close()
Else
'    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If
End If

2楼
狐狸爸爸 发表于:2011/5/6 20:17:00
说明他俩不等嘛
3楼
dd-zdh 发表于:2011/5/6 20:25:00

我把表里的值都取出来了,和我textbox1.text相等,也不执行退出

4楼
狐狸爸爸 发表于:2011/5/6 20:30:00

在:

If  s1 = s2 Then

的前面加一行:

 

messagebox.show(s1 = s2 )

 

5楼
dd-zdh 发表于:2011/5/6 20:51:00
是不等,但我输入的值和取出的值都为11,怎么还显示False呢
6楼
狐狸爸爸 发表于:2011/5/6 20:57:00

messagebox.show(s1 = s2 )

 

改为

messagebox.show(s1.Length & "|" &  s2.legnth )

 

比较二者的长度,你可能会发现原因,通常是因为前后有空格所致。

 

共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01953 s, 2 queries.