- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 多对多取值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130987)
-- 发布时间：2019/2/13 17:48:00
-- 多对多取值
订单明细与发货明细表是多对多关系，没有关联。想在发货明细表中逐行输入订单号，根据订单号从订单明细表中逐行取值（型号，规格，订单数量）
-- 发布时间：2019/2/13 18:00:00
--
直接用select查找数据过来，不就行了？
http://www.foxtable.com/webhelp/scr/0400.htm
[此贴子已经被作者于2019/2/13 18:00:22编辑过]
-- 发布时间：2019/2/13 18:21:00
--
我想在发货明细表中用DataColChanged表事件处理，类似下面的代码
If e.DataCol.Name ="订单号" Then
Dim drs As List(Of DataRow) = DataTables("订单明细").Select("订单号 = " & "\'" & e.DataRow("订单号") & "\'" )
For Each dr As DataRow In drs
If dr IsNot Nothing
e.DataRow("型号")= dr("型号")
e.DataRow("规格")= dr("规格")
e.DataRow("订单数量")= dr("订单数量")
End If
Next
End If
-- 发布时间：2019/2/13 22:50:00
--
比如
If e.DataCol.Name ="订单号" Then
Dim drs As List(Of DataRow) = DataTables("订单明细").Select("订单号 = " & "\'" & e.DataRow("订单号") & "\'" )
For Each dr As DataRow In drs
Dim ndr As DataRow = e.DataTable.addnew
ndr("型号")= dr("型号")
ndr("规格")= dr("规格")
ndr("订单数量")= dr("订单数量")
Next
End If
-- 发布时间：2019/2/14 9:03:00
--
因为是在关联表中操作，有关联字段发货单号，新增行中能带入主表的发货单号吗?
-- 发布时间：2019/2/14 9:10:00
--
以下是引用实话实说在2019/2/14 9:03:00的发言：
因为是在关联表中操作，有关联字段发货单号，新增行中能带入主表的发货单号吗?
因为是在关联表中操作，有关联字段发货单号，新增行中能带入主表的发货单号吗?
datarowadded事件
e.datarow("某列") = Tables("某表").current("某列")
-- 发布时间：2019/2/15 12:54:00
--
我想通过窗口的列表框选择订单单号，然后导入订单明细的数据，4楼的代码如何修改？
此主题相关图片如下：snap2.jpg
-- 发布时间：2019/2/15 13:05:00
--
Dim drs As List(Of DataRow) = DataTables("订单明细").Select("订单号 = " & "\'" & e.form.controls("combobox").text & "\'" )
For Each dr As DataRow In drs
Dim ndr As DataRow = DataTables("表A").addnew
ndr("型号")= dr("型号")
ndr("规格")= dr("规格")
ndr("订单数量")= dr("订单数量")
Next
-- 发布时间：2019/2/15 14:38:00
--
谢了