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


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

主题：[求助]如何将查询到内容选择部分保存到另表中
帅哥哟，离线，有人找我吗？
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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
benwong2013
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
benwong2013
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：485 积分：4075 威望：0 精华：0 注册：2015/12/16 8:22:00 		  发帖心情 Post By：2016/3/9 12:53:00 [显示全部帖子]

谢谢老师，速度好快，太给力了

 回到顶部
帅哥哟，离线，有人找我吗？
benwong2013
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：485 积分：4075 威望：0 精华：0 注册：2015/12/16 8:22:00 		  发帖心情 Post By：2016/3/10 9:20:00 [显示全部帖子]

老师，如果窗口中项目table不设置副本的话应该如何设置，因为我将筛选条件设置成为目录树

图片点击可在新窗口打开查看此主题相关图片如下：4.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2016/3/10 9:20:33编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
benwong2013
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：485 积分：4075 威望：0 精华：0 注册：2015/12/16 8:22:00 		  发帖心情 Post By：2016/3/10 10:38:00 [显示全部帖子]

求赐教

 回到顶部
帅哥哟，离线，有人找我吗？
benwong2013
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：485 积分：4075 威望：0 精华：0 注册：2015/12/16 8:22:00 		  发帖心情 Post By：2016/4/8 13:56:00 [显示全部帖子]

老师，如根据您提供代码，若在item表中同一个项目编号的将不会重复存在，但若我想在增加若根基item表中项目编号和报告编号同时进行判定，若同时存在不添加，其它情况可以添加，应该如何修改？

 回到顶部
帅哥哟，离线，有人找我吗？
benwong2013
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：485 积分：4075 威望：0 精华：0 注册：2015/12/16 8:22:00 		  发帖心情 Post By：2016/4/8 14:36:00 [显示全部帖子]

之前我已经依照这个修改过了，但他提醒在表M_ItemNo是不存在“报告编号”

但是Dim fdr As DataRow = DataTables("T_Item").find("项目编号 = '" & e.Row("项目编号") & "' and 报告编号 = '" & e.Row("报告编号") & "'")
代码也是在T_Item中find项目编号和报告编号不存在的时候新增；
图片点击可在新窗口打开查看此主题相关图片如下：8.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
benwong2013
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：485 积分：4075 威望：0 精华：0 注册：2015/12/16 8:22:00 		  发帖心情 Post By：2016/4/8 16:38:00 [显示全部帖子]

老师，改变思路，针对明细保存的时候进行列重复的判定，若重复将提醒：

For Each dr As Row In Tables("T_Item").Rows
Dim fdr As DataRow = DataTables("T_Item").Find("报告编号 = '" & dr("报告编号") & "'" And "项目编号 = '" & dr("项目编号") & "'")
If fdr IsNot Nothing Then
     MessageBox.Show("已经存在相同项目!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
    Else
    DataTables("T_Item").save
End If
Next

但好像只能针对报告编号进行判定，应如何修改？并且提醒的时候对话框只提醒一次并且将重复项目列出；
[此贴子已经被作者于2016/4/8 16:40:02编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 6 次数据查询