Foxtable(狐表)用户栏目专家坐堂 → [求助]网络编辑下的列不重复


  共有2207人关注过本帖树形打印复制链接

主题:[求助]网络编辑下的列不重复

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


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
[求助]网络编辑下的列不重复  发帖心情 Post By:2017/3/10 11:48:00 [显示全部帖子]

业务编号设为禁止重复, 也写了datacolchanging事件禁止业务编号重复, 窗口有个新增按钮。问题是张三点击新增了一个业务编号, 李四如果新增一个业务编号之前没有同步当前表就会新增一个同张三一样的业务编号, 如何处理呢?

 回到顶部
帅哥哟,离线,有人找我吗?
seal51
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2017/3/10 12:28:00 [显示全部帖子]

谢谢!好办法!不过数据多了, 同步就慢慢了


 回到顶部
帅哥哟,离线,有人找我吗?
seal51
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2017/3/10 15:20:00 [显示全部帖子]

有点蓝老师,下面这段代码如何更改?

e.DataRow.Save
Dim max As String
max = e.DataTable.Compute("max(业务编号)")
If max > "" Then
    Dim idx As Integer
    idx = CInt(max.SubString(2,4)) + 1
    e.DataRow("业务编号") = "DZ" & Format(idx,"0000")
Else
    e.DataRow("业务编号") = "DZ" & "0001"
End If
e.DataRow.Save


 回到顶部
帅哥哟,离线,有人找我吗?
seal51
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2017/3/10 16:03:00 [显示全部帖子]

谢谢! 不过这样写就不用先同步表在新增数据了, 对吗?

 回到顶部
帅哥哟,离线,有人找我吗?
seal51
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2017/3/10 17:43:00 [显示全部帖子]

这太好了!

 回到顶部