[求助]主页设置权限出现错误。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师代码如下:

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

wb.AddPageTitle("", "pageheader", Vars("SoftNm"), Vars("GSName"))

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Functions.Execute("LogText", "useid:" & e.Cookies("useid") & ",Pwd:" & e.Cookies("pwd") & ",Name:" & e.Cookies("name"))

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "SEL ECT DISTINCT FormName From {FormPw} where LimitItems is not null and useid = " = e.Cookies("useid")

Functions.Execute("LogText", "cmd.CommandText：" & cmd.CommandText)

Dim sdt As DataTable = cmd.ExecuteReader()

Dim FNmss As String = sdt.GetComboListString("FormName")

Functions.Execute("LogText", "GetComboListString" & fnmss)

Dim Fnms() As String = FNmss.Split("|")

Dim AGs() As String = {"销售订单管理", "客户管理", "物料管理"}

Dim Agnms() As String = {"销售订单", "客户管理", "物料管理"}

Dim Pngs() As String = {"order_159.png", "users.png", "IC1.png"}

Dim Pgs() As String = {"DDGL.htm", "KHGL.htm", "WLGL.htm"}

With wb.AddGrid("", "g1")

For Agi As Integer = 0 To AGs.Length - 1 ' ag As String In AGs

If Fnms.Contains(ags(Agi)) Then

.Add(Agi , agnms(Agi), "./images/" & Pngs(Agi), pgs(Agi))

End If

.Add("B1", "考勤表", "./images/人员.png", "KQB.htm")

.Add("c1", "退出", "./images/exit.png", "Exit.htm")

End With

e.WriteString(wb.Build)

LogText的错误内容如下：老师，就是红色加粗那里，为什么是False

e.Path =HomePage.htm,e.Host =127.0.0.1,e.Port = 80, 完整地址 = http://127.0.0.1/HomePage.htm

2022-09-06 09:22:37.9484

password:112233

2022-09-06 09:22:37.9624

useid:2,Pwd:112233,Name:郑

2022-09-06 09:22:37.9664

cmd.CommandText：False

2022-09-06 09:22:37.9764

找不到存储过程 'False'。

在 System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(OleDbHResult hr)

在 System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult)

在 System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult)

在 System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult)

在 System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method)

在 System.Data.OleDb.OleDbCommand.ExecuteReader(CommandBehavior behavior)

在 System.Data.OleDb.OleDbCommand.System.Data.IDbCommand.ExecuteReader(CommandBehavior behavior)

在 System.Data.Common.DbDataAdapter.FillInternal(DataSet dataset, DataTable[] datatables, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior)

在 System.Data.Common.DbDataAdapter.Fill(DataTable[] dataTables, Int32 startRecord, Int32 maxRecords, IDbCommand command, CommandBehavior behavior)

在 System.Data.Common.DbDataAdapter.Fill(DataTable dataTable)

在 Foxtable.SQLCommand.ExecuteReader(Boolean Save)

2022-09-06 09:22:37.9844

调用的目标发生了异常。

在 System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor)

在 System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments)

在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)

在 Foxtable.UserFunctions.Execute(String Name, Object[] Args)

未将对象引用设置到对象的实例。

在 UserCode.AMlt63PCZEvXtvcPl(Object[] Args)

主题：[求助]主页设置权限出现错误。