Dim lst As New List(Of String)
For i As Integer = DataTables("窗口1_Table1").DataCols.Count - 1 To 6 Step - 2
Dim ss() As String = DataTables("窗口1_Table1").DataCols(i).Caption.Split("_")
Dim aa() As String = DataTables("窗口1_Table1").DataCols(i).Name.Split("_")
If i=6 Then
DataTables("窗口1_Table1").DataCols.Add(ss(0) & "_" & ss(1) & "_库存数量", GetType(Integer), "IsNull([期初库存],0) + IsNull([入库数量_" & aa(1) & "],0) - ISNULL([出库数量_" & aa(1) & "],0)")
Else
lst.Add(ss(0) & "_" & ss(1) & "_库存数量")
DataTables("窗口1_Table1").DataCols.Add(ss(0) & "_" & ss(1) & "_库存数量", GetType(Integer), "IsNull([期初库存],0) + IsNull([入库数量_" & aa(1) & "],0) - ISNULL([出库数量_" & aa(1) & "],0)")
End If
Tables("窗口1_Table1").Cols(ss(0) & "_" & ss(1) & "_库存数量").Move(i + 1)
Next
For i As Integer = 0 To lst.Count - 2
DataTables("窗口1_Table1").DataCols(lst(i)).Expression = DataTables("窗口1_Table1").DataCols(lst(i)).Expression.Replace("期初库存", lst(i + 1))
Next
加好友 
发短信
Post By：2025/1/9 11:11:00 [显示全部帖子]
