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


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

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


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		[求助]调用窗口表  发帖心情 Post By：2019/10/29 15:59:00 [只看该作者]

老师，集合按钮时触发了打开B窗口的代码。B窗口的代码有调用A窗口的Table1。（在集合按钮成目录树时报错）

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

'放在人事窗口的afterload里,强行重置出生日期
DataTables("人事档案录入_Table1").DataCols("劳动合同_到期").RaiseDataColChanged()

If Tables("人事档案_人事档案Table1").current("空白单元格") > 8 Then
 e.form.controls("label16").ForeColor = color.red
Else
e.form.controls("label16").ForeColor = color.blue
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/29 16:09:00 [只看该作者]

报什么错？

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


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/10/29 17:50:00 [只看该作者]

老师，目录树中的数据是窗口和窗口中的所有控件。


图片点击可在新窗口打开查看此主题相关图片如下：image 1.png
图片点击可在新窗口打开查看
 
[此贴子已经被作者于2019/10/29 17:51:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/10/29 21:33:00 [只看该作者]

老师，下面代码怎样先判断是否为空值才能使用

dr("姓名") = Tables("人事档案_人事档案Table1").current("姓名")

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


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：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("姓名")
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/10/29 22:27:00 [只看该作者]


老师，没有用。



Dim dr As Row
Tables("人事调动录入_Table1").addnew()
dr = Tables("人事调动录入_Table1").Rows(0)
If Tables("人事档案_人事档案Table1").current IsNot Nothing
dr("工号") = Tables("人事档案_人事档案Table1").current("应聘信息_工号")
dr("姓名") = Tables("人事档案_人事档案Table1").current("姓名")
dr("调动前部门") = Tables("人事档案_人事档案Table1").current("应聘信息_部门")
dr("调动前岗位") = Tables("人事档案_人事档案Table1").current("应聘信息_岗位")
End If
dr("录入人员") = _username
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：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

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


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/10/30 7:08:00 [只看该作者]

老师，下面的代码怎样做判断。谢谢老师有要劳驾你了。

Tables("人事档案录入_Table1").fill("SEL ECT * From {劳动合同}","数据库",False)
Tables("人事档案录入_Table1").SetColVisibleWidth("劳动合同_合同类型|80|劳动合同_签订时间|80|劳动合同_结束时间|80|劳动合同_合同期|60|劳动合同_到期|60")
Tables("人事档案录入_Table1").AllowEdit = True
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/30 8:54:00 [只看该作者]

判断什么？

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