手机端报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、KHID这个变量根本没有用到，一直都是空值，把相关代码都去掉，比如e.AppendCookie("KHID", KHID)

2、下面代码有问题，

首先，没有判断dr1是否有值

其次，服务端不应该使用Tables("页面信息").current这种用法，因为一般不可能有人去服务器操作服务端的表格，所以Tables("页面信息").current可能永远都是第一行，如果表格没有数据，那么就会出错

Dim dr1 As DataRow = DataTables("客户").SQLFind("openid ='" & Openid & "'") '根据openid找出对应的行

Dim drym As DataRow = Tables("页面信息").current.DataRow '根据openid找出对应的行

If OpenID > "" AndAlso dr1 IsNot Nothing AndAlso dr1("permit") = False Then'授权成功

主题：手机端报错