- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 多选内容确定后填入明细表中 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94961)
-- 发布时间：2017/1/6 10:09:00
-- 多选内容确定后填入明细表中
如图所示，我在下拉列表框中选中要添加的商品名称，然后点击确定按钮，怎么样让它自动把选中的商品添加到明细表中（多条商品）
此主题相关图片如下：5.jpg
-- 发布时间：2017/1/6 10:13:00
--
参考代码
Dim t As Table = Tables("表A")
For Each r As Row In Tables("表B").GetCheckedRows
Dim nr As Row = t.AddNew
nr("第一列") = r("第一列")
nr("第二列") = r("第二列")
Next
-- 发布时间：2017/1/6 17:10:00
--
此主题相关图片如下：7.png
谢谢，大问题解决了，因为我这个下拉选择框是参照帮助文件自定义窗口录入3仿做的，但是现在又冒出来了一个小的问题，我选择2个复选框，它除了带出打勾的两个复选框商品编码，还会带出鼠标焦点选择的那一行（有背景颜色那一行）
起初我想如果删除下面的代码，就可以解决这一行，后来我删除后，竟然返回了空白行，如是我在你给我指点的代码后加上了附件的代码，结果代码提示错误，不知道怎么操作，请老师指点。
【If
e.Selected Then
\'如果选择了值
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("客户ID")
Tables("订单").Current("其它列1") = tbl.Current("其它列1")
Tables("订单").Current("其它列2") = tbl.Current("其它列2")
Tables("订单").Current("其它列3") = tbl.Current("其它列3")
If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的
e.Form.DropTable.FinishEditing()
Else \'如果是通过窗口下拉的
e.Form.DropDownBox.WriteValue()
End If
End If
End If】
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("客户ID")
Tables("订单").Current("其它列1") = tbl.Current("其它列1")
Tables("订单").Current("其它列2") = tbl.Current("其它列2")
Tables("订单").Current("其它列3") = tbl.Current("其它列3")
If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的
e.Form.DropTable.FinishEditing()
Else \'如果是通过窗口下拉的
e.Form.DropDownBox.WriteValue()
End If
End If
End If】
[此贴子已经被作者于2017/1/6 17:12:27编辑过]
-- 发布时间：2017/1/6 17:51:00
--
这样写
Dim t As Table = Tables("表A")
dim i as integer = t.Current.Index
For Each r As Row In Tables("表B").GetCheckedRows
Dim nr As Row = t.AddNew
nr("第一列") = r("第一列")
nr("第二列") = r("第二列")
Next
t.rows(i).Delete
-- 发布时间：2017/1/6 19:52:00
--
谢谢老师，经测试，没有问题。