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


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

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

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


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

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

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


加好友 发短信
等级:六尾狐 帖子:1249 积分:9474 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2017/3/10 12:13:00 [只看该作者]

在新增按钮的前部加入同步数据的代码即可。

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


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

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


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


加好友 发短信
等级:六尾狐 帖子:1249 积分:9474 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2017/3/10 12:34:00 [只看该作者]

可以设置同步的条件呀!

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/10 14:31:00 [只看该作者]

1、新增编号后就保存,查询判断的时候从后台查询

2、由服务端生成编号,参考:http://www.foxtable.com/webhelp/scr/3008.htm

 回到顶部
帅哥哟,离线,有人找我吗?
seal51
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/10 16:00:00 [只看该作者]

Dim max As String
max = e.DataTable.SqlCompute("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
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/10 17:34:00 [只看该作者]

以下是引用seal51在2017/3/10 16:03:00的发言:
谢谢! 不过这样写就不用先同步表在新增数据了, 对吗?

 

嗯嗯是的,直接后台查询了。


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


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

这太好了!

 回到顶部