Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数据库


  共有2670人关注过本帖树形打印复制链接

主题：[求助]数据库
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/15 15:57:00 [显示全部帖子]

工号是字符串还是整数列？

msgbox(s) 显示什么内容
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/15 16:25:00 [显示全部帖子]

错误所在事件：窗口,员工信息,AfterLoad

贴出完整代码
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/15 20:29:00 [显示全部帖子]

工号是字符串还是整数列？
没看到s在哪里定义的，在哪里赋值的？
msgbox(s) 显示什么内容。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/15 22:34:00 [显示全部帖子]

代码没有问题。出什么错？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/16 20:22:00 [显示全部帖子]

……
cmd.CommandText = "SELECT * From {劳动合同} where 劳动合同_到期 = false"
dt = cmd.ExecuteReader()
Dim s As String = ""
For Each dr2 As DataRow In dt.dataRows
    s = s & "'" & dr2("劳动合同_工号") & "',"
Next
If s > "" Then
    cmd.CommandText = "select * from {人事档案} where 应聘信息_职位状态 = '正式' and 应聘信息_工号 not in (" & s.trim(",") & ") "
    dt = cmd.ExecuteReader()
    e.Form.controls("员工档案Label8").text = dt.Compute("count([_Identify])")
End If

……
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 5 次数据查询