以文本方式查看主题
- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]表中数据在另一表中显示(最后一步了,谁可以帮帮我!!) (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102749)
|
-- 作者:独行侠
-- 发布时间:2017/6/25 9:47:00
-- [求助]表中数据在另一表中显示(最后一步了,谁可以帮帮我!!)
此主题相关图片如下:~dxq8i@gahhz}3ckog2c%pj.png
我在窗口(物资)中设计了一个 调用按钮,点击调用, 物资表中调用列 打勾的行就可以在 调用结果窗口中显示出来
我的 调用按钮的 代码
DataTables("调用结果_Table2").DeleteFor("") Dim f As New Filler f.SourceTable = DataTables("物资") \'指定数据来源
f.DataTable = DataTables("调用结果_Table2") \'指定数据接收表
f.Filter = "调用=true" f.Fill() \'填充数据
但是显示
此主题相关图片如下:p1o43`9djl7`k$emkzryq0.png
这该怎么解决?? 调用结果窗口中的表
此主题相关图片如下:wl0n9i3r{3_5gvt$6da@j.png
最后一步了 谁可以帮帮我!!!
[此贴子已经被作者于2017/6/25 9:48:06编辑过]
|
-- 作者:有点色
-- 发布时间:2017/6/25 9:56:00
--
Tables("调用结果_Table2").DataTable.DeleteFor("") Dim f As New Filler f.SourceTable = DataTables("物资") \'指定数据来源 f.DataTable = Tables("调用结果_Table2").DataTable \'指定数据接收表 f.Filter = "调用=true" f.Fill() \'填充数据
|
-- 作者:独行侠
-- 发布时间:2017/6/25 16:59:00
-- 回复:(有点色)Tables("调用结果_Table2").DataTabl...
还是显示一样的错误, 把 调用 按钮的代码 写成
Dim t As Table = e.Form.controls("Table1").Table t.Filter = "调用=true"
可以把 调用打勾的在原表筛选出来,但是这不是我想要的结果,我想要 点击调用按钮, 被打勾的行会在另一个窗口的表中显示出来(或者在另一张表中显示也行,我可以在另一个窗口中与这个表绑定,同样可以实现我想要的效果。)
(抱歉,不是有意要重复发帖子的,今天最后一天了,真没时间,我发了三次帖子问同一个问题, 都一直没解决。
我再反映一个问题,帖子中 加入这句话
此主题相关图片如下:n51%s{2i)8mnx()}sx06c3.png
帖子就发不出去,好几次了,一直显示错误,删掉这句话 帖子才能发出去)
|
-- 作者:独行侠
-- 发布时间:2017/6/25 17:35:00
-- 回复:(独行侠)回复:(有点色)Tables("调用结果_T...
Forms("调用结果").Show Tables("调用结果_Table1").DataTable.DeleteFor("") Dim f As New Filler f.SourceTable = DataTables("物资") f.DataTable = Tables("调用结果_Table1").DataTable f.Filter = "调用=true" f.Fill()
我把调用按钮的 加了一句打开窗口,并把 调用结果中的表设为 SQLQuery 并写select代码 (这个代码打出来 发不了帖子)
这样,我选定的东西可以在 另一个窗口显示,但仅仅使显示,并不会保存下来,请问 如何才能让那些行保存下载?
|
-- 作者:有点色
-- 发布时间:2017/6/25 17:42:00
--
你需要再添加一个数据表,命名为【调用数据】,然后把数据填充到这个数据表,不就好了?
|
-- 作者:独行侠
-- 发布时间:2017/6/25 18:14:00
-- 回复:(有点色) 你需要再添加一个数据表,命名...
此主题相关图片如下:(4`nmt))_zl61wjzplo(2d.png
此主题相关图片如下:xlws(y%qn~9gv0nlz6o8hol.png
我把 调用结果的表设为数据表后就会显示错误
我的 调用按钮的代码
Forms("调用结果").Show Tables("调用结果_Table1").DataTable.DeleteFor("") Dim f As New Filler f.SourceTable = DataTables("物资") \'指定数据来源 f.DataTable = Tables("调用结果_Table1").DataTable \'指定数据接收表 f.Filter = "调用=true" f.Fill() \'填充数据
|
-- 作者:有点色
-- 发布时间:2017/6/25 18:55:00
--
Forms("调用结果").Show DataTables("调用结果").DeleteFor("") Dim f As New Filler f.SourceTable = DataTables("物资") \'指定数据来源 f.DataTable = DataTables("调用结果") \'指定数据接收表 f.Filter = "调用=true" f.Fill() \'填充数据
|
-- 作者:独行侠
-- 发布时间:2017/6/25 19:38:00
-- 回复:(有点色)Forms("调用结果").ShowDataTables("...
此主题相关图片如下:a}vtuwq1j@25fwf)9jjv6y.png
错误内容变了
|
-- 作者:有点蓝
-- 发布时间:2017/6/26 8:28:00
--
7楼代码不会有这种错误
勾上“显示详细信息”看是在什么事件错误,查看代码
|
-- 作者:独行侠
-- 发布时间:2017/6/26 10:18:00
-- 回复:(有点色)Forms("调用结果").ShowDataTables("...
用这个代码的话, 我的调用结果中的表要设置成什么类型的?
|