主题：代码冲突

兄弟们 帮我看看  表A是个流水账，表A的合格数量是绑定表A的第二列的

都点了一次重置列,没发现报错.  而且我也不是很理解你的问题.

 我看了一下，为什么要重置列？你随便修改一下表就重新计算了啊。

重置列是因为我经常改里面的东西 怕改了不重置列刷新不了里面的功能！

你说一下,你的需求是什么,要实现什么样的效果.

呵呵，看看帮助的流水账是怎么设计的：

 

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

 

有不区分产品的，也有区分产品的，区分产品的和你的类似，参考着写一下吧。

 

下面这个文件，我是复制粘贴帮助的代码，然后修改列名，其他一字未改：

 

 

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

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

那个是个结账的系统， 但是入账只有一次，也就是第一次，所以第一行以后的行都是默认的0，结账有很多次，

6楼的文件你下载看了吗？

谢谢兄弟 老问题解决了 但是新问题来一个，就是当我在附表编号列输入数据的时候 没有绑定到表B里面的数据，比如输入“1”理论上合格数量就应该自动导入绑定表B第二列的内容，就是“11”。

我只是复制帮助的代码而已。

 

第二个问题，你可以自己写的啊，只是从表B找出对应的行，然后取值而已：

 

 

Select Case e.DataCol.Name
    Case "附表编号列","合格数量","结账数量"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [附表编号列] = '" & mr("附表编号列") & "'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("未结数量") = mr("合格数量") - mr("结账数量")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [附表编号列] = '" & dr("附表编号列") & "'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("未结数量") = drs(i-1)("未结数量") + drs(i)("合格数量") - drs(i)("结账数量")
        Next
        If e.DataCol.Name = "附表编号列" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [附表编号列] = '" & e.OldValue & "'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[附表编号列] = '" & e.OldValue & "'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("未结数量") = dr("合格数量") - dr("结账数量")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [附表编号列] = '" & dr("附表编号列") & "'", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("未结数量") = drs(i-1)("未结数量") + drs(i)("合格数量") - drs(i)("结账数量")
                Next
            End If
        End If
End Select
Select Case e.DataCol.Name
    Case "未结数量"
        If e.NewValue = 0 Then
            e.DataRow("结账情况")="已结账"
        ElseIf e.DataRow("合格数量") =e.NewValue Then
            e.DataRow("结账情况")="未结账"
        ElseIf e.newValue < e.DataRow("合格数量")  Or (e.DataRow.IsNull("合格数量") And e.NewValue > 0) Then
            e.DataRow("结账情况")="结账中"
        End If
     Case "附表编号列"
        Dim dr As DataRow = DataTables("表B").find("第一列B  = '" & e.NewValue & "'")
        If dr IsNot Nothing Then
           e.DataRow("xxx") = dr("sss")
        End If
End Select