主题：[求助]同步问题

此主题相关图片如下：qq截图20151111122615.png

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

 

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

同一个单元格，最后保存的，就是最终的值。

 

你可以在编辑之前或保存之前，先看看后台的值是否已经改变

 

http://www.foxtable.com/help/topics/2955.htm

 

写在保存按钮里，代码如下， 对吗？

 

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

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

 

谢谢！ 不过， 我加到保存里， 测试了一下， 不起作用？？

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

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

此主题相关图片如下：qq截图2015111118215811.png

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

 

追加？加在后面，怎么追加。举例