For Each c As WinForm.Control In Forms("成本窗口").Controls If Typeof c Is WinForm.TextBox Then Dim t As WinForm.TextBox = c
If t.BindingField > "" If t.BindingField.contains("金额") And val(t.text) > 0 Then Forms("成本窗口").Controls(c.name).BackColor = Color.Red Else Forms("成本窗口").Controls(c.name).BackColor = Color.white End If End If End If Next