主题：审核后不能编辑的问题

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

………

else

 e.cancel = True

End If

 

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

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

用 if e.row("sh") > "" then

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的值  如上代码为何有如下报错  该如何解决

此主题相关图片如下：截图20150814192338.png

http://www.foxtable.com/help/index.html?n=1516.htm

写成这个 WinForm.DropDownBox

谢谢老师  这两个问题都弄好了