这个呢:
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