主题：if 语句总提示“应为语句结束”

各位老师，下面的语句哪里有问题，确定时总提示“应为语句结束”

If _UserName <> "开发者" Then
        For Each dr1 As DataRow In DataTables("授权表").Select("部门 = '" & _UserGroup & "' And 角色 In ('" & _UserRole & "')")
            If dr1.IsNull("可查看列") Then
                Tables(dr1("表名")).Visible = False
                Tables(dr1("表名")).AllowEdit = False
            ElseIf dr1.IsNull("可编辑列") Then
                Tables(dr1("表名")).AllowEdit = False
            Else
                For Each c As Col In dr1("表名").Cols
                    If c.name In (dr1("可查看列")) Then
                        c.Visible = True
                    ElseIf c.name In dr1(("可编辑列")) Then
                        c.AllowEdit = True
                    End If
                Next
            End If
        Next
 End If

 

此主题相关图片如下：qq截图20120822230601.jpg

if c.name in dr1（"可查看列"） then

 

去掉 （）试一下

去掉外面的（）

ElseIf c.name In dr1(("可编辑列")) Then
这句好像也应该为：

 

ElseIf c.name In dr1("可编辑列") Then

谢谢各位的回复，还是不行，可能不能用"in"做判断，后来只好把代码改成下面，麻烦了一些，但是可以了，跟大家分享一下，不知道狐爸有什么好办法？

If _UserName <> "开发者" Then
        For Each dr1 As DataRow In DataTables("授权表").Select("部门 = '" & _UserGroup & "' And 角色 In ('" & _UserRole & "')")
            If dr1.IsNull("可查看列") Then
                Tables(dr1("表名")).Visible = False
                Tables(dr1("表名")).AllowEdit = False
            ElseIf dr1.IsNull("可编辑列") Then
                Tables(dr1("表名")).AllowEdit = False
            Else
                For Each tb As Table In Tables
                    If tb.name = dr1("表名") Then
                        For Each c As Col In tb.Cols
                            Dim a As String = c.name
                            If dr1("可查看列").contains(a) Then
                                c.Visible = True
                            ElseIf dr1("可编辑列").contains(a) Then
                                c.AllowEdit = True
                            Else
                                c.Visible = False
                                c.AllowEdit = False
                            End If
                        Next
                    End If
                Next
            End If
        Next
    End If

if c.name in dr1（"可查看列"） then   行吗?没有试过  没有这样的写法的吧.

For Each c As Col In dr1("表名").Cols
dr是datarow,表示行，没有cols属性的吧

 

for each ...in..

 

next

这整个是一个语句，in不是一个语句，你搞错了

现在才明白你的意思

不是 in 语句不能用，而是你在用的时候，语法错误了

 

你的dr1("表名")中应该是一个字符串吧,存放各个col名

 

in 的用法是:

if  col.name in ('xxx1','xxx2','xxx3'....)

 

所以如果你要用 in 的话,应该对dr1("表名")进行一下转换,转换成  ('xxx1','xxx2','xxx3'....)才可以

 

因此,直接用string的contains方便一点