主题：帮看看代码怎么修改（已解决）

看8楼

都说了列只能整个隐藏和显示。假如同时有下面情况，那么第四列到底是可见还是隐藏？ 第二列中包含a的行，如果这些行中的第三列有1个值为true 第二列中包含r的行，如果这些行中的第三列全部都不为true

 

 

 

可以进这个项目的 窗口看看，鼠标点在不同的行上，第四列 有时隐藏 有时显示，想达到这种效果

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

逻辑就不科学，你隐藏了，选择其他行，隐藏了的又显示出来了，之前隐藏的效果就没达到了

我这个表估计有上百列。

我编辑这几行的时候，把不需要的列隐藏，可能隐藏了20个列，   编辑其他几行的时候，可能又隐藏其他30个列，也可能开始隐藏的又冒出来几个了，这是折中的办法，只是为了 能面对少点的列，

那就只能鼠标点在不同的行上进行处理，代码放到currentchanged事件

代码放到currentchanged事件 后，效果果然比较接近了。但还存在点问题。

 

就是以下代码标颜色的部分可能存在点问题，如果按以下代码，用到以上例子，前三行的第三列全为TRUE，才能让第四列显示，期望的效果是，前三行中有1个为true ，第四列就显示。 以下条件代码如何修改下？

 

 

Dim a As String = Tables("表A").Current("第二列") 
If a.contains(".") Then   ' 如果 第二列包含" ."
Dim b As String = left(a,a.IndexOf("."))    '取第一个" ." 左侧的字符
Dim drs As List(Of DataRow) = DataTables("表A").Select("第二列 LIKE '" & b & "%' ")    ' 查找第二列包含 b的行,
For Each dr As DataRow In drs
If dr("第三列") = True Then      ' 如果查找到的行中,的第三列有1个值为true
    Tables("表A").Cols("第四列").Visible = True    ' 设置第四列 当前行的 是否隐藏
Else
    Tables("表A").Cols("第四列").Visible = False
End If
Next
Else
Dim b As String = a    ' 第二列不包含" ." 的话,b取值a
Dim drs1 As List(Of DataRow) = DataTables("表A").Select("第二列 LIKE '" & b & "%' ")  ' 查找第二列包含 b的行,
For Each dr1 As DataRow In drs1
   If dr1("第三列") = True Then     ' 如果查找到的行中,的第三列有1个值为true
   Tables("表A").Cols("第四列").Visible = True    ' 设置第四列 当前行的 是否隐藏
Else
    Tables("表A").Cols("第四列").Visible = False
End If
Next
End If

参考9楼的判断方法

实现了，谢谢

 If e.Table.Current IsNot Nothing Then

Dim a As String = Tables("表A").Current("第二列")

Dim b As String 
If a.contains(".") Then   ' 如果 第二列包含" ." 
b = left(a,a.IndexOf("."))    '取第一个" ." 左侧的字符

else

b = a

end if
If e.Table.Compute("count(第二列)","第二列 like '" & b & "%' and 第三列=true") > 0 Then
    Tables("表A").Cols("第四列").Visible = True    ' 设置第四列 当前行的 是否隐藏
Else
    Tables("表A").Cols("第四列").Visible = False
End If

End If