以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  修改数据问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147334)

--  作者:裴保民
--  发布时间:2020/3/14 13:13:00
--  修改数据问题
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

这段代码哪的为题修改数据时也提示有数据重复


--  作者:有点蓝
--  发布时间:2020/3/14 14:15:00
--  
看不出什么问题,上实例
--  作者:裴保民
--  发布时间:2020/3/14 14:39:00
--  
重新设计了个内表的表正常,可是我的程序执行后提示重复,怎么处理呢?
[此贴子已经被作者于2020/3/14 14:39:16编辑过]

--  作者:有点蓝
--  发布时间:2020/3/14 15:10:00
--  
检查其他事件,把表事件、相关有影响的事件都屏蔽掉测试