Foxtable(狐表)用户栏目专家坐堂 → 同步问题请教


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

主题:同步问题请教

帅哥哟,离线,有人找我吗?
douglas738888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
同步问题请教  发帖心情 Post By:2015/7/15 10:46:00 [只看该作者]

我的系统设计的是自定义登录,表A和表B分别做了两个窗口(列名都是一样的),在表A窗口中做了个按钮,当表A数据填充后,点击按钮后把所以列数据传给表B
(因为有一列是文件列(工作任务书),为保证表A把文件传给表B打开才采用这种方法,窗口没有用文件管理器,而采用绑定表的形式)

问题:当A员工登录在线把表A数据填充好,点击按钮后,可见数据能传给表B窗口,但是B员工登录同时在线看不到A员工传过来的表A数据(B员工只有退出系统,重新登录后才能看到A员工传来的数据),相当于表A数据发送后,已登录用户在线不能同步看到表A给表B发送的同步数据。

不知道,是不是哪里触发晚了。特请教各位老师,谢谢!!

表A,Click按钮的代码
Dim r1 As Row = Tables("表A").Current
Dim r2 As Row = Tables("表B").AddNew
Dim c1() As String = {"部门名称","部门负责人","工作任务书","发布人","任务发布时间","任务接收时间"}
For Each c As String In c1
    r2(c) = r1(c)
Next

AfterLoad代码
Dim cmd,cmd1 As New SQLCommand
Dim dt As DataTable
Dim lst As WinForm.CheckedComboBox = e.F orm.Controls("CheckedComboBox1")
cmd.C
cmd.CommandText = "SELECT DISTINCT Name F rom {Users}"
dt = cmd.ExecuteReader()
lst = e.F orm.Controls("CheckedComboBox1")
lst.ComboList= dt.GetComboListString("Name")

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/15 10:51:00 [只看该作者]

 1、可以做一个刷新按钮,把表A和表B刷新

 

DataTables("表A").Load

DataTables("表B").Load

 

 2、可以做一个定时器,间隔一段时间刷新表数据。


 回到顶部
帅哥哟,离线,有人找我吗?
douglas738888
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2015/7/15 11:25:00 [只看该作者]

好的,我试试,另外再请教老师,
在TopicBar控件中的“今日新增任务(1)”如何实现及时变更统计数量,比如,现在A员工发布了两条任务,今日新增任务马上统计为(3)

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/15 11:27:00 [只看该作者]

以下是引用douglas738888在2015/7/15 11:25:00的发言:
好的,我试试,另外再请教老师,
在TopicBar控件中的“今日新增任务(1)”如何实现及时变更统计数量,比如,现在A员工发布了两条任务,今日新增任务马上统计为(3)

 

同样的统计代码,写到计时器去。


 回到顶部
帅哥哟,离线,有人找我吗?
douglas738888
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2015/7/15 13:41:00 [只看该作者]

请教老师:
按条件刷新数据,出现编译错误,该代码是帮助上的 
以下代码在命令窗口执行
Forms("窗口A").StopRedraw() '停止绘制窗口
DataTables("市场部任务接收").StopRedraw()
DataTables("市场部任务接收").RemoveFor("任务发布时间 = #" & Date.Today & "#")
DataTables("市场部任务接收").AppendLoad("任务发布时间 = #" & Date.Today & "#")
DataTables("市场部任务接收").ResumeRedraw()
Forms("窗口A").ReseumeRedraw()

编译错误:ReseumeRedraw()不是“WinForm.Form”的成员

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/15 14:03:00 [只看该作者]

Forms("窗口A").StopRedraw() '停止绘制窗口
DataTables("市场部任务接收").StopRedraw()
DataTables("市场部任务接收").RemoveFor("任务发布时间 = #" & Date.Today & "#")
DataTables("市场部任务接收").AppendLoad("任务发布时间 = #" & Date.Today & "#")
DataTables("市场部任务接收").ResumeRedraw()
Forms("窗口A").ResumeRedraw()

 回到顶部