主题：[求助]条件判断的难题，求助~~~~

应该在确定按钮判断，例如：
 
 
"确定"按钮的代码设置为：
Dim UserName As String = e.Form.Controls("UserName").Value
Dim UserGroup As String = e.Form.Controls("UserGroup").Value
Dim PassWord As String = e.Form.Controls("PassWord").Value
Dim cmd As New SQLCommand
cmd.C
If UserName = "" OrElse UserGroup = "" Then
    Messagebox.show("请输入用户名和用户分组!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "Select Count(*) From {Users} Where Name = '" & UserName & "'"
If cmd.ExecuteScalar > 0 Then
    Messagebox.show("增加用户失败,已经能存在同名用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "Insert Into {Users} ([Name],[Group],[Password]) Values ('"
cmd.CommandText = cmd.CommandText & UserName & "','" & UserGroup & "','" & Password & "')"
If cmd.ExecuteNonQuery = 1 Then '返回1表示增加成功
    If Forms("用户管理").Opened Then
        With Forms("用户管理").Controls("ListBox1")
            .Items.Add(UserName)
            .SelectedIndex = .Items.Count -1
        End With
    End If
    e.Form.Close()
End If

你在可以Enter事件中将当前值写入一个public变量或Var变量，在Validating事件中将当前值和这个变量进行比较，就知道是否已经做出修改了。

 

定义一个全局变量，在全局代码中加入代码：

 

Public hjjk As String

 

在这个文本框的Enter事件中设置代码：

 

hjjk = e.Sender.Value

 

在Valdating事件中：

 

If  hjjk = e.Sender.Value Then

    Messagebox.Show("你改了啊")

End If

 

定义全局变量，参考：

http://www.foxtable.com/help/topics/1842.htm

 

End if