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


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

主题：[求助]同步问题
帅哥哟，离线，有人找我吗？
seal51
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13012 威望：0 精华：0 注册：2013/6/10 9:23:00 		[求助]同步问题  发帖心情 Post By：2019/7/30 10:58:00 [只看该作者]

同步所有表中新添加的数据代码是什么？
Dim id As Integer = DataTables("采购主表").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("采购主表").AppendLoad(Filter, False)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/30 11:19:00 [只看该作者]

遍历所有表逐个处理

For Each dt As DataTable In DataTables
  ......
Next
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13012 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2019/7/30 11:20:00 [只看该作者]

1楼的代码我放在窗口中的按钮里， 点击后并没有加载新数据？这是怎么回事？
[此贴子已经被作者于2019/7/30 11:23:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/30 11:33:00 [只看该作者]

代码没有问题，确定有新数据吗？

Dim id As Integer = DataTables("采购主表").Compute("Max(_Identify)")
msgbox("加载前最大id=" & id)
Dim Filter As String = "[_Identify] > " & id
DataTables("采购主表").AppendLoad(Filter, False)

id = DataTables("采购主表").Compute("Max(_Identify)")
msgbox("加载后最大id=" & id)

id = DataTables("采购主表").sqlCompute("Max(_Identify)")
msgbox("数据库最大id=" & id)
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13012 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2019/7/31 9:29:00 [只看该作者]

1楼的代码加入到窗口的afterload里， 会影响WIN10系统吗？ 我怎么发现加入代码， 我的电脑键盘，文字输入都失灵了， 去掉后电脑正常， 我在测试一下， 或许我的电脑中毒了

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


加好友 发短信
等级：八尾狐 帖子：1838 积分：13012 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2019/7/31 9:29:00 [只看该作者]

将系统的整个界面设置成1920*1080,如何操作？主窗口最大1920*1080
[此贴子已经被作者于2019/7/31 9:50:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/31 10:12:00 [只看该作者]

回复5楼，如果加载比较多的数据，整个界面卡住是正常的

回复6楼，百度“设置系统分辨率”。确定电脑支持这个分辨率。另外应该是软件适应系统，不要奢求系统去适应软件
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13012 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2019/7/31 10:48:00 [只看该作者]

1楼追加的是新添加的行，对吗？如果只是数据发生了变化并没有添加行， 代码如何写呢？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/31 11:19:00 [只看该作者]

这种没有办法判断，只能是重新加载这个表。

[此贴子已经被作者于2019/7/31 11:19:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

加载新添加的行代码是什么？是这个吗？
Dim id As Integer = DataTables("库存明细表").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("库存明细表").AppendLoad(Filter, False)

怎么不起作用？
如果把_Identify更改为入库ID， 可以吗？
[此贴子已经被作者于2019/8/22 17:36:49编辑过]
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05615 秒, 4 次数据查询