Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim dr As DataRow dr = DataTables("表A").Find("型号 = '" & e.Form.Controls("ComboBox1").value & "'and 规格 = '" & cm.text & "'") If dr IsNot Nothing Then e.Form.Controls("TextBox1").Value = dr("颜色") End If