DataColChanged事件

Select Case e.DataCol.Name
    Case "商品名","部品ID"
        Dim dr15 As DataRow = e.DataRow
        Dim pr15 As DataRow
        Dim filter As String
        filter = "商品名 = \'" & dr15("商品名") & "\' and 部品ID = \'" & dr15("部品ID") & "\'"
        pr15 = DataTables("组装期初库存").Find(filter)
        If pr15 IsNot Nothing
            dr15("期初在库台数") = pr15("期初在库台数2017年_8月")
        Else
            dr15("期初在库台数") = Nothing
        End If
End Select
If e.DataCol.Name Like "日*" Then \'如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
        e.DataRow("入库总汇总") = Nothing \'那么清空此行单价列的内容
    Else
        Dim sum As Double = 0
        For Each dc As DataCol In e.DataTable.DataCols
            If dc.name Like "日*" Then
                sum += e.DataRow(dc.name)
            End If
        Next
        e.DataRow("入库总汇总") = sum
    End If
End If

1、列名改成 日1、日2、日3 这样的；

2、改代码

        If pr15 IsNot Nothing
            Dim sum As Double = dr15("实时在库台数")
            For i As Integer = 1 To 31
                dr15("日" & i) = sum - pr15("日" & i)
                sum = dr15("日" & i)
            Next
        Else