主题：引用父表内容

表达式列，不触发datacolchanged事件

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

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

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

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

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

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、不会做上传具体实例吧。