Select Case e.DataCol.name
Case "零件名称","规格","材质"
Dim flt As String
Dim dr As DataRow = e.DataRow
Dim v1 as String() = {"品名","规格","材质"}
Dim v2 as String() = {"零件名称","规格","材质"}
For n1 As Integer = 0 to v2.length-1
if dr.Isnull(s1) =False Then
flt+ = " and " & v1(n1) & " = '" & dr(v2(n1)) & "'"
End if
next
If fllt = Nothing Then
dr("仓库_库位代码") = Nothing
Else
Dim pr As DataRow = DataTables("库存总表").Find(flt.substring(5))
If pr isnot nothing Then dr("仓库_库位代码") = pr("储位")
End If
End Select
加好友 
发短信
Post By：2013/5/10 17:36:00 [显示全部帖子]
