主题：遍历取值问题

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.7.29.1
错误所在事件：表，当天出库， DataColChanged
详细错误信息：
调用的目标发生了异常。
从类型“String()”到类型“String”的转换无效。
代码：

DataColChanged

Case "数量"
If e.DataRow("数量") IsNot Nothing Then
         Dim r As DataRow = e.DataRow
        Dim d1 As DataRow = DataTables("商品库存明细").Find("货品编号 = '" & r("商品编号") & "'")
        If d1 IsNot Nothing Then
           If d1("实时库存") > r("数量") Then
r("库位") = d1("货格")
Else
Dim count As Integer = 0
   
    Dim drs As List(Of DataRow) = DataTables("商品库存明细").Select(" 货品编号 = '" & r("商品编号") & "'", "_Identify")
   
    For i As Integer = 0 To drs.count - 1
       
        Dim dr As DataRow = drs(i)
        count += dr("实时库存")
        Dim sy As Integer = count - r("数量")
        If sy >= 0 Then
r("库位") = dr("货格").split(",")
        End If
Next
End If
End If
End If
熬了一夜，头昏脑胀，看不出问题了，请各位帮帮忙，不胜感激

 

 

谢谢，那为什么还是没有取得这个数组中所有的货格呢，依然是单一货格满足出货量才有库位显示

 

还是不行，DataTables("商品库存明细").Select("货品编号 = '" & r("商品编号") & "'", "_Identify") 不用主键 用入库日期怎样写代码 （先进先出）