主题：如何设置表达式公式

那上传foxtable实例。

DataColChanged事件

Select Case e.DataCol.name
    Case "部品ID", "工程", "略"
        Dim i As Integer = Tables("表A").FindRow(e.DataRow)
        If i > -1 Then
            Dim idx As Integer = i
            Do While idx > 0
                If Tables("表A").Rows(idx).IsNull("部品ID") Then
                    idx -= 1
                Else
                    Exit Do
                End If
            Loop
            Dim str As String = ""
            Dim r As Row = Tables("表A").Rows(idx)
            str = r("部品ID")
            idx = i
            Do While idx > 0
                If Tables("表A").Rows(idx).IsNull("工程") Then
                    idx -= 1
                Else
                    Exit Do
                End If
            Loop
            r = Tables("表A").Rows(idx)
            str &= r("工程")
            str &= e.DataRow("略")
            e.DataRow("部品工程项目") = str
        End If
End Select

修改，或者重置 部品ID, 工程, 略 列

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

Select Case e.DataCol.name
    Case "部品ID", "工程", "略"
        Dim i As Integer = Tables("表A").FindRow(e.DataRow)
        If i > -1 Then
            Dim idx As Integer = i
            Do While idx > 0
                If Tables("表A").Rows(idx).IsNull("部品ID") Then
                    idx -= 1
                Else
                    Exit Do
                End If
            Loop
            Dim str As String = ""
            Dim r As Row = Tables("表A").Rows(idx)
            str = r("部品ID")
            idx = i
            Do While idx > 0
                If Tables("表A").Rows(idx).IsNull("工程") Then
                    idx -= 1
                Else
                    Exit Do
                End If
            Loop
            r = Tables("表A").Rows(idx)
            str &= r("工程")
            str &= e.DataRow("略")
            e.DataRow("部品工程项目") = str
            If e.DataRow("略") = "装" Then
                idx = i
                Dim sum As Double = 0
                Do While idx < Tables("表A").Rows.count
                    r = Tables("表A").Rows(idx)
                    If idx = i OrElse r.IsNull("略")  Then
                        Dim d As Date = r("平均每个时间")
                        sum += d.Hour * 3600 + d.Minute * 60 + d.Second
                        idx += 1
                    Else
                        Exit Do
                    End If
                Loop

                e.DataRow("合并归类时间") = new Date(1, 1, 1, sum \ 3600, (sum Mod 3600) \ 60, sum Mod 60)
            End If
        End If
End Select