- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]同步问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77116)
-- 发布时间：2015/11/11 12:32:00
-- [求助]同步问题
此主题相关图片如下：qq截图20151111122615.png
见上图， 有个工作记录的文本框， 当员工A添加了内容，保存后， 员工B为同步表的情况下， 填写了内容并保存， 这时候员工A同步这个表后， 发现员工B新添加的内容但自己添加的内容不见了？
如何解决， 如何同步各个客户端的内容而不丢失
-- 发布时间：2015/11/11 12:36:00
--
同一个单元格，最后保存的，就是最终的值。
你可以在编辑之前或保存之前，先看看后台的值是否已经改变
http://www.foxtable.com/help/topics/2955.htm
-- 发布时间：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
-- 发布时间：2015/11/11 17:11:00
--
If DataTables("工作任务").HasChanges = True Then
Dim val As String
Dim dr As DataRow = Tables("工作任务").Current.DataRow
val = dr.SQLGetValue("工作内容")
If val <> dr.OriginalValue("工作内容") Then
Dim Result As DialogResult
Result = MessageBox.Show("你修改的单元格已经有人修改了?是否覆盖?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = DialogResult.No Then
\'Return
Else
DataTables("工作任务").Save
End If
End If
End If
-- 发布时间：2015/11/11 17:48:00
--
谢谢！ 不过， 我加到保存里， 测试了一下， 不起作用？？
-- 发布时间：2015/11/11 17:56:00
--
刚才把表名搞错了， 可以， 不过不是覆盖， 而是内容追加， 如何做
-- 发布时间：2015/11/11 18:20:00
--
如果在上图的窗口里加入一个同步按钮， 如何写代码
-- 发布时间：2015/11/11 18:24:00
--
此主题相关图片如下：qq截图2015111118215811.png
-- 发布时间：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
-- 发布时间：2015/11/12 9:31:00
--
以下是引用seal51在2015/11/11 17:56:00的发言：
刚才把表名搞错了， 可以， 不过不是覆盖， 而是内容追加， 如何做
刚才把表名搞错了， 可以， 不过不是覆盖， 而是内容追加， 如何做
追加？加在后面，怎么追加。举例