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


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

主题：[求助]调用窗口表
帅哥哟，离线，有人找我吗？
江南小镇
 小大  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


加好友 发短信
等级：七尾狐 帖子：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/10/30 13:43:00 [显示全部帖子]

判断要调用的窗口表已关闭不能调用。

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


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/10/31 21:27:00 [显示全部帖子]

老师，B窗口调用已关闭的“人事档案”窗口的人事档案_人事档案Table1表时希望不要报错有提示。


e.form.Controls("label16").BindingField = "人事档案_人事档案Table1.信息完整率"
e.form.Controls("textbox1").BindingField = "人事档案_人事档案Table1.姓名"
e.form.Controls("textbox2").BindingField = "人事档案_人事档案Table1.个人基本资料_身份证号码"
e.form.Controls("textbox6").BindingField = "人事档案_人事档案Table1.个人基本资料_籍贯"
e.form.Controls("textbox12").BindingField = "人事档案_人事档案Table1.个人基本资料_年龄"
e.form.Controls("textbox5").BindingField = "人事档案_人事档案Table1.个人基本资料_生肖"
e.form.Controls("TextBox13").BindingField = "人事档案_人事档案Table1.个人基本资料_性别"
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/11/1 9:26:00 [显示全部帖子]

老师，没有用。
If Forms("人事档案").Opened Then

e.form.Controls("label16").BindingField = "人事档案_人事档案Table1.信息完整率"
e.form.Controls("textbox1").BindingField = "人事档案_人事档案Table1.姓名"
e.form.Controls("textbox2").BindingField = "人事档案_人事档案Table1.个人基本资料_身份证号码"
e.form.Controls("textbox6").BindingField = "人事档案_人事档案Table1.个人基本资料_籍贯"
e.form.Controls("textbox12").BindingField = "人事档案_人事档案Table1.个人基本资料_年龄"
e.form.Controls("textbox5").BindingField = "人事档案_人事档案Table1.个人基本资料_生肖"
e.form.Controls("TextBox13").BindingField = "人事档案_人事档案Table1.个人基本资料“
End If
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/11/1 10:39:00 [显示全部帖子]



If Forms("人事档案").Opened Then


e.form.Controls("label16").BindingField = "人事档案_人事档案Table1.信息完整率"
e.form.Controls("textbox1").BindingField = "人事档案_人事档案Table1.姓名"
e.form.Controls("textbox2").BindingField = "人事档案_人事档案Table1.个人基本资料_身份证号码"
e.form.Controls("textbox6").BindingField = "人事档案_人事档案Table1.个人基本资料_籍贯"
e.form.Controls("textbox12").BindingField = "人事档案_人事档案Table1.个人基本资料_年龄"
e.form.Controls("textbox5").BindingField = "人事档案_人事档案Table1.个人基本资料_生肖"
e.form.Controls("TextBox13").BindingField = "人事档案_人事档案Table1.个人基本资料_性别"
e.form.Controls("DateTimePicker2").BindingField = "人事档案_人事档案Table1.个人基本资料_出生年月"
e.form.Controls("ComboBox8").BindingField = "人事档案_人事档案Table1.应聘信息_部门"

    Messagebox.Show("窗口1已经打开!")
End If





If Tables("人事档案_人事档案Table1").current IsNot Nothing AndAlso Tables("人事档案_人事档案Table1").current("应聘信息_入职状态") <> "离职" Then
e.Form.controls("ComboBox13").Enabled = False
End If






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

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


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