| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]同步问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138383) |
| -- 作者：seal51 -- 发布时间：2019/7/30 10:58:00 -- [求助]同步问题 同步所有表中新添加的数据代码是什么？ Dim id As Integer = DataTables("采购主表").Compute("Max(_Identify)") Dim Filter As String = "[_Identify] > " & id DataTables("采购主表").AppendLoad(Filter, False) |
| -- 作者：有点蓝 -- 发布时间：2019/7/30 11:19:00 -- 遍历所有表逐个处理 For Each dt As DataTable In DataTables
...... Next |
| -- 作者：seal51 -- 发布时间：2019/7/30 11:20:00 -- 1楼的代码我放在窗口中的按钮里， 点击后并没有加载新数据？这是怎么回事？ [此贴子已经被作者于2019/7/30 11:23:47编辑过]
|
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：2019/7/31 9:29:00 -- 1楼的代码加入到窗口的afterload里， 会影响WIN10系统吗？ 我怎么发现加入代码， 我的电脑键盘，文字输入都失灵了， 去掉后电脑正常， 我在测试一下， 或许我的电脑中毒了 |
| -- 作者：seal51 -- 发布时间：2019/7/31 9:29:00 -- 将系统的整个界面设置成1920*1080,如何操作？主窗口最大1920*1080 [此贴子已经被作者于2019/7/31 9:50:21编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2019/7/31 10:12:00 -- 回复5楼，如果加载比较多的数据，整个界面卡住是正常的 回复6楼，百度“设置系统分辨率”。确定电脑支持这个分辨率。另外应该是软件适应系统，不要奢求系统去适应软件
|
| -- 作者：seal51 -- 发布时间：2019/7/31 10:48:00 -- 1楼追加的是新添加的行，对吗？如果只是数据发生了变化并没有添加行， 代码如何写呢？ |
| -- 作者：有点蓝 -- 发布时间：2019/7/31 11:19:00 -- 这种没有办法判断，只能是重新加载这个表。 [此贴子已经被作者于2019/7/31 11:19:54编辑过]
|
| -- 作者：seal51 -- 发布时间：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编辑过]
|