以文本方式查看主题

-  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