Dim zhbh As String = e.Form.Controls("zhbhTextBox").text
Dim zhmc As WinForm.TextBox = e.Form.Controls("zhmcTextBox")
Dim str As String =zhmc.value
Dim t As Table = Tables("资金账户")
Dim idx As Integer=t.findrow("账户名称= '" & str & "' and _Identify <> " & t.current("_Identify"))
MessageBox.Show(zhbh)
If str = Nothing Then
MessageBox.Show("账户名称不能为空!", "提示")
zhmc.Select
Return
Else
If idx >=0 Then
MessageBox.Show("账户名称已存在,不能入库!", "提示")
zhmc.Select
Return
End If
End If
这段代码哪的为题修改数据时也提示有数据重复