Dim 填充数据 As New Filler
填充数据.SourceTable = DataTables("初始库存") \'指定数据来源
填充数据.SourceCols = "规格,长度,件数,吨数" \'指定数据来源列
填充数据.DataTable = DataTables("现货库存") \'指定数据接收表
填充数据.DataCols = "规格,长度,件数,可供数量," \'指定数据接收列
填充数据.ExcludeExistValue=True \'逻辑型,设为True,排除接收表中已经存在的内容
填充数据.Fill() \'填充数据

吨数  可供数量字段不同名称怎样修改代码填充数据

Dim Vals As List(of String())
Vals = DataTables("初始库存物资成本").GetValues("仓库|品名|材质|规格|长度|件数|吨数|车船号|产地|单位|计量方式|机构|部门名称|入库日期|货位号")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("现货资源明细表").AddNew()
    dr("仓库名称") = Vals(i)(0)
    dr("品名") = Vals(i)(1)
    dr("材质") = Vals(i)(2)
    dr("规格") = Vals(i)(3)
    dr("长度") = Vals(i)(4)
    dr("库存数量") = Vals(i)(5)
    dr("库存重量") = Vals(i)(6)
    dr("车皮号") = Vals(i)(7)
    dr("产地") = Vals(i)(8)
    dr("单位") = Vals(i)(9)
    dr("入库计量方式") = Vals(i)(10)
    dr("机构") = Vals(i)(11)
    dr("部门") = Vals(i)(12)
    dr("进货日期") = Vals(i)(13)
    dr("货位号") = Vals(i)(14)
    dr("品名") = Vals(i)(15)
    dr("品名") = Vals(i)(16)
    dr("品名") = Vals(i)(17)
   
Next

.NET Framework 版本：4.0.30319.18063
Foxtable 版本：2019.12.17.18
错误所在事件：窗口,初始库存物资成本,Button6,Click
详细错误信息：
Index was outside the bounds of the array.

这是什么意思？