If Tables("圆片陶瓷电容_独石电容料号表").Current("sh") Is Nothing Then

………

else

 e.cancel = True

End If

老师  如上代码想实现如果某一行的sh列不为空则可以进行相应编辑  否则该行不能编辑

但是  这样写所有行均都不能编辑  如何实现我们期望的效果

For Each f As WinForm.Control In e.Form.Controls
    If Typeof f Is WinForm.DropBox Then \'判断控件是否是下拉窗口框
        Dim u As WinForm.DropBox = f \'使用特定类型的变量引用控件
        u.Value = Nothing
    End If
Next

还有  老师  我想清空DropBox的值  如上代码为何有如下报错  该如何解决