Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]表A的数据，自动保存到表B


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

主题：[求助]表A的数据，自动保存到表B
帅哥哟，离线，有人找我吗？
liumiao123
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		[求助]表A的数据，自动保存到表B  发帖心情 Post By：2018/9/4 14:49:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
窗口1中表A·的保存后 ，当天日期的数据，自动保存到表B·数据对应（单号，日期 名称）·
---
请问老师这如何实现
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
liumiao123
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点甜）方法一： http://www.foxta...  发帖心情 Post By：2018/9/4 15:00:00 [显示全部帖子]

我表达的意思是··数据每天都更新···除了当天数据保存到表B·不是当天的不保存·方法一·是全部都保存了·

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


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点甜）加上条件，比如方法一的 f....  发帖心情 Post By：2018/9/4 15:11:00 [显示全部帖子]

~~老师帮忙看看这是哪里错了
图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
liumiao123
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点甜）select("日期 = #" & ...  发帖心情 Post By：2018/9/4 15:19:00 [显示全部帖子]

还个问题~OPENQQ的·
如果新增一行了，怎么实现用 OPEN QQ系统通知 里面的弹窗模式推送消息·


Dim r As Row = Tables("表A").Current
Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")
r.Save()
'一定要在保存后合成信息,因为新增行的主键在保存后才生成
Dim msg As String = p & "表A" & "#" & r("_Identify")
For Each bd As QQBuddy In QQClient.Buddies
    If bd.Online Then
        QQClient.Send(bd.name, msg)
    End If
Next

请问老师是不是用这段改呢·
 回到顶部
帅哥哟，离线，有人找我吗？
liumiao123
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点甜）加上条件，比如方法一的 f....  发帖心情 Post By：2018/9/4 15:43:00 [显示全部帖子]

请问··老师·如果我在加一个列·“类别” 里面如果出现“采购” 的在提取·不是不提取·
是不是这样的代码
Dim f As New Filler
f.SourceTable = DataTables("表A") '指定数据来源
f.SourceCols = "日期,名称" '指定数据来源列
f.DataTable = DataTables("表B") '指定数据接收表
f.DataCols = "日期,名称" '指定数据接收列
f.Filter = "日期 = #" & Date.Today & "#"
f.Filter = "类别 = #" & "采购" & "#" 
f.Fill() '填充数据
 回到顶部
帅哥哟，离线，有人找我吗？
liumiao123
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点甜）在循环里面写下面代码 Dim ...  发帖心情 Post By：2018/9/4 16:11:00 [显示全部帖子]

·老师··
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
这 dr2 变量是哪个的变量

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


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点甜）以下是引用liumiao123在2018/9/4 16:...  发帖心情 Post By：2018/9/4 16:56:00 [显示全部帖子]

请问老师·是不是要OPENQQ在线·不在线·不提示哎··

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


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点甜）以下是引用liumiao123在2018/9/4 16:...  发帖心情 Post By：2018/9/4 17:13:00 [显示全部帖子]

If LastInputTickCount > 100000 Then
    Syscmd.Project.Exit()
End If

是项目 SystemIdle 事件·
请问老师·怎么修改成 对应  生产部 张三 关闭系统  别的人不关闭呢·
 回到顶部
帅哥哟，离线，有人找我吗？
liumiao123
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点甜）回复15楼，你写的代码，只会关闭自己...  发帖心情 Post By：2018/9/5 7:47:00 [显示全部帖子]

那请问老师·如何实现·关闭指定某人的系统呢·

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询