Dim dr1 As DataRow = DataTables("部門負責人").Find("[部門] =" & _UserGroup And "[科室] =" & _Department) If dr1 IsNot Nothing Then If dr1("負責人工號") <> _TimingNumber Then e.Form.Controls("Button4").Enabled = False e.Form.Controls("Label02").Visible = False Else e.Form.Controls("Label16").Visible = False End If End If