以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  帮看看代码怎么修改（已解决）  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=164358)
--  作者：wangglby
--  发布时间：2021/5/6 20:58:00
--  帮看看代码怎么修改（已解决）

 

 

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
按此在新窗口浏览图片
[此贴子已经被作者于2021/5/7 14:19:14编辑过]
--  作者：有点蓝
--  发布时间：2021/5/6 21:03:00
--  
一个列只能整体隐藏和显示，无法显示一部分，隐藏一部分
--  作者：wangglby
--  发布时间：2021/5/6 21:06:00
--  
放在窗口中  鼠标放在某一行 该行 某一列 隐藏的话  则看不到 可以的
[此贴子已经被作者于2021/5/6 21:06:32编辑过]
--  作者：有点蓝
--  发布时间：2021/5/6 21:38:00
--  
没看懂到底想表达什么
--  作者：wangglby
--  发布时间：2021/5/7 10:44:00
--  

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目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

[此贴子已经被作者于2021/5/7 10:44:34编辑过]
--  作者：有点蓝
--  发布时间：2021/5/7 10:46:00
--  
首先这种代码不应该放到表事件处理，其次我还是没搞懂到底要做什么功能
--  作者：wangglby
--  发布时间：2021/5/7 10:55:00
--  

以表中的数据为例

 

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

 

 

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

 

找到第二列中包含b的行，如果这些行中的第三列有1个值为true，那就把这些行的第四列设置为隐藏，否则为隐藏。
--  作者：有点蓝
--  发布时间：2021/5/7 11:05:00
--  
都说了列只能整个隐藏和显示。假如同时有下面情况，那么第四列到底是可见还是隐藏？

第二列中包含a的行，如果这些行中的第三列有1个值为true
第二列中包含r的行，如果这些行中的第三列全部都不为true
--  作者：有点蓝
--  发布时间：2021/5/7 11:13:00
--  
如果是指隐藏第四列单元格里面输入的内容，到drawcell事件处理，比如

If e.Col.Name = "第四列" Then
    If e.Row("第二列") Like "*a*"
        If e.Table.Compute("count(第二列)","第二列 like \'%a%\' and 第三列=true") > 0 Then
            e.Text = ""
        End If
    End If
End  If
--  作者：wangglby
--  发布时间：2021/5/7 11:20:00
--  

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

 

 

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