专家坐堂-引用父表内容Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  引用父表内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119089)

--  作者：liuandwang
--  发布时间：2018/5/17 14:13:00
--  引用父表内容
各位老师：

我建了一个订单主表和订单明细表，通过订单编号进行关联，
订单明细表中单价是依据“产品名称”引用产品信息表“单价”，订单明细表与产品信息表未建立关联，
订单明细表中“生产编号”是依据订单主表中的“接单日期”自动生成，
现在我是通过订单明细表中“产品名称”和“接单日期”分别设置表达式“parent（订单）.产品名称”，“parent（订单）.接单日期”直接引用，
再通过订单明细表datecolchanged表事件设置代码：（订单明细表中"单价"为0，也未自动生成生产编号）

通过测试，我认为代码没有错误，也不知道错在哪了，各位大大们帮忙给看看，应该怎么改。谢谢！！！

If e.DataCol.Name = "接单日期" Then
If e.DataRow.IsNull("接单日期") Then
e.DataRow("生产编号") = Nothing
Else
Dim d As Date = e.DataRow("接单日期")
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim Days As Integer = Date.DaysInMonth(y,m)
Dim fd As Date = New Date(y,m,1) \'获得该月的第一天
Dim ld As Date = New Date(y,m,Days) \'获得该月的最后一天
Dim bh As String = Format(d,"MM") \'生成编号的前6位,4位年,2位月.
If e.DataRow("生产编号").StartsWith(bh) = False \'如果编号的前6位不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(生产编号)","接单日期 >= #" & fd & "# And 接单日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该月的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(2,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("生产编号") = bh & Format(idx,"000")
End If
End If
End If

If e.DataCol.Name = "产品名称" Then \'发生变化的是产品编号吗?
\'在产品表找出该产品
Dim dz As DataRow
dz = DataTables("产品信息").Find("产品名称 = \'" & e.DataRow("产品名称") & "\'" )
If dz IsNot Nothing \'如果找到, 则设置各列内容
    e.DataRow("单价")= dz("单价")

--  作者：有点甜
--  发布时间：2018/5/17 14:20:00
--

表达式列，不触发datacolchanged事件

http://www.foxtable.com/webhelp/scr/2381.htm

订单明细的单价列、编号列，不需要单独处理，单价、编号，应该在订单表处理的。

--  作者：liuandwang
--  发布时间：2018/5/17 14:38:00
--
在主表中已设置了订单编号，一个订单编号对应多个生产编号，而每个生产编号中的产品名称和单价都不一样，
甜大大帮忙给改一下

--  作者：有点甜
--  发布时间：2018/5/17 14:52:00
--

1、既然产品名称不同，那就不能用表达式列，请改成数据列；

2、修改【产品名称】列的时候，引用单价、生成编号，代码如你1楼那里差不多，自行改写。

--  作者：liuandwang
--  发布时间：2018/5/17 16:02:00
--
我修改了设置，产品名称和接单日期主表和关联表一致，看帮助文件有点迷糊，在关联表中对生产编号和单价进行赋值用哪种方法？麻烦甜大大了

--  作者：有点甜
--  发布时间：2018/5/17 16:08:00
--

1、产品名称改成【数据列】了没有？不能用表达式列。你不是说产品名称都不一样么？

2、获取单价，就是你1楼的代码；生成编号，类似代码

If e.DataCol.Name = "产品名称" Then
    If e.DataRow.IsNull("产品名称") Then
        e.DataRow("生产编号") = Nothing
    Else
        Dim d As Date = e.DataRow("接单日期")
        Dim y As Integer = d.Year
        Dim m As Integer = d.Month
        Dim Days As Integer = Date.DaysInMonth(y,m)
        Dim fd As Date = New Date(y,m,1) \'获得该月的第一天
        Dim ld As Date = New Date(y,m,Days) \'获得该月的最后一天
        Dim bh As String = Format(d,"MM") \'生成编号的前6位,4位年,2位月.
        If e.DataRow("生产编号").StartsWith(bh) = False \'如果编号的前6位不符
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(生产编号)","接单日期 >= #" & fd & "# And 接单日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该月的最大编号
            If max > "" Then \'如果存在最大编号
                idx = CInt(max.Substring(2,3)) + 1 \'获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 \'否则顺序号等于1
            End If
            e.DataRow("生产编号") = bh & Format(idx,"000")
        End If
    End If
End If

--  作者：liuandwang
--  发布时间：2018/5/17 16:38:00
--
我的想法是关联表产品名称直接引用主表的产品名称，不用在关联表中重复输入产品名称和接单日期，
开始是使用表达式直接引用，这个是错误的，
现在的问题是怎样引用到关联表后让关联表代码识别自动产生单价和生产编号，而不是单价列出现0

--  作者：有点甜
--  发布时间：2018/5/17 17:04:00
--

1、如果产品名称、接单日期是和主表一样的，可以用表达式列；否则，只能用数据列；

2、如果你用表达式列。生成编号、引用单价的代码，写成，如

If e.DataCol.Name = "订单编号" Then
    If e.DataRow.IsNull("订单编号") Then
        e.DataRow("生产编号") = Nothing
    Else
        Dim d As Date = e.DataRow("接单日期")
        Dim y As Integer = d.Year
        Dim m As Integer = d.Month
        Dim Days As Integer = Date.DaysInMonth(y,m)
        Dim fd As Date = New Date(y,m,1) \'获得该月的第一天
        Dim ld As Date = New Date(y,m,Days) \'获得该月的最后一天
        Dim bh As String = Format(d,"MM") \'生成编号的前6位,4位年,2位月.
        If e.DataRow("生产编号").StartsWith(bh) = False \'如果编号的前6位不符
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(生产编号)","接单日期 >= #" & fd & "# And 接单日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该月的最大编号
            If max > "" Then \'如果存在最大编号
                idx = CInt(max.Substring(2,3)) + 1 \'获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 \'否则顺序号等于1
            End If
            e.DataRow("生产编号") = bh & Format(idx,"000")
        End If
    End If
End If

3、不会做上传具体实例吧。