主题：小疑问 图片远程存储与调用

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.Name

    Case "物料编码"

        If  dr.IsNull("物料编码") = False Then

            Dim dr1,dr2 As DataRow

            dr1 = DataTables("物料清单").Find("[物料编码] = '" & e.NewValue & "'")

            If dr1 IsNot Nothing Then

                dr("物料型号") = dr1("物料型号")

                dr("物料名称") = dr1("物料名称")

                

                dr("图片")  = dr("图片")

            End If

        End If

End Select