Dim ary() As String = e.link.Text.split("-")
Dim bh As String = ary(0).trim
Dim bt As String = ary(1).trim
'使用find或者findrow,查找【公告通知】表,找到对应的内容即可。