你把显示列和取值列，都设置为一样。
在右边放一个文本框textbox1，可以隐藏。
选择模板后，在TextChanged事件写代码：
Dim fdr As DataRow = DataTables("表A").Find("第一列 = '" & e.sender.Text & "'")
If fdr IsNot Nothing Then
e.Form.Controls("Textbox1").Text = fdr("第二列")
Else
e.Form.Controls("Textbox1").Text = Nothing
End If
加好友 
发短信
Post By：2017/6/29 11:09:00 [显示全部帖子]
