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
加好友 
发短信
Post By：2019/10/30 13:43:00 [只看该作者]
