- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何将查询到内容选择部分保存到另表中 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81942)
-- 发布时间：2016/3/9 10:32:00
-- [求助]如何将查询到内容选择部分保存到另表中
在窗体中，希望通过下图红色标识的内容查询到满足条件的绿色标示的内容，（此点我在帮助中已经找到案例）
此主题相关图片如下：1.png
查询到的结果输出到table中，然后Table加复选框的方式选择之后保存下表中，请问应该如何处理；
[此贴子已经被作者于2016/3/9 10:33:30编辑过]
-- 发布时间：2016/3/9 10:40:00
--
上传具体foxtable例子，说明怎么操作后，最后怎样的效果。
-- 发布时间：2016/3/9 12:01:00
--
老师，附件为例子，如要求如下：
1.在项目筛选类别之后，表列出筛选之后的项目；
2.在筛选的项目勾选之后，点击能将表的信息新增到明细中，若其中有个别项目编号一样时，将不保存一样的项目，其他仍然可以保存；
3.在项目明细中支持修改、保存及删除；
此主题相关图片如下：9.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:fdsystem.foxdb |
[此贴子已经被作者于2016/3/9 12:01:24编辑过]
-- 发布时间：2016/3/9 12:16:00
--
AfterCheckRow事件
If e.Row.Checked Then
Dim cs1() As String = {"项目编号","标准","检测项目","检测方法"}
Dim cs2() As String = {"项目编号","标准","检测项目","检测方法"}
Dim fdr As DataRow = DataTables("T_Item").find("项目编号 = \'" & e.Row("项目编号") & "\'")
If fdr Is Nothing Then
fdr = Tables("T_Report.T_Item").addnew.DataRow
End If
For i As Integer = 0 To cs1.Length - 1
fdr(cs1(i)) = e.Row(cs2(i))
Next
End If
-- 发布时间：2016/3/9 12:17:00
--
增加、删除、保存，参考
http://www.foxtable.com/help/topics/2263.htm
-- 发布时间：2016/3/9 12:53:00
--
谢谢老师，速度好快，太给力了
-- 发布时间：2016/3/10 9:20:00
--
老师，如果窗口中项目table不设置副本的话应该如何设置，因为我将筛选条件设置成为目录树
此主题相关图片如下：4.png
[此贴子已经被作者于2016/3/10 9:20:33编辑过]
-- 发布时间：2016/3/10 10:38:00
--
求赐教
-- 发布时间：2016/3/10 10:48:00
--
不明白你具体什么意思，不是有筛选目录树吗？
http://www.foxtable.com/help/topics/0917.htm
-- 发布时间：2016/4/8 13:56:00
--
老师，如根据您提供代码，若在item表中同一个项目编号的将不会重复存在，但若我想在增加若根基item表中项目编号和报告编号同时进行判定，若同时存在不添加，其它情况可以添加，应该如何修改？