Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
For Each c As Col In Tables("总因子").Cols
If c.Caption = cmb.Text Then
Tables("总因子").grid.Cols(c.name).Style.Backcolor = Color.LimeGreen
Else
Tables("总因子").grid.Cols(c.name).Style.Backcolor = Color.Transparent
End If
Next
[此贴子已经被作者于2017/5/9 14:26:04编辑过]