为什么 添加用户 老提示已存在？

添加用户 老提示已存在

Dim datable As New DataTable
m_dal.ConnectionOpen()
Dim sql As String
sql = "select * from 人员信息 where 员工号='" & Me.TextBox1.Text & "'"
m_dal.DataSetFill(sql, "员工号")
datable = m_dal.ds.Tables("员工号")
If datable.Rows.Count = 0 Then
ErrorProvider1.Clear()
sql = "insert into 人员信息(员工号,姓名,英文,密码,所在层,岗位,权限,登陆信息,登陆ip)"
sql += " values ('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" & Me.TextBox3.Text & "','" & MyEncrypt(Me.TextBox4.Text) & "','" & Me.TextBox5.Text & "','" & Me.TextBox6.Text & "')"
m_dal.InsertDelUpdateRecord(sql)
m_dal.ConnectionClose()
Me.Label8.Text = "添加用户成功"
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Me.TextBox4.Text = ""
Me.TextBox5.Text = ""
Me.TextBox6.Text = ""
Me.TextBox7.Text = ""
Else
ErrorProvider1.SetError(TextBox1, "员工号重复,请重新输入！")
Me.TextBox1.Text = ""
Me.TextBox1.Focus()
End If

添加用户时判断表中是否存在该员工号，有提示存在，重新输入。否则直接添加该用户。
但不知为啥老提示已存在，表中只有一条用户记录呀？？、

Me.TextBox6.Text = ""
Me.TextBox7.Text = ""
If


[解决办法]

引用:

Quote: 引用:

你在datable.Rows.Count 设个断点，看记录数为多少？是不是TextBox1.Text输入的，在数据库中已存在，

断点试了，datable.Rows.Count =1 ，老是提示请重新输入？？？，

你用:If datable Is Nothing Then 插入数据 Else 已存在 End If.试试看。


[解决办法]
m_dal.InsertDelUpdateRecord(sql)
QIN，为什么用更新，不死创建？