主题：代码错在哪

If e.DataCol.Name = "物料编码"  Then
Dim a1 As String = e.DataRow("物料编码")
Dim d1 As Integer = 1
Dim b1 As Integer
For b1 = e.DataRow("物料编码").length To 1
Dim e1 As String = left(a1,b1)      ' 取【物料编码】列的字符,字符长度 依次次减少
Dim dr As DataRow
dr = DataTables("表A").Find("物料编码 ='" & e1 & "'")   '查找 [物料编码] 列等于 [物料编码]列或其中部分字符的行
If dr IsNot Nothing Then
d1= dr("数量")*d1    '把找到的行的 【数量】列的数字 累乘
End If  

Next
e.DataRow("数量辅助列") = d1    '把累乘的数值赋值给 【数量辅助列】
End If

If e.DataCol.Name = "物料编码" Then
Dim d As Integer = 1
For b As Integer = 1 To e.DataRow("物料编码").length
Dim dr As DataRow = DataTables("表A").Find("物料编码 ='" & left(e.DataRow("物料编码"),b) & "'")  
d= dr("数量")*d  
Next
e.DataRow("数量辅助列") = d 

End If