控件：一个ComboBox，一个TextBox（绑定字段），两者联动，ComboBox用来显示文字，TextBox用来显示编号，联动事件代码如下:
Dim zd As New Dictionary(Of Integer, String)
存入数值后
①ComboBox--valuechanged事件：Dim str As String = e.Sender.Text
For Each val As Short zd.keys
If str = zd(val) Then
e.Form.Controls("TextBox").text= val
End If
Next
②TextBox--dataformat事件：
e.Form.Controls("ComboBox").text= zd(e.Value)
③TextBox--valuechanged事件：
e.Sender.WriteValue()
注意：TextBox不要设置为不可见，否则无效，可以将其设为最底层，盖起来
[此贴子已经被作者于2017/11/19 19:16:55编辑过]
加好友 
发短信
Post By：2017/11/19 19:16:00 [显示全部帖子]
