老师好，下面是标签代码。工号(是字符串)
Dim cmd As New SQLCommand
Dim dr As DataRow
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * F rom {劳动合同} where 劳动合同_到期 = false"
dt = cmd.ExecuteReader()
Dim s As String
For Each dr2 As DataRow In dt.dataRows
s = s & "'" & dr2("劳动合同_工号") & "',"
Next
Tables("人事档案_人事档案Table1").Filter = "应聘信息_入职状态 = '正式' and 工号 not in (" & s.trim(",") & ")"
下面是窗口事件代码
cmd.CommandText = "SELECT * F rom {劳动合同} where 劳动合同_到期 = false"
dt = cmd.ExecuteReader()
Dim s As String
For Each dr2 As DataRow In dt.dataRows
s = s & "'" & dr2("劳动合同_工号") & "',"
Next
cmd.CommandText = "select * f rom [员工登记表] where 应聘信息_入职状态 = '正式' and 工号 not in (" & s.trim(",") & ") "
dt = cmd.ExecuteReader()
e.Form.controls("人事档案Label11").text = dt.Compute("count([_Identify])")
Dim cr As String = "人事档案Label8|人事档案Label9|人事档案Label11|人事档案Label17"
For Each c As String In cr.split("|")
If e.Form.Controls(c).text <> "0"
e.Form.Controls(c).ForeColor = color.red
Else
e.Form.Controls(c).ForeColor = color.blue
End If
Next
加好友 
发短信
Post By：2019/7/15 15:50:00 [只看该作者]
