以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码修改  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74556)

--  作者:qinlao666
--  发布时间:2015/9/14 10:09:00
--  代码修改

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150914091541.jpg
图片点击可在新窗口打开查看

数据是外部数据,且是部分加载
请老师帮我改下代码,谢谢

 

我想实现的功能是,业务员A增加了数据或者是修改了数据,(数据满足条件"[报价] = True And [报价_审核] = False"时)

则经理那边是数据就同步显示

 

上面的代码,如果打开项目时未加载任何数据,是能执行的。但有数据加载的话就会提示上面的错误


--  作者:大红袍
--  发布时间:2015/9/14 10:14:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=74469&skin=0

 

DataTables("报价主表").Save

LockBaseMainForm() \'锁定主界面
DataTables("报价主表").StopRedraw()
DataTables("报价主表").RemoveFor("[报价] = True And [报价_审核] = False")
DataTables("报价主表").AppendLoad("[报价] = 1 And [报价_审核] = 0")
DataTables("报价主表").ResumeRedraw()
UnLockBaseMainForm() \'解锁主界面

 

 


--  作者:qinlao666
--  发布时间:2015/9/14 10:20:00
--  
列“_Identify”被约束为是唯一的。值“4”已存在。,我在命令窗口执行时,还是报这个错误
--  作者:大红袍
--  发布时间:2015/9/14 10:25:00
--  

代码应该是不会有问题的。看2楼的链接。

 

不行,就做个例子发上来。


--  作者:qinlao666
--  发布时间:2015/9/14 10:29:00
--  

大红袍老师,数据是外部数据,且是部分加载,我测试了下,如果不加载任何的数据,代码是可以执行的

 


--  作者:大红袍
--  发布时间:2015/9/14 10:55:00
--  
弄一个计划间隔一段时间执行同步

 

http://www.foxtable.com/help/topics/0657.htm

 

LockBaseMainForm() \'锁定主界面
DataTables("报价主表").StopRedraw()
DataTables("报价主表").Load()
DataTables("报价主表").ResumeRedraw()
UnLockBaseMainForm() \'解锁主界面


--  作者:qinlao666
--  发布时间:2015/9/15 20:56:00
--  

大红袍老师,在吗?执行下面的代码后数据就跳转到第一条了,能否不让它跳转啊,还是指在当前的记录上

 

LockBaseMainForm() \'锁定主界面
DataTables("报价主表").StopRedraw()
DataTables("报价主表").Load()
DataTables("报价主表").ResumeRedraw()
UnLockBaseMainForm() \'解锁主界面

 


--  作者:大红袍
--  发布时间:2015/9/15 21:33:00
--  

LockBaseMainForm() \'锁定主界面
Dim idx As String = Tables("报价主表").Current("_Identify")
DataTables("报价主表").StopRedraw()
DataTables("报价主表").Load()
DataTables("报价主表").ResumeRedraw()
Tables("报价主表").Position = Tables("报价主表").FindRow("_Identify = \'" & idx & "\'")
UnLockBaseMainForm() \'解锁主界面


 


--  作者:qinlao666
--  发布时间:2015/9/15 23:33:00
--  
老师又有新的问题出现了,如图
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150915232822.jpg
图片点击可在新窗口打开查看


执行命令后就变成了
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150915232440.jpg
图片点击可在新窗口打开查看


picturebox控件的“已审核.JPG”没有了。
(是在窗口中,我已将命令改成锁定窗口的)。请老师赐教,谢谢

LockBaseMainForm() \'锁定主界面
Forms("报价单查询").StopRedraw()
Dim idx As String = Tables("报价主表").Current("_Identify")
DataTables("报价主表").StopRedraw()
DataTables("报价主表").Load()
DataTables("报价主表").ResumeRedraw()
Tables("报价主表").Position = Tables("报价主表").FindRow("_Identify = \'" & idx & "\'")
Forms("报价单查询").ResumeRedraw()
UnLockBaseMainForm() \'解锁主界面

--  作者:大红袍
--  发布时间:2015/9/16 9:29:00
--  
那你就这样写试试。
 
Dim idx As String = Tables("报价主表").Current("_Identify")
LockBaseMainForm() \'锁定主界面
Forms("报价单查询").StopRedraw()
DataTables("报价主表").StopRedraw()
DataTables("报价主表").Load()
DataTables("报价主表").ResumeRedraw()
Forms("报价单查询").ResumeRedraw()
UnLockBaseMainForm() \'解锁主界面
Tables("报价主表").Position = Tables("报价主表").FindRow("_Identify = \'" & idx & "\'")