以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]调用窗口表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142517) |
|
-- 作者:江南小镇 -- 发布时间: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 |
|
-- 作者:有点蓝 -- 发布时间:2019/10/29 16:09:00 -- 报什么错? |
|
-- 作者:江南小镇 -- 发布时间:2019/10/29 17:50:00 -- 老师,目录树中的数据是窗口和窗口中的所有控件。 [此贴子已经被作者于2019/10/29 17:51:40编辑过]
|
|
-- 作者:有点蓝 -- 发布时间:2019/10/29 20:10:00 -- 不管任何时候,current 都要先判断是否为空值才能使用
|
|
-- 作者:江南小镇 -- 发布时间:2019/10/29 21:33:00 -- 老师,下面代码怎样先判断是否为空值才能使用 |
|
-- 作者:有点蓝 -- 发布时间:2019/10/29 21:50:00 -- if Tables("人事档案_人事档案Table1").current isnot nothing dr("姓名") = Tables("人事档案_人事档案Table1").current("姓名")
|
|
-- 作者:江南小镇 -- 发布时间: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
|
|
-- 作者:有点蓝 -- 发布时间: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 如果还有问题,肯定不是这里的原因。 |
|
-- 作者:江南小镇 -- 发布时间: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
|
|
-- 作者:有点蓝 -- 发布时间:2019/10/30 8:54:00 -- 判断什么? |