- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 跨表如何设置 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10323)
-- 发布时间：2011/5/30 21:24:00
-- 跨表如何设置
问题：
1：当“货品资料”表的“比率填充为批次”列打勾，采购进货单的 批次列=比率列 ，如何设置？
2：当“采购进货单”表的“批次设置”列打勾时，以“批次、生产日期、规格、颜色”列为对应列在“库存商品批次汇总表”创建批次，但不能重复。附件中 采购进货单表 批次设置列 多次点击时，“库存商品批次汇总表”会出现多条相同记录，请帮忙修改，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试16.table |
-- 发布时间：2011/5/31 8:54:00
--
If e.DataCol.Name = "批次设置" AndAlso e.DataRow("批次设置") = True Then \'复制行\'
For Each dc As DataCol In DataTables("库存商品批次汇总表").DataCols
If e.DataTable.DataCols.Contains(dc.Name) AndAlso e.DataRow.IsNull(dc.name) Then
messagebox.show("请先输入" & dc.name)
Return
End If
Next
If e.DataRow.IsNull("生产日期") = False Then
Dim dr As DataRow = DataTables("库存商品批次汇总表").Find("货品编号 = \'" & e.DataRow("货品编号") & "\' And 批次 = \'" & e.DataRow("批次") & "\'And 生产日期 = \'" & e.DataRow("生产日期") & "\'And 规格 = \'" & e.DataRow("规格") & "\'And 型号 = \'" & e.DataRow("型号") & "\'")
If dr IsNot Nothing
Tables("库存商品批次汇总表").Position = Tables("库存商品批次汇总表").FindRow(dr)
Else
Dim r As Row = Tables("库存商品批次汇总表").AddNew()
For Each dc As DataCol In DataTables("库存商品批次汇总表").DataCols
If e.DataTable.DataCols.Contains(dc.Name) Then
r(dc.name) = e.DataRow(dc.name)
End If
Next
End If
End If
End If
Select Case e.DataCol.Name
Case "货品编号","比率"
Dim dr As DataRow = DataTables("货品资料").Find("货品编号 = \'" & e.DataRow("货品编号") & "\'")
If dr IsNot Nothing AndAlso dr("比率填充为批次") = True
e.DataRow("批次") =e.DataRow("比率")
End If
End Select