主题：备注是否可以关联到另外一个表

Dim sm As Double
sm = Tables("出货明细").Compute("Sum(出货数量)", "公司 = '" & CurrentTable.current("公司") & "'")

CurrentTable.current("出货明细") = Date.Today() & " " & CurrentTable.current("产品") & " " & sm

注意: 出货明细表的 出货数量列 改为Double类型

2楼的放在命令窗口测试用， 录入数据时放在 出货明细 表的 datacolchanged事件中:
Select Case e.DataCol.Name
    Case "产品","公司","出货数量"
        If e.DataRow.IsNull("产品") = False And e.DataRow.IsNull("公司") = False And e.DataRow.IsNull("出货数量") = False Then
            Dim dr As DataRow   '
            dr = DataTables("表A").Find("公司 = '" & e.DataRow("公司") & "'")

                Dim sm As Double
                sm = Tables("出货明细").Compute("Sum(出货数量)", "公司 = '" & e.DataRow("公司") & "'")
                dr("出货明细")= Date.today() & " " & e.DataRow("产品") & " " & sm

        End If
End Select

估计少有人懂你的意思了， 用图说明吧，一步一步说明一下具体步骤。

你的意思是只有表A ， 没有“出货明细”表吗？

或者说在表A的出货明细列输入

2010-9-14 A1 3000
2010-9-15 A1 2000

后，数量_ 出货数这一列要自动累加（3000+2000）＝ 5000 ，而与“出货明细”表无关，是这样吗？

要是这样也不难做到的吧。

我想还是你没理解他的意思， 因为他说明细表是另一份工作（可能是另一个人单独录入，而且不是一个系统，否则用外部数据源就好了，他也不必在 表A 的出货明细列中输入任何东东了）。

即使是“在明细表中分成N行数据”，只要备注型列：出货明细 中输入有规则，也是没有问题的。。。

我被他11楼的说明搞晕了，根据他再前面的叙述，还是blackzhu贤弟理解对了。。。但是出货明细表原有的数据行要保留吗，如果只是添加行就简单些了。

表A_DataColChanged:::::将备注型列：出货明细 中的内容添加到 出货明细表中：：：：：：：

出货明细列的录入格式必须是：

2010-09-14 A1 2000

2010-09-15 A1 3000

2010-09-16 A1 5000

.......................

.......................

Dim s As String = Tables("表A").current("出货明细")
Dim cs As String
For i As Integer = 0 To s.split(chr(10)).length - 1
    Dim r As Row = Tables("出货明细").AddNew()
    r("公司") = Tables("表A").current("公司")
    r("出货时间") =  s.split(chr(10))(i).split(" ")(0)
    r("产品") =  s.split(chr(10))(i).split(" ")(1)
    r("出货数量") =  s.split(chr(10))(i).split(" ")(2)
Next

条件你自己加上吧。。。。。。。

另外： 嗨～  用这个vbCrLf晕菜死了。 替换上面的chr（10） 绝对不行！！！ 双行？？？

 17楼的代码可以实现你的要求，你可以放在命令窗口测试一下。另外：

C版说得对，别自寻烦恼了，本来就应该在出货明细表中录入明细数据的。

不过，如果像我这样玩狐表的话，你可以尽情的自寻烦恼.....   呵呵

贴出你的代码看看。

DataTables("出货明细").DeleteFor("公司 = '" & e.DataRow("公司") & "'")  ‘这就可以时时更新了

Dim s As String = Tables("表A").current("出货明细")
Dim cs As String
For i As Integer = 0 To s.split(chr(10)).length - 1
    Dim r As Row = Tables("出货明细").AddNew()
    r("公司") = Tables("表A").current("公司")
    r("出货时间") =  s.split(chr(10))(i).split(" ")(0)      ’这里去掉的产品列的内容

    r("出货数量") =  s.split(chr(10))(i).split(" ")(1)
Next

你最好附上和你代码相关的示例，不然我等还要建个文件测试，也不知道有些什么列名称都属于哪个表的。。。。

另外也应说明执行你32楼代码都在哪个表的什么事件中，要达到什么目的，呵呵，俺也笨，没法下“盲棋”。。。