[求助]同步问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3324人关注过本帖树形打印复制链接主题：[求助]同步问题

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/11 12:36:00 [显示全部帖子]

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

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

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

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/12 9:31:00 [显示全部帖子]

以下是引用seal51在2015/11/11 17:56:00的发言：
刚才把表名搞错了，可以，不过不是覆盖，而是内容追加，如何做

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

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/12 9:32:00 [显示全部帖子]

8楼什么意思？

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/12 9:57:00 [显示全部帖子]

同步？重新load数据？

DataTables("订单主表").Load
DataTables("工作任务").Load

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/12 10:25:00 [显示全部帖子]

Dim ddh As String = Tables("订单主表").current("订单号")
Dim idx As Integer
If Tables("订单主表.工作任务").Current IsNot Nothing Then idx = Tables("订单主表.工作任务").Current.Index
DataTables("订单主表").StopRedraw
DataTables("工作任务").StopRedraw
DataTables("订单主表").Load
DataTables("工作任务").Load
Dim i As Integer = Tables("订单主表").FindRow("订单号 = '" & ddh & "'")
If i >= 0 Then
Tables("订单主表").Position = i
Tables("订单主表.工作任务").Position = idx
End If
DataTables("订单主表").ResumeRedraw
DataTables("工作任务").ResumeRedraw

下一主题 >> << 上一主题

主题：[求助]同步问题