主题：[求助]这段时间提问这遇到的问题,不知道哪里出的

Select Case e.DataCol.Name

    Case "产品编号"

        If e.DataRow.IsNull("产品编号") Then

            e.DataRow("色号") = Nothing

            e.DataRow("等级") = Nothing

            e.DataRow("出库") = Nothing

        Else

            Dim dr As DataRow

            dr = DataTables("记帐本").Find("产品编号 = " & "'" & e.DataRow("产品编号") & "'" )

            If dr IsNot Nothing '如果找到, 则设置各列内容

                e.DataRow("色号")= dr("色号")

                e.DataRow("等级")= dr("等级")

                

            End If

        End If

End Select