专家坐堂-[求助]怎么判断当前表是否有记录Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim pageA As String = e.GetValues("page") \'获取上一页面uid

Dim shier As DataRow = DataTables("专业分类").sq lFind("id=" & pageA) \'通过id获取标题

Dim liu1A As String = "<br/><div>您好&emsp;" & liu & "</div>"

Dim liu2A As String = "<br/>您没有当前课程的访问权限,请联系企业负责人!"

Dim liu3A As String = liu1A + liu2A

Dim pageB As String = shier("id")

如何查询专业分类表是否存在 pageA ，如果专业分类表不存在或者为空就执行下面这语句

If pageB= "" Then \'如果page等于空

wb.Title = "拒绝访问" \'添加页面标题

With wb.AddMsgPage("","msgpage","拒绝访问",liu3A)

.icon = "Warn" \'改变图标

.AddButton("btna","返回").Attribute = ""

End With

e.WriteString(wb.Build) \'生成网页

Return "" \'必须返回

End If