主题：移动版如何设置用户权限

各位专家：您们好！

       移动版开发的程序，如何实现类似电脑版中的不同用户查看不同的列的权限设置？

权限直接在httprequest事件设置。

 

1、首先要做登陆页面 http://www.foxtable.com/mobilehelp/scr/0138.htm

 

2、然后显示数据的时候，获取当前用户信息，对应生成不同数据显示。

我的登陆页面已经有了，我是想让登陆用户进入系统后，对登陆用户再设置不同的权限。

获取当前用户信息，对应生成不同数据显示的代码格式发1个给我。

1、获取用户信息，如 dim uname as string = e.cookies("username")

 

2、在生成网页的时候，判断生成，如

 

dim uname as string = e.cookies("username")

if uname = "张三" Then

    'e.writestring("abc")

ElseIf uname = "李四" Then

    'e.writestring("123")

else

    'e.writestring("1111222233344")

End If

请专家看一下以下这段代码哪里有问题，系统提示代码错误：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文本文档.txt

提示什么错误？截图说明。

 

是不是多写了引号？ cmd.CommandText= "select 物料名称,实收数量,规格型号,[入库日期] From 入库表""

提示的错误如下图：

 

此主题相关图片如下：微信截图_20180309133956.png

我将引号调整后，代码能正常保存，但在手机上点击运行时，又提示如下的运行错误：

此主题相关图片如下：微信截图_20180309134957.png

我的list自定义函数全部如下：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文本文档1.txt

出现的错误提示为上一楼的图片显示。请助解决！谢谢！

Dim dt = cmd.ExecuteReader

With wb.AddTable("","Table1")
    .CreateFromDataTable(dt)
    With .Body.AddRow()
        .Attribute = "style='background-color:#FFFFE0'"
        .AddCell("小计")
        .AddCell(dt.compute("sum(实收数量)"))
    End With
End With