主题：[求助]表A自动复制到表B问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

http://www.foxtable.com/help/topics/2490.htm

 

A列，是唯一标识，比如是编号之类的，其余列你怎么重复都可以。

类似

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=76705&skin=0

 

汗，就是6楼的例子啊

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自动复制.table

参考

 

http://www.foxtable.com/help/topics/1454.htm

 

Select Case e.DataCol.name
    Case "客户","商品","C","D","E","数量"
        If e.DataRow.IsNull("客户") = False AndAlso e.DataRow.IsNull("商品") = False Then
           
            Dim dr As DataRow = DataTables("表B").Find("客户 = '" & e.DataRow("客户") & "' and 商品 = '" & e.DataRow("商品") & "'")
            If dr Is Nothing Then
                dr = DataTables("表B").AddNew
                dr("客户") = e.DataRow("客户")
                dr("商品") = e.DataRow("商品")
            End If
            dr("e") = e.DataRow("e")
            dr("C") = e.DataRow("C")
            dr("D") = e.DataRow("D")
            dr("数量合计") = e.DataTable.Compute("sum(数量)","客户 = '" & e.DataRow("客户") & "' and 商品 = '" & e.DataRow("商品") & "'")
           
        End If
End Select

看12楼代码。