Foxtable(狐表)用户栏目专家坐堂 → 编号检测


  共有1911人关注过本帖平板打印复制链接

主题:编号检测

帅哥哟,离线,有人找我吗?
yangwenghd
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2701 积分:17999 威望:0 精华:0 注册:2013/4/9 10:41:00
编号检测  发帖心情 Post By:2020/11/20 22:26:00 [只看该作者]

老师,能帮忙看看这个吗?如果执行了if部分的内容,然后到重新执行红色部分的代码如何写呀,感谢 感谢 
e.Form.Controls("Label1").Text = "PSK" + e.Form.Controls("DateTimePicker1").Text.replace("-","") + "-" + e.Form.Controls("TextBox1").Text '合同号
Dim drb As DataRow
drb = DataTables("表A").Find("编号 =  '" & e.Form.Controls("Label1").Text & "'")


If drb IsNot Nothing Then
    Forms("窗口1").Controls("TextBox1").Text += 1
    'MessageBox.Show("已经有相同的合同号!")
重新执行红色代码部分
    Return
    
End If

Tables("表A").current("编号")=e.form.controls("Label1").text '列内容变为已流转

 回到顶部