- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]關聯問題 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44411)
-- 发布时间：2013/12/30 12:18:00
-- [求助]關聯問題
表C資料如何透過邏輯列加到表A及關聯表[表A.表B]
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2013/12/30 12:32:00
--
读起来很困难
-- 发布时间：2013/12/30 12:37:00
--
看不懂你的问题，能更具体一点吗？
如果是单击逻辑列复制行，可以看看：
http://www.foxtable.com/help/topics/2292.htm
-- 发布时间：2013/12/30 13:14:00
--
以下是引用狐狸爸爸在2013-12-30 12:37:00的发言：
看不懂你的问题，能更具体一点吗？
如果是单击逻辑列复制行，可以看看：
http://www.foxtable.com/help/topics/2292.htm
非常感恩狐爸指點，可以加到表B，但我要表A的關聯列第一列也加進去a。不知如何達到？
-- 发布时间：2013/12/30 14:14:00
--
没有看懂 "但我要表A的關聯列第一列也加進去a" 是什么意思
-- 发布时间：2013/12/30 15:22:00
--
以下是引用Bin在2013-12-30 14:14:00的发言：
没有看懂 "但我要表A的關聯列第一列也加進去a" 是什么意思
没有看懂 "但我要表A的關聯列第一列也加進去a" 是什么意思
我重傳項目2，您指點過表C加進表B，我希望透過窗口按鈕選邏輯列true後加進表B，同時表C第一列a值也能在表A第一列加入a值，那麼就能與表B形成關聯，完成後true那一行清除消失。先感恩啊！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.table |
-- 发布时间：2013/12/30 18:58:00
--
以下是引用JoyGum在2013-12-30 15:22:00的发言：
我重傳項目2，您指點過表C加進表B，我希望透過窗口按鈕選邏輯列true後加進表B，同時表C第一列a值也能在表A第一列加入a值，那麼就能與表B形成關聯，完成後true那一行清除消失。先感恩啊！
| 下载信息 [文件大小：316.0 KB 下载次数：0] | |
 点击浏览该文件:管理项目2.table |
抱歉表達不清楚，應該是表C數據可加進父表(表A)的第一列及子表(表B)的第一到第四列。
-- 发布时间：2013/12/30 19:19:00
--
用下面的代码
Dim f As New Filler
f.SourceTable = DataTables("表C") \'指定数据来源
f.SourceCols = "第一列,第二列,第三列,第四列" \'指定数据来源列
f.DataTable = DataTables("表B") \'指定数据接收表
f.DataCols = "第一列,第二列,第三列,第四列" \'指定数据接收列
f.Fill() \'填充数据
f.SourceTable = DataTables("表C") \'指定数据来源
f.SourceCols = "第一列" \'指定数据来源列
f.DataTable = DataTables("表A") \'指定数据接收表
f.DataCols = "第一列" \'指定数据接收列
f.ExcludeExistValue = True
f.Fill() \'填充数据
DataTables("表C").DataRows.Clear
-- 发布时间：2013/12/30 20:11:00
--
以下是引用有点甜在2013-12-30 19:19:00的发言：
用下面的代码
用下面的代码
Dim f As New Filler
f.SourceTable = DataTables("表C") \'指定数据来源
f.SourceCols = "第一列,第二列,第三列,第四列" \'指定数据来源列
f.DataTable = DataTables("表B") \'指定数据接收表
f.DataCols = "第一列,第二列,第三列,第四列" \'指定数据接收列
f.Fill() \'填充数据
f.SourceTable = DataTables("表C") \'指定数据来源
f.SourceCols = "第一列" \'指定数据来源列
f.DataTable = DataTables("表A") \'指定数据接收表
f.DataCols = "第一列" \'指定数据接收列
f.ExcludeExistValue = True
f.Fill() \'填充数据
DataTables("表C").DataRows.Clear
感恩啊！想哭了！
-- 发布时间：2013/12/30 21:44:00
--
以下是引用JoyGum在2013-12-30 20:11:00的发言：
感恩啊！想哭了！
再次請教若排除邏輯列的思維，以上代碼非常完美。設計會計系統非常需要，再次感恩。但我還有另一種需求，也就是靈活以邏輯列選取需要複製的行到表A和表B，完成後清除。沒有選取的行不用複製到表A和表B繼續保留存在。