Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]调用窗口表


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

主题：[求助]调用窗口表
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

报什么错？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

不管任何时候，current 都要先判断是否为空值才能使用

B窗口的事件代码。
If Tables("人事档案_人事档案Table1").current isnot nothing andalso Tables("人事档案_人事档案Table1").current("应聘信息_入职状态") <> "离职" Then
e.Form.controls("ComboBox13").Enabled = False
End If

'放在人事窗口的afterload里,强行重置出生日期
DataTables("人事档案录入_Table1").DataCols("劳动合同_到期").RaiseDataColChanged()
if Tables("人事档案_人事档案Table1").current isnot nothing
If Tables("人事档案_人事档案Table1").current("空白单元格") > 8 Then
 e.form.controls("label16").ForeColor = color.red
Else
e.form.controls("label16").ForeColor = color.blue
End If
end if
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

if Tables("人事档案_人事档案Table1").current isnot nothing
dr("姓名") = Tables("人事档案_人事档案Table1").current("姓名")
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

dim r as row = Tables("人事调动录入_Table1").addnew()
r("录入人员") = _username
dim r2 as row = Tables("人事档案_人事档案Table1").current 
if r2 isnot nothing then
r("工号") = r2("应聘信息_工号")
r("姓名") = r2("姓名")
r("调动前部门") = r2("应聘信息_部门")
r("调动前岗位") = r2("应聘信息_岗位")
end if

如果还有问题，肯定不是这里的原因。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/30 8:54:00 [显示全部帖子]

判断什么？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/30 13:49:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

判断一下窗口是否打开，再设置：http://www.foxtable.com/webhelp/topics/0705.htm

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

提示什么错误？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/1 10:48:00 [显示全部帖子]

If Forms("人事档案").Opened Then
所有代码其它都放到这里啊
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.04492 秒, 5 次数据查询