主题：[求助]有关ComboBox控件问题

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dr As DataRow = cmb.SelectedItem
If dr IsNot Nothing Then
    e.Form.Controls("TextBox1").Value= dr("部门")
    e.Form.Controls("TextBox2").Value= dr("姓名")
End If

出现运行错误：”无法将类型为“System.String”的对象强制转换为类型“Foxtable.DataRow”。

不知何故，请指点。