- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何让一个表内的多个字段不能编辑 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117956)
-- 发布时间：2018/4/21 17:50:00
-- [求助]如何让一个表内的多个字段不能编辑
在AfterOpenProject事件中写几句话，让一个表内的多个字段不能编辑
Dim s As String() = {"处理方式","中文字段名称","字段说明"}
For Each dc
As DataCol In DataTables("字段名称").DataCols
If dc.name not In (\'中文字段名称\',\'字段说明\',\'处理方式\') Then
\'If
dc.name not In ("中文字段名称","字段说明","处理方式") Then
\'If
dc.name not In s Then
DataTables("字段名称").DataCols(dc.name).AllowEdit = False
End If
Next
此主题相关图片如下：无标题.png
我用了3个IF语句，都是显示这句话应为语句结束，
请问老师该怎样改写程序，谢谢
-- 发布时间：2018/4/21 19:00:00
--
Dim s As String() = {"处理方式","中文字段名称","字段说明"}
For Each dc As DataCol In DataTables("字段名称").DataCols
dc.AllowEdit = s.IndexOf(dc.name) > -1
Next
-- 发布时间：2018/4/21 20:23:00
--
非常感谢，
s 应该定义成字符串才能用 indexof ，改成下边的程序就实现要求的功能了
Dim s As String = "处理方式|中文字段名称|字段说明"
For Each dc As DataCol In DataTables("字段名称").DataCols
dc.AllowEdit = s.IndexOf(dc.name) > -1
Next
-- 发布时间：2018/4/21 23:23:00
--
确实2楼的代码我大意了，但3楼的代码不严谨，用下面这个吧。
Dim s As String() = {"处理方式","中文字段名称","字段说明"}
For Each dc As DataCol In DataTables("字段名称").DataCols
dc.AllowEdit = array.Indexof(s,dc.name)) > -1
Next