又试了一下，基本解决问题。但还有一个地方，请教一下，如何让这个combox的显示内容与下拉列表的内容一样。
例如下拉选择A时，combox里显示也是A，而不是显示值“A”对应的ID值1
下拉选择B时，combox里显示也是B，而不是显示值“B”对应的ID值2
如果用cmb.text = dr（"Title"），理论上应当可行，但实际执行时报错。
该当如何解决呢？
传不了附件，直接代码
窗口1_AfterLoad
'选择一个默认值
Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
cmb.DisplayMember = "title" '设置显示列
cmb.ValueMember = "_Identify" '设置取值列
cmb.DataSource = "Con"
cmb.SelectedIndex = 0 '用这个可以设置默认值吗?
Dim dr As DataRow = cmb.SelectedItem
Dim t As Table = Tables(e.Form.Name & "_TablePL")
t.Fill("select * from {ConL}" , False)
If dr IsNot Nothing Then
t.Filter = "ConID = " & dr("_Identify")
Else
t.Filter = "False"
End If
窗口1_ComboBox1_SelectedIndexChanged
Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dr As DataRow = cmb.SelectedItem
Dim t As Table = Tables(e.Form.Name & "_TablePL")
If dr IsNot Nothing Then
t.Filter = "ConID = " & dr("_Identify")
Else
t.Filter = "False"
End If
[此贴子已经被作者于2013-5-22 23:50:59编辑过]
加好友 
发短信
Post By：2013/5/22 11:46:00 [只看该作者]
