感谢大师的帮助！！但我换到另一个界面，就提示如下，不知是怎么回事？
无法将类型为“System.String”的对象强制转换为类型“Foxtable.DataRow”。
要设置【取值列】【显示列】那里，才能用datarow这个代码的。不然试试改成
Dim str As String = e.Sender.SelectedValue
Dim i As Integer = Tables("员工资料").FindRow("第一列 = '" & str & "'")
If i >= 0 Then Tables("员工资料").Position = i
Else
msgbox("没找到")End If
加好友 
发短信
Post By：2018/12/9 22:05:00 [显示全部帖子]
