| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 同步问题请教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71626) |
| -- 作者：douglas738888 -- 发布时间：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") |
| -- 作者：大红袍 -- 发布时间：2015/7/15 10:51:00 -- 1、可以做一个刷新按钮，把表A和表B刷新
DataTables("表A").Load DataTables("表B").Load
2、可以做一个定时器，间隔一段时间刷新表数据。 |
| -- 作者：douglas738888 -- 发布时间：2015/7/15 11:25:00 -- 好的，我试试，另外再请教老师， 在TopicBar控件中的“今日新增任务（1）”如何实现及时变更统计数量，比如，现在A员工发布了两条任务，今日新增任务马上统计为（3）
|
| -- 作者：大红袍 -- 发布时间：2015/7/15 11:27:00 -- 以下是引用douglas738888在2015/7/15 11:25:00的发言：
好的，我试试，另外再请教老师， 在TopicBar控件中的“今日新增任务（1）”如何实现及时变更统计数量，比如，现在A员工发布了两条任务，今日新增任务马上统计为（3）
同样的统计代码，写到计时器去。 |
| -- 作者：douglas738888 -- 发布时间：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”的成员 |
| -- 作者：大红袍 -- 发布时间：2015/7/15 14:03:00 -- Forms("窗口A").StopRedraw() \'停止绘制窗口 DataTables("市场部任务接收").StopRedraw() DataTables("市场部任务接收").RemoveFor("任务发布时间 = #" & Date.Today & "#") DataTables("市场部任务接收").AppendLoad("任务发布时间 = #" & Date.Today & "#") DataTables("市场部任务接收").ResumeRedraw() Forms("窗口A").ResumeRedraw() |