Foxtable(狐表)用户栏目专家坐堂 → 选择一逻辑列(“选”)的多行时,如何根据选中列“选”的顺序来插入这些行到另一个表?


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

主题:选择一逻辑列(“选”)的多行时,如何根据选中列“选”的顺序来插入这些行到另一个表?

帅哥哟,离线,有人找我吗?
yancheng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:842 积分:5971 威望:0 精华:0 注册:2013/6/29 9:36:00
选择一逻辑列(“选”)的多行时,如何根据选中列“选”的顺序来插入这些行到另一个表?  发帖心情 Post By:2016/4/26 8:56:00 [只看该作者]

选择一逻辑列(“选”)的多行时,如何根据选中列“选”的顺序来插入这些行到另一个表?

图片点击可在新窗口打开查看此主题相关图片如下:333.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2016/4/26 8:59:44编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/26 9:41:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
yancheng
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:842 积分:5971 威望:0 精华:0 注册:2013/6/29 9:36:00
我是选好了行“选”后,统一点:插入材料。  发帖心情 Post By:2016/4/26 14:39:00 [只看该作者]

我是选好了行“选”后,统一点:插入材料。统一插入到另一个表的。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/26 14:46:00 [只看该作者]

 那就加入一个变量记录顺序,打开的时候

 

Vars("变量") = New List(Of DataRow)

 

 DataColChanged事件

 

If e.DataCol.Name = "选" Then
    If e.NewValue = True Then
        Vars("变量").Add(e.DataRow)
    Else
        For Each dr As DataRow In Vars("变量")
            If dr.Equals(e.DataRow) Then
                Vars("变量").Remove(dr)
                Exit For
            End If
        Next
    End If
End If


 回到顶部
帅哥哟,离线,有人找我吗?
yancheng
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:842 积分:5971 威望:0 精华:0 注册:2013/6/29 9:36:00
  发帖心情 Post By:2016/5/2 20:59:00 [只看该作者]

没看懂老师回复的意思 ,我的:插入机具 ,按钮代码如下:

Dim nms() As String = {"机具订单"}
Dim nms1() As String = {"机具订单.机具进货"}
For Each nm As String In nms
    For Each nm1 As String In nms1
        If Forms(nm).opened Then
            Dim drs As List (of DataRow) = DataTables("机具").Select("选 = true")
            For Each dr As DataRow In drs
                Dim r As Row = Tables(nm1).AddNew()
                r("机具编号") = dr("机具编号")
            Next
        End If
    Next
Next
Forms("机具编号窗口").Close()

 回到顶部
帅哥哟,离线,有人找我吗?
yancheng
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:842 积分:5971 威望:0 精华:0 注册:2013/6/29 9:36:00
  发帖心情 Post By:2016/5/2 21:49:00 [只看该作者]

报错。不知道哪里 问题
图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下:3.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2016/5/2 21:49:59编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
yancheng
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:842 积分:5971 威望:0 精华:0 注册:2013/6/29 9:36:00
  发帖心情 Post By:2016/5/2 21:50:00 [只看该作者]

附图
图片点击可在新窗口打开查看此主题相关图片如下:4.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/5/3 8:49:00 [只看该作者]

Vars("选顺序") = New List(Of DataRow)放到窗口加载AfterLoad或者项目AfterOpenProject 中

不要在全局变量窗口定义"选顺序"

 回到顶部