基于panel做页面到底部自动加载 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

调试看弹出什么内容

......

If dr IsNot Nothing Then

If dr("性别") = "男" Then

drs = DataTables("女生发起").sqlSelect("[男_手机] = '" & username & "'","发起_日期 DESC") '从订单表找,个人订单集合

msgbox("男1=" & drs.count)

Else If dr("性别") = "女" Then

drs = DataTables("男生发起").sqlSelect("[女_手机] = '" & username & "'","发起_日期 DESC") '从订单表找,个人订单集合

msgbox("女1=" & drs.count)

Else If dr("性别") = "" Then

msgbox("会员性别为空!")

Else If dr("性别") <> "男" OrElse dr("性别") <> "女" Then

msgbox("会员性别错误填写!")

End If

Else

msgbox("未找到您的会员账号!")

End If

.....

如果31楼的模式弹出的结果还是为0，说明肯定是数据有问题，不存在此记录，或者数据有空格控制符等，检查自己的数据

If dr IsNot Nothing Then

If dr("性别") = "男" Then

drs = DataTables("女生发起").sqlSelect("[男_手机] = '" & username & "'","发起_日期 DESC") '从订单表找,个人订单集合

msgbox("男1=" & drs.count & ",filter=" & "[男_手机] = '" & username & "'")

Else If dr("性别") = "女" Then

drs = DataTables("男生发起").sqlSelect("[女_手机] = '" & username & "'","发起_日期 DESC") '从订单表找,个人订单集合

msgbox("女1=" & drs.count & ",filter=" & "[女_手机] = '" & username & "'")

Else If dr("性别") = "" Then

msgbox("会员性别为空!")

Else If dr("性别") <> "男" OrElse dr("性别") <> "女" Then

msgbox("会员性别错误填写!")

End If

Else

msgbox("未找到您的会员账号!")

End If

把查询条件放到数据库去执行看有没有结果

建议还是使用日志的方式进行调试，可以方便的拷贝查询条件

请按照33楼的方式获取查看有问题的页面的查询条件，直接hardcode指定条件的测试方法永远查不出原因

俺也看漏了，加多一个逗号

drs = DataTables("女生发起").sqlSelect("[男_手机] = '" & username.Trim() & "'",,"[发起_日期] DESC")

SQLSelect(Filter,Top,Sort)

Filter：查询条件，采用的是SQL语法，和常规表达式的语法有所不同，请参考：SQL表达式的语法差异。
Top：可选参数，指定返回的行数
Sort：可选参数，指定查询顺序，和Top配合使用。

加一个PageFooter或者放一个label控件显示文字，不需要的时候把visible设置为false

测试一下就知道了

http://www.w3school.com.cn/jquery/css_scrollleft.asp

主题：基于panel做页面到底部自动加载