主题：ComboBox 带入

Dim cbx1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim cbx2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")

Dim cbx3 As WinForm.ComboBox = e.Form.Controls("ComboBox3")

Dim rdo1 As WinForm.RadioButton = e.Form.Controls("RadioButton1")

If rdo1.Checked AndAlso cbx1.Text = "对公" Then

    Dim fdr As DataRow = DataTables("表A").Find("第一列 = '" & cbx2.Text & "'")

    If fdr IsNot Nothing Then

        cbx3.Text = fdr("第二列")

    End If

    MessageBox.Show("无此供应商档案")

    Return

End If

谢谢 可以用了，只是不管第一列有没有和ComboBox2输入的内容都会显示 无此供应商档案 

可以是ComboBox2 输入的内容没有在第一列找相同的才显示吗？ 感谢 感谢