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

我的意思是从“出货明细列”输入数据，自动会在“出货明细表”出现所有数据，这样能做备案作用，还方便查找

最好放弃这种想法，否则是自寻烦脑。

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

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

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

我测试过了,MR-725老大的可以的,你试一下就可以了.

C版和mr-725说的对,你的思路要改一下.

MR-725已经成大师,所以无所谓.

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

谢谢，这个程序挺好的，但是有个缺点就是：如果我在“出货明细”列中进行改正的数据的时侯，在“出货明细”表一直，这样就照成多出货

此主题相关图片如下：333.jpg

前面三行是我第一次输入的，后面我把700改成900，“出货明细表”再出现三行了，这就多出了，正确应该是在“出货明细表”中直接把700改成900就行了

贴出你的代码看看。

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

谢谢，这个程序挺好的，但是有个缺点就是：如果我在“出货明细”列中进行改正的数据的时侯，在“出货明细”表一直，这样就照成多出货

此主题相关图片如下：333.jpg

前面三行是我第一次输入的，后面我把700改成900，“出货明细表”再出现三行了，这就多出了，正确应该是在“出货明细表”中直接把700改成900就行了