[求助]如何将查询到内容选择部分保存到另表中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何将查询到内容选择部分保存到另表中

共有2900人关注过本帖树形打印复制链接主题：[求助]如何将查询到内容选择部分保存到另表中

benwong2013

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：485 积分：4075 威望：0 精华：0 注册：2015/12/16 8:22:00

[求助]如何将查询到内容选择部分保存到另表中 发帖心情

Post By：2016/3/9 10:32:00 [只看该作者]

在窗体中，希望通过下图红色标识的内容查询到满足条件的绿色标示的内容，（此点我在帮助中已经找到案例）

此主题相关图片如下：1.png

查询到的结果输出到table中，然后Table加复选框的方式选择之后保存下表中，请问应该如何处理；

[此贴子已经被作者于2016/3/9 10:33:30编辑过]

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/9 10:40:00 [只看该作者]

上传具体foxtable例子，说明怎么操作后，最后怎样的效果。

benwong2013

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：485 积分：4075 威望：0 精华：0 注册：2015/12/16 8:22:00

Post By：2016/3/9 12:01:00 [只看该作者]

老师，附件为例子，如要求如下：

1.在项目筛选类别之后，表列出筛选之后的项目；

2.在筛选的项目勾选之后，点击能将表的信息新增到明细中，若其中有个别项目编号一样时，将不保存一样的项目，其他仍然可以保存；

3.在项目明细中支持修改、保存及删除；

此主题相关图片如下：9.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:fdsystem.foxdb

[此贴子已经被作者于2016/3/9 12:01:24编辑过]

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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