- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 选择一逻辑列（“选”）的多行时，如何根据选中列“选”的顺序来插入这些行到另一个表？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84216)
-- 发布时间：2016/4/26 8:56:00
-- 选择一逻辑列（“选”）的多行时，如何根据选中列“选”的顺序来插入这些行到另一个表？
选择一逻辑列（“选”）的多行时，如何根据选中列“选”的顺序来插入这些行到另一个表？
此主题相关图片如下：333.jpg
[此贴子已经被作者于2016/4/26 8:59:44编辑过]
-- 发布时间：2016/4/26 9:41:00
--
参考
http://www.foxtable.com/help/topics/2292.htm
-- 发布时间：2016/4/26 14:39:00
-- 我是选好了行“选”后，统一点：插入材料。
我是选好了行“选”后，统一点：插入材料。统一插入到另一个表的。
-- 发布时间：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
-- 发布时间：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()
-- 发布时间：2016/5/2 21:49:00
--
报错。不知道哪里 问题
此主题相关图片如下：2.jpg
此主题相关图片如下：3.jpg
[此贴子已经被作者于2016/5/2 21:49:59编辑过]
-- 发布时间：2016/5/2 21:50:00
--
附图
此主题相关图片如下：4.png
-- 发布时间：2016/5/3 8:49:00
--
Vars("选顺序") = New List(Of DataRow)放到窗口加载AfterLoad或者项目AfterOpenProject 中
不要在全局变量窗口定义"选顺序"