Dim ishouj As String = e.cookies("isj") '会员手机
Dim idengj As String = e.cookies("idj") '会员等级
Dim ixingb As String = e.cookies("ixb") '会员性别
Dim ibianh As String = e.cookies("ibh") '会员性别
Dim huiybg As String '定义,会员变更,用于查看会员是男生客服|女生客服|男生经理|女生经理|男生协管|女生协管|admin
Dim jzshenhsj As Date '定义,截止审核时间
Dim days2 As New TimeSpan(2,0,0,0,0) '时段是2天
jzshenhsj = Date.Now - days2 '发起时间至现在的时段
msgbox(jzshenhsj) ’执行了，结果正确
msgbox(ibianh) ’执行了，结果正确
’符合下面粉色的行存在，就是搜索不出来，是条件没有写好？
Dim igl As DataRow '定义,查找会员(客服等官方人员)管理的行
If ibianh <> "" Then
igl = DataTables("会员资料").SQLFind("男女生客服_编号 = '" & ibianh & "' and ( (展示照审核 = '需要审核' and 展示照上传时间 > jzshenhsj) or (生活照审核 = '需要审核' and 生活照上传时间 > jzshenhsj) or (学历认证 = '等待审核' and 学历上传时间 > jzshenhsj) or (身份证认证 = '等待审核' and 身份证上传时间 > jzshenhsj) or (微信认证 = '暂未认证' and 微信填写时间 > jzshenhsj) or (昵称审核 = '需要审核' and 昵称填写时间 > jzshenhsj)")
End If
End If
Dim zhansz As String '定义,展示照
******
If igl IsNot Nothing Then
******
Else
msgbox("没有管理行!") ’执行了
End If
加好友 
发短信
Post By：2017/7/19 8:06:00 [只看该作者]
