-- 作者:有点色
-- 发布时间:2017/6/29 11:09:00
--
你把显示列和取值列,都设置为一样。
在右边放一个文本框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
|