Dim dr As DataRow dr = DataTables("公告").Find("[通知] <> ''" , "[_SortKey] Desc") '从第一行开始查找 If dr IsNot Nothing Then '如果找到的话 e.Form.Controls("lb公告内容").text =" 通知:" & dr("通知") e.Form.Controls("lb公告时间").text = "日期 : " & Format( dr("发布日期"),"yyyy年MM月dd日") e.Form.Controls("lb公告附件").value = dr("附件") end if