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

 

 

If  e.DataRow("第一列") = 1 Then

Dim a as string = e.DataRow("第二列")  

Dim drs As List (of DataRow) = DataTables("表A").Select("第二列 like '" & a & "%'")

For Each dr As DataRow In drs

 

IF dr("第三列") = true then
dr("第四列").Visible = True

end if

Next

 

end if

此主题相关图片如下：捕获11.jpg

放在窗口中  鼠标放在某一行 该行 某一列 隐藏的话  则看不到 可以的

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

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

又调整了下代码，还是报错。帮看看，谢谢

 

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").Current("第四列").Visible = True    ' 设置第四列 当前行的 是否隐藏
Else
    Tables("表A").Current("第四列").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").Current("第四列").Visible = True    ' 设置第四列 当前行的 是否隐藏
Else
    Tables("表A").Current("第四列").Visible = False
End If
Next
End If

以表中的数据为例

 

找到第二列中包含a的行，如果这些行中的第三列有1个值为true，那就把这些行的第四列设置为可见，否则为隐藏。

 

 

找到第二列中包含r的行，如果这些行中的第三列有1个值为true，那就把这些行的第四列设置为可见，否则为隐藏。

 

找到第二列中包含b的行，如果这些行中的第三列有1个值为true，那就把这些行的第四列设置为隐藏，否则为隐藏。

不是隐藏内容，是隐藏列，因为我做的表的列有好几十个，太多了，想根据条件隐藏或显示。

 

 

实际应用的时候是建了个窗口，窗口绑定了这个表，根据这个表的内容 是否隐藏第四列。

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

 

 

 

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

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

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

我这个表估计有上百列。

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

代码放到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

实现了，谢谢

 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