老师：我做了出库明细表及站点安装明细，用意是考察出库的物料是比对出库物料与安装物料之间的差异，另外做了一张施工结余物料，采用了数据填充代码，发现，多次出库的物料，代码有的能填充，有的不能填充，请教老师应该如何解决？

代码如下：

’数据填充

Dim A As New Filler

DataTables("施工结余物料").DataRows.Clear() \'清除原有数据

A.SourceTable = DataTables("出库明细表")

A.SourceCols = "工单编号,站点名称,领料人员,物料编码,物料简称,单位,出库日期,出库数量"

A.DataTable = DataTables("施工结余物料")

A.DataCols = "工单编号,站点名称,领料人员,物料编码,物料简称,单位,出库日期,出库数量"

a.ExcludeExistValue = True

a.ExcludeNullValue = True

A.Fill()

Dim Cols1() As String = {"实际安装日期","新装数量"}\'指定数据来源列

Dim Cols2() As String = {"实际安装日期","新装数量"}\'指定数据接收列

For Each dr1 As DataRow In DataTables("站点安装明细").Select("")

    Dim dr2 As DataRow = DataTables("施工结余物料").Find("站点名称 = \'" & dr1("站点名称") & "\' and 工单编号 = \'" & dr1("工单编号") & "\'and 物料简称 = \'" & dr1("物料简称") &"\'")

    If dr2 Is Nothing Then

        dr2 = DataTables("施工结余物料").AddNew()

    End If

    For i As Integer = 0 To Cols1.Length -1

        dr2(Cols2(i)) = dr1(Cols1(i))

    Next

Next

‘同表计算

Dim  exp As  String = "[出库数量] - [新装数量] "

 Dim drs As List(of  DataRow) = DataTables("施工结余物料").Select("")

 For Each  dr As  DataRow In drs

     dr("结余物料") = Eval(exp,dr)

我上传的图片怎么看不到

老师：我试过了，去掉这个代码也不行。

我发现，凡时同一天重复出库的物料，数量一样的，都没有填充，不是在同一天出库的重复物料是可以填充的，这是为什么？

还有，我现在的代码，并不能得到我想要的结果，还有什么更好的解决办法吗？

在实际工作中：有的站点出库的物料，并非一定会安装在这个站点，比如：A站点出库了：光跳线物料，没用完，施工人员直接就安装在B站点上，相应地B站点就没有出库这种物料，

我想要的结果是：A站点出库的物料具体安装在了哪个站点上，还结余了哪些物料。而B站点所使用的物料，具体来源于哪个站点出库的物料。

想请教老师，用什么样的代码能实现这个功能。