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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 定时关闭

共有2060人关注过本帖树形打印复制链接主题：定时关闭

刘林

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00

定时关闭

Post By：2017/5/20 14:22:00 [显示全部帖子]

timetick

Dim c2 As String = e.Form.Controls("combobox2").text

Dim dr As DataRow = DataTables("小学考试名称").sqlFind("考试名称 = '" & c2 & "'")

If dr IsNot Nothing

If dr("上分锁定") = True

'messagebox.show("请注意,该考试统分工作已结束,已不能再上分")

e.Form.Close

End If

如何做一个提示，如10秒钟后容窗口自动关闭。后台将小学考试名称的上分锁定=1时，打开了上分窗口的用户会自动关闭,如何设计这个提示和定时，这样用户更了解是什么情况。

刘林

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2017/5/20 15:35:00 [显示全部帖子]

dr("上分锁定")= true 才开始倒计时关闭，因为小学考试名称表是由上一级主管部门控制，现在这个是只要打开窗口，不管上分锁定没有都倒计时关闭

刘林

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2017/5/20 15:52:00 [显示全部帖子]

Dim c2 As String =e.sender.text

If c2>""

Dim dt As DataTable = DataTables("成绩")

Dim cmd As New SQLCommand

cmd.connectionname =

cmd.CommandText = "SE LE CT DISTINCT 考试名称,单位名称,学段 From {成绩} where 学段 = '小学' and 考试名称 in (Se lect 考试名称 From {小学考试名称} where 上分锁定 = 0 and 是否统一上分 = 1) And 单位名称 In (Sel ect 单位全称,所属片区 from {学校信息} where 所属片区 = '" & lffp & "'"

dt = cmd.ExecuteReader()

Dim cmb3 As WinForm.ComboBox = e.form.Controls("ComboBox3")

cmb3.ComboList = dt.GetComboListString("单位名称")

End If

lffp="白合片区"

提示“白合片区“附近有错误逻辑是：cmb3的下拉显示的单位只能是成绩表中符合条件学段=小学，考试名称符合小学考试名称.上分锁定=0 和是否统一上分=1 并且单位名称 =学校信息.单位全称且学校信息.所属片区= lffp,请老师指教，谢谢

刘林

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2017/5/20 16:10:00 [显示全部帖子]

提示:当没有用 EXISTS 引入子查询时，在选择列表中只能指定一个表达式。

上面错误是什么原因

另我外想到成绩表中考号的第2位有所属片区信息,用substring取是错了，sql取字符是怎么取？

刘林

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2017/5/20 16:34:00 [显示全部帖子]

cmd.CommandText = "SEL ECT DISTINCT 考试名称,单位名称,学段 From {成绩} where 学段 = '小学' and 考试名称 in (S elect 考试名称 From {小学考试名称} where 上分锁定 = 0 and 是否统一上分 = 1) And substring([考号],2,1) ='4'"

考号的第二位是片区代码，这样可以吗

刘林

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2017/5/20 16:52:00 [显示全部帖子]

Dim c2 As String =e.sender.text

If c2>""

Dim dt As DataTable = DataTables("成绩")

Dim cmd As New SQLCommand

cmd.cfont-family: Verdana;"> cmd.CommandText = "SELE CT DISTINCT 考试名称,单位名称,学段 From {成绩} where 学段 = '小学' and 考试名称 in (Sele ct 考试名称 From {小学考试名称} where 上分锁定 = 0 and 是否统一上分 = 1) And substring([考号],2,1) ='4'"

dt = cmd.ExecuteReader()

Dim cmb3 As WinForm.ComboBox = e.form.Controls("ComboBox3")

cmb3.ComboList = dt.GetComboListString("单位名称")

End If

表中有符合条件的记录，但cbm3下拉没有列表容呢

下一主题 >> << 上一主题

主题：定时关闭