PrepareEdit 事件
If e.Col.Name = "数量" Then
If e.Row("种类") = "水果" Then e.Cancel = True
End If
If e.Col.Name = "件数" Then
If e.Row("种类") <> "水果" Then e.Cancel = True