Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]打开窗口后窗口关联临时表不能更新数据


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

主题：[求助]打开窗口后窗口关联临时表不能更新数据
帅哥哟，离线，有人找我吗？
沪上游客
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		[求助]打开窗口后窗口关联临时表不能更新数据  发帖心情 Post By：2017/7/8 14:05:00 [显示全部帖子]

老师你好！
在一窗口打开时建立一个临时表，但是窗口表中的数据不能更新，还是显示上一次 的数据，重新打开后才是正确的数据，请帮我更正一下代码。谢谢啦！
Dim dtb As New DataTableBuilder("收入合同关联记录数")
dtb.AddDef("关联信息", Gettype(String), 32)
dtb.AddDef("记录数", Gettype(Integer))
dtb.Build()
Tables("收入合同关联记录数").DefaultRowHeight = 50
Tables("收入合同关联记录数").Cols("关联信息").PrintWidth = 60
Tables("收入合同关联记录数").Cols("记录数").PrintWidth = 20
Tables("收入合同关联记录数").AddNew()
Tables("收入合同关联记录数").Current("关联信息") = "补充合同或决算数据"
Tables("收入合同关联记录数").Current("记录数") = Tables("工程合同基础数据").Current("补充合同或决算记录数")
Tables("收入合同关联记录数").AddNew()
Tables("收入合同关联记录数").Current("关联信息") = "增值税fa piao开piao登记"
Tables("收入合同关联记录数").Current("记录数") = Tables("工程合同基础数据").Current("开piao记录数")
Tables("收入合同关联记录数").AddNew()
Tables("收入合同关联记录数").Current("关联信息") = "支出合同基础数据"
Tables("收入合同关联记录数").Current("记录数") = Tables("工程合同基础数据").Current("支出合同数")
Tables("收入合同关联记录数").AddNew()
Tables("收入合同关联记录数").Current("关联信息") = "应收款收入数据"
Tables("收入合同关联记录数").Current("记录数") = Tables("工程合同基础数据").Current("应收款记录数")
'DataTables("关联主合同记录数_Table1") = Tables("收入合同关联记录数")
'DataTables("关联主合同记录数_Table1").Load()
[此贴子已经被作者于2017/7/8 14:05:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
沪上游客
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		  发帖心情 Post By：2017/7/8 14:07:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170708135831.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
沪上游客
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		  发帖心情 Post By：2017/7/8 14:09:00 [显示全部帖子]

另外，在一个独立窗口中用按钮打另一个独立窗口，为什么原来的独立窗口会关闭？应该怎么设置？谢谢老师！
[此贴子已经被作者于2017/7/8 14:09:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
沪上游客
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		  发帖心情 Post By：2017/7/8 14:25:00 [显示全部帖子]

老师你好！但是我引的是源表表达式列，后台数据不存在表达式列？应该是内部数据吧？能不能帮忙写一下代码。谢谢！
[此贴子已经被作者于2017/7/8 14:36:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
沪上游客
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		  发帖心情 Post By：2017/7/8 14:54:00 [显示全部帖子]

不是没有列，在源表中是表达式列，应该可以引用，但是我不知道代码怎么写？请老师指导一下，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
沪上游客
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		  发帖心情 Post By：2017/7/8 14:56:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170708145310.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
沪上游客
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		  发帖心情 Post By：2017/7/8 14:58:00 [显示全部帖子]

其实我不需要保存，只要能在窗口更新最新数据，谢谢！

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


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		  发帖心情 Post By：2017/7/8 15:05:00 [显示全部帖子]

e.DataTable("关联主合同记录数_Table1") = Tables("收入合同关联记录数")
e.DataTable("关联主合同记录数_Table1").Load()

这两代码为什么出错？请老师指正。谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
沪上游客
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		  发帖心情 Post By：2017/7/8 15:52:00 [显示全部帖子]

谢谢老师！已解决。我的代码是这样的。是不是正确，请老师指导。
Dim dtb As New DataTableBuilder("收入合同关联记录数")
dtb.AddDef("关联信息", Gettype(String), 32)
dtb.AddDef("记录数", Gettype(Integer))
dtb.Build()
Tables("收入合同关联记录数").DefaultRowHeight = 50
Tables("收入合同关联记录数").Cols("关联信息").PrintWidth = 60
Tables("收入合同关联记录数").Cols("记录数").PrintWidth = 20
Tables("收入合同关联记录数").AddNew()
Tables("收入合同关联记录数").Current("关联信息") = "补充合同或决算数据"
Tables("收入合同关联记录数").Current("记录数") = Tables("工程合同基础数据").Current("补充合同或决算记录数")
Tables("收入合同关联记录数").AddNew()
Tables("收入合同关联记录数").Current("关联信息") = "增值税fa piao开piao登记"
Tables("收入合同关联记录数").Current("记录数") = Tables("工程合同基础数据").Current("开piao记录数")
Tables("收入合同关联记录数").AddNew()
Tables("收入合同关联记录数").Current("关联信息") = "支出合同基础数据"
Tables("收入合同关联记录数").Current("记录数") = Tables("工程合同基础数据").Current("支出合同数")
Tables("收入合同关联记录数").AddNew()
Tables("收入合同关联记录数").Current("关联信息") = "应收款收入数据"
Tables("收入合同关联记录数").Current("记录数") = Tables("工程合同基础数据").Current("应收款记录数")
Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "收入合同关联记录数", False)
tbl.SetBounds(0, 75, 412, 252)
e.Form.AddControl(tbl)
 回到顶部
帅哥哟，离线，有人找我吗？
沪上游客
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		  发帖心情 Post By：2017/7/8 15:55:00 [显示全部帖子]

我把原来窗口的表删了
 回到顶部
总数 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.04688 秒, 5 次数据查询