Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码修改


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

主题：代码修改
美女呀，在线，快来找我吧！
qinlao666
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：444 积分：3794 威望：0 精华：0 注册：2015/3/3 10:06:00 		代码修改  发帖心情 Post By：2015/9/14 10:09:00 [只看该作者]


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

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

 

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

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

 

上面的代码，如果打开项目时未加载任何数据，是能执行的。但有数据加载的话就会提示上面的错误
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：444 积分：3794 威望：0 精华：0 注册：2015/3/3 10:06:00 		  发帖心情 Post By：2015/9/14 10:20:00 [只看该作者]

列“_Identify”被约束为是唯一的。值“4”已存在。，我在命令窗口执行时，还是报这个错误

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


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

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

 

不行，就做个例子发上来。
 回到顶部
美女呀，在线，快来找我吧！
qinlao666
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：444 积分：3794 威望：0 精华：0 注册：2015/3/3 10:06:00 		  发帖心情 Post By：2015/9/14 10:29:00 [只看该作者]

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

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


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

弄一个计划间隔一段时间执行同步

 

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

 

LockBaseMainForm() '锁定主界面
DataTables("报价主表").StopRedraw()
DataTables("报价主表").Load()
DataTables("报价主表").ResumeRedraw()
UnLockBaseMainForm() '解锁主界面
 回到顶部
美女呀，在线，快来找我吧！
qinlao666
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：444 积分：3794 威望：0 精华：0 注册：2015/3/3 10:06:00 		  发帖心情 Post By：2015/9/15 20:56:00 [只看该作者]

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

 

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

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：444 积分：3794 威望：0 精华：0 注册：2015/3/3 10:06:00 		  发帖心情 Post By：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() '解锁主界面
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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 & "'")
 
 
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询