Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共7 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:关于隐藏行

1楼
wugang0131 发表于:2024/7/4 9:17:00
蓝老师,请教一个问题:如果表格有重复行,想设置一个按钮,按一下就隐藏多余的重复行,但不能删除,该如何写代码?谢谢
2楼
有点蓝 发表于:2024/7/4 9:52:00
参考:http://www.foxtable.com/webhelp/topics/1478.htm

http://www.foxtable.com/webhelp/topics/2712.htm
3楼
wugang0131 发表于:2024/7/4 14:34:00
蓝老师,意图是自己建一个窗口和按钮,在按钮click事件中写入代码。代码该如何写?请指教,谢谢
4楼
有点蓝 发表于:2024/7/4 14:40:00
看上面第2个帮助
5楼
wugang0131 发表于:2024/7/4 14:48:00
Dim i As Integer
For i = DataTables("人员名单").DataRows.Count - 1 To 0 Step - 1
    Dim dr As DataRow = DataTables("人员名单").DataRows(i)
    Dim dr2 As DataRow = DataTables("人员名单").Find("姓名='" & dr("姓名") & "'  and _Identify <> " & dr("_Identify"))
    If dr2 IsNot Nothing Then
        dr2.Visible = False
    End If
Next

蓝老师,我自己写了一段代码,但是“ dr2.Visible = False”这一段无法执行,该如何改写?谢谢
6楼
有点蓝 发表于:2024/7/4 14:58:00
没有这种用法,不要自己创造不存在的功能

参考2楼帮助
Tables("人员名单").RepeatFilter("姓名"1)
7楼
wugang0131 发表于:2024/7/4 15:05:00
收到,感谢蓝老师
共7 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.