Dim dep As List(Of String)
                  dep = DataTables("depList").GetValues("depName"," organName = \'_UserOrgan\'")
                  If dep.Contains(r("离退休部门")) = False Then
                        r.DataRow.SetError("离退休部门", "请先录入该部门")
                        r.DataRow("标记")=1
                  End If

老师，您看我那个红色部分，条件是不是写的不对啊？

dep = DataTables("depList").GetValues("depName"," organName = \'" & _UserOrgan & "\'")

http://www.foxtable.com/webhelp/scr/1284.htm

http://www.foxtable.com/webhelp/scr/2919.htm

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

老师，那个红色框框那里可以标记一个五角星么，表示必填的？或者有别的方式么？

用一个label放在右边即可。

老师，为啥我有的时候并没有设置控件不可用，它们就点上不管用了，鼠标进不去

 这是啥情况呀：

是项目里面，我就把星号那个label加上，然后点击关闭，就出现这个问题了？一般啥情况下会把菜单关闭呀？

那个是更改窗口，它绑定到表，当表位空的情况下，这个更改窗口打开后就是点控件都不管用，只有点鼠标才管用

如果表没有数据，打开窗口后，不能填写数据都是正常的，因为你绑定了表列；

【报错】的问题，你要具体做个实例才知道怎么回事。