以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教TopicLink 代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118400)
--  作者：happy2010
--  发布时间：2018/5/2 10:01:00
--  请教TopicLink 代码
使用TopicBar做了一个公告板，从公告通知中获取内容，如何在TopicLinkClick 中设置代码，根据TopicBar中的条目打开“详细内容”窗口？请老师指点

Dim Page As WinForm.TopicPage
Page = Forms("主窗口").Controls("TopicBar1").Pages("公告通知")
Dim Arys As List(Of String()) 
Arys = DataTables("公告通知").GetValues("编号|标题","发布状态 = true","编号 desc") \'列名用符号|分割
For Each Ary As String() In Arys
Dim lnk As WinForm.TopicLink = page.links.add (ary(0),ary(0),"通知.png") 
lnk.Text = lnk.Text & " - " & ary(1)
Next
--  作者：有点甜
--  发布时间：2018/5/2 10:11:00
--  

Dim ary() As String = e.link.Text.split("-")

Dim bh As String = ary(0).trim

Dim bt As String = ary(1).trim

\'使用find或者findrow，查找【公告通知】表，找到对应的内容即可。
--  作者：happy2010
--  发布时间：2018/5/2 10:51:00
--  
Dim ary() As String = e.link.Text.split("-")
Dim bh As String = ary(0).trim
With Tables("公告通知")
    Dim r As String
    r = .FindRow("[编号] = \'" & bh & "\'") \'从第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
        Forms("发布公告").Show
    End If
End With

用这段代码能够实现功能，但不知道逻辑是否正确
--  作者：有点甜
--  发布时间：2018/5/2 10:55:00
--  
代码正确，没问题。
--  作者：有点甜
--  发布时间：2018/5/2 10:56:00
--  
Dim ary() As String = e.link.Text.split("-")
Dim bh As String = ary(0).trim

 

也可以改成

 
Dim bh As String = e.link.name
--  作者：happy2010
--  发布时间：2018/5/2 11:15:00
--  
我是边学边做，很多基础知识不扎实，写的代码能够执行，但显得累赘，还是在摸索中，对很多代码，如何使用还是不理解，只能都看帮助找思路。
谢谢甜大大的帮助。