[求助]入库审核 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

全局代码

public _login_num as string

.NET Framework 版本：2.0.50727.8793

Foxtable 版本：2018.8.19.1

错误所在事件：计划登录

详细错误信息：

给定关键字不在字典中。

Dim dr As DataRow = DataTables("用户登录状态表").SQLFind("Num = '" & _login_num & "'")

If dr IsNot Nothing Then

If dr("state") = "1" Then

Dim cmd As New SQLCommand

Dim dt As Date

cmd.Connec tionN am e = "ylls" '论坛有问题,直接贴出来会变成cmd.C 使用的时候把空格去掉

cmd.CommandText = "Select GetDate()"

dt = cmd.ExecuteScalar()

dr("refresh_time") = dt

dr.Save

Else

MyTimers("查询用户登录状态").Enabled = False '防止不停跳出提示窗口

Messagebox.show("账号:" & user.Name & " 在其它地方登录,系统将被强行退出,如有异常,请联系管理员","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Syscmd.Project.Exit(False)

End If

Else

Messagebox.show("账号:" & user.Name & " 由于登录状态信息不存在,系统将被强行退出,请重新登录系统,如有异常,请联系管理员","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Syscmd.Project.Exit(False)

End If

If User.Type = UserTypeEnum.Developer Then

DataTables("用户登录状态表").LoadFilter = ""

DataTables("用户登录状态表").Load

End If

这是哪里出错了

[此贴子已经被作者于2018/8/23 8:26:39编辑过]

有这个名称"查询用户登录状态"的计划任务吗？如果不能理解别人的代码，还是换个用法吧

应该快好了这个问题行了就是计划名不对

1.现在又出这个情况

“账号 *** 由于登录状态信息不存在,系统将被强行退出,请重新登录系统,如有异常,请联系管理员“

登录软件就提示进不了软件这是哪里的问题

2.还一个问题

Dim t As Table = CurrentTable

t.Current(t.Cols(t.ColSel).Name) = user.name

如果在一个编辑框里记录多个人名怎么改代码现在是只保留一个之前的就替换了

1、这个提示是你自己的，请检查相关代码

2、看13楼的用法

1. 我找不到问题的地方我知道是代码里提示的

2. 代码改成可以多个名字了但是重复的名字不会剔除掉应该还缺一条代码老师给帮忙加上呗

Dim t As Table = CurrentTable

t.Current(t.Cols(t.ColSel).Name) = user.name & vbcrlf & t.Current(t.Cols(t.ColSel).Name)

1、输出全部代码，然后搜索出错提示

2、Dim t As Table = CurrentTable

if t.Current(t.Cols(t.ColSel).Name).contains(user.name) = false

t.Current(t.Cols(t.ColSel).Name) = user.name & vbcrlf & t.Current(t.Cols(t.ColSel).Name)

end if

2.出错

图片点击可在新窗口打开查看此主题相关图片如下：cw.png

Dim t As Table = CurrentTable

Dim n As String = user.Name

If t.Current(t.Cols(t.ColSel).Name).Contains(n) = False

t.Current(t.Cols(t.ColSel).Name) = n & vbcrlf & t.Current(t.Cols(t.ColSel).Name)

End If

主题：[求助]入库审核