主题：如何在登录中获取表中的数据，来作为登录名，求解

这个代码

For Each dr As DataRow In dt.DataRows

改成

For Each dr As DataRow In dt.select("上级（统计所有合伙人）_上级 = '" & e.cookies("username") & "'")

回复5楼，可以，参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=109454&skin=0

If Verified AndAlso e.Path = "logon.htm"  Then '如果用户访问的是登录页,且身份验证成功
    wb.AppendCookie("username",UserName) '将用户名和密码写入cookie
    wb.AppendCookie("password",Password)
    wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页
    e.WriteString(wb.Build) '生成网页
    Return '必须的
ElseIf Verified = False AndAlso e.Path <> "logon.htm" Then '如果用户身份验证失败,且访问的不是登录页面

改成

If Verified AndAlso e.Path = "logon.htm"  Then '如果用户访问的是登录页,且身份验证成功
    If e.Cookies.ContainsKey("username") = False Then
        wb.AppendCookie("username",UserName) '将用户名和密码写入cookie
        wb.AppendCookie("password",Password)
        wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页
        e.WriteString(wb.Build) '生成网页
        Return
    End If
ElseIf Verified = False AndAlso e.Path <> "logon.htm" Then '如果用户身份验证失败,且访问的不是登录页面

红色代码改成

    If e.PostValues.ContainsKey("username") OrElse e.Cookies.ContainsKey("username") = False Then