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

1.老师这个问题依旧存在

2.比如说我有好几列需要记录人名我做一个审核按键代码要怎么写可以实现随便选哪个列点下审核就记录用户名了

我要把它做成菜单的按钮不固定哪个表代码怎么写

可以了还一个问题

现在的情况是一个用户名很多人可以一起登录使用怎么样控制一个用户名只能登录一个

老师我看的这个

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=59360&authorid=0&page=0&star=1

但是代码出错

此主题相关图片如下：cw.png

此主题相关图片如下：cw2.png

怎么改

[此贴子已经被作者于2018/8/22 16:54:50编辑过]

我是真找不到老师就别难为我了

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

Dim t As Table = CurrentTable

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

2.出错

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

主题：[求助]入库审核