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

例子在这里：http://www.datasoft.com.cn/viewFile.asp?BoardID=2&ID=8681

 操作步骤：删除、按空格键，再按回车键后，错误提示：：：： 

代码不完善，修改一下：

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