主题：窗口中交叉表操作错误！

代码不完善，修改一下：

If e.Col.Name <> "颜色" Then
    Dim dt As DataTable = DataTables("表A")
    Dim dr As DataRow = dt.Find("颜色 = '" & e.Row("颜色") & "' And 尺码 = '" & e.Col.name & "'")
    If dr IsNot Nothing Then
        If IsNumeric(e.text) Then
            dr("数量") = e.Text
        Else
            dr("数量") = Nothing
        End If
    End If
End If