主题：请教文件中列与列，表与表相互计算问题

最好将:入，出，结存改成数具列
在:datacolchanged中设代码如一点吧:

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "物品代码"
       dr("入库数") =datatables("工具出库").Compute("Sum(数量)", "[物品代码] = '" & dr("物品代码") & "'")
       dr("出库数") =datatables("工具入库").Compute("Sum(数量)", "[物品代码] = '" & dr("物品代码") & "'")
    case "入库数","出库数"
       dr(结存) = dr("初期数") + dr("入库数") - dr("出库数")
end  select

然后在工具入库表和出库表的DATACOLCHANGED中设一代码:
Dim dr As DataRow
    dr = DataTables("工具库存").Find("[物品代码] = '" & e.DataRow("物品代码") & "'")
    If dr IsNot Nothing Then 
        DataTables("工具库存").DataCols("物品代码").RaiseDataColChanged(dr)
    End If

试试看看

我只是不喜欢用表达式而已,呵呵
如是关联表,CZY版主的代码肯定好啦.