Foxtable(狐表)用户栏目专家坐堂 → [求助]同步问题


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

主题:[求助]同步问题

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


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
[求助]同步问题  发帖心情 Post By:2015/11/11 12:32:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20151111122615.png
图片点击可在新窗口打开查看

见上图, 有个工作记录的文本框, 当员工A添加了内容,保存后, 员工B为同步表的情况下, 填写了内容并保存, 这时候员工A同步这个表后, 发现员工B新添加的内容但自己添加的内容不见了?

 

如何解决, 如何同步各个客户端的内容而不丢失


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


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

写在保存按钮里,代码如下, 对吗?

 

If DataTables("工作任务").HasChanges = True Then
    Dim val As String
    Dim dr As DataRow = Tables("工作任务").Current.DataRow
    val = dr.SQLGetValue("工作内容")
    DataTables("工作任务").Save
End If


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


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

谢谢! 不过, 我加到保存里, 测试了一下, 不起作用??


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


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

刚才把表名搞错了, 可以, 不过不是覆盖, 而是内容追加, 如何做

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


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

如果在上图的窗口里加入一个同步按钮, 如何写代码


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


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


图片点击可在新窗口打开查看此主题相关图片如下:qq截图2015111118215811.png
图片点击可在新窗口打开查看

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


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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:订单150809.foxdb

 

任务窗口里的同步代码如何写


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


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

在任务窗口里员工A添加了信息, 员工B点击同步就可以看到员工A添加的信息, 添加13楼的代码虽然同步了整个表, 但是不能定位到打开任务窗口订单号的任务上, 内容可能定位到第一条而不是当前条

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


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

谢谢!

[此贴子已经被作者于2015/11/12 13:43:45编辑过]

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


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

以下是引用Hyphen在2015/11/12 8:35:00的发言:
If DataTables("工作任务").HasChanges = True Then
    Dim val As String
    Dim dr As DataRow = Tables("工作任务").Current.DataRow
    val = dr.SQLGetValue("工作内容")
   
    '追加
    Forms("窗口1").Controls("TextBox1").Text = val & Forms("窗口1").Controls("TextBox1").Text
   
End If

这个写在哪个事件中


 回到顶部
总数 15 1 2 下一页