如何在combobox中,列出A表中的字段值,而更新B表的更一个字段?
A表:
ID
CnName
B表:
ID
A_ID
=================
我想在combobox中列出A表中的CnName,当用户选中某个CnName时,自动更新对应B表中的A_ID
如
A表 ID CnName
1 N
2 M
选择M的时候,自动把2插入到B表中的A_ID
问题点数：100、回复次数：5Top
1 楼faysky2（出来混，迟早是要还嘀）回复于 2005-11-18 22:47:09 得分 0
在ComboBox的Click事件下进行插入：
select ID into B from A where CnName='M'Top
2 楼faysky2（出来混，迟早是要还嘀）回复于 2005-11-18 22:50:58 得分 0
在combobox中列出A表中的不同的所有的CnName
Private Sub Combo1_DropDown()
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
cn.ConnectionString = "...."
cn.Open
rs.CursorLocation = adUseClient
rs.Open "select distinct CnName from A ", cn, adOpenKeyset, adLockOptimistic
Combo1.Clear
While Not rs.EOF
Combo1.AddItem rs("CnName")
rs.MoveNext
Wend
rs.Close
cn.Close
Set rs=Nothing
Set cn=Nothing
End SubTop
3 楼faysky2（出来混，迟早是要还嘀）回复于 2005-11-18 22:57:44 得分 0
'当用户选中某个CnName时,自动将A表中与ComBo1.Text对应的ID插入到B表中
Private Sub Combo1_Click()
If Trim(Combo1.Text = "") Then Exit Sub
Dim cn As New ADODB.Connection
cn.ConnectionString = "...."
cn.Open
cn.Execute ("select ID into B where CnName ='" & Combo1.Text & "'")
cn.Close
Set cn = Nothing
End SubTop
4 楼smalle（锋）回复于 2005-11-19 18:43:06 得分 0
中文名有可能重复,我想做到WEB中一样,显示与值是分开的,例如显示是"M",但实际值是"2"
如果用datacombo怎么邦定呢?Top
5 楼faysky2（出来混，迟早是要还嘀）回复于 2005-11-19 19:32:58 得分 100
在DataCombo中列出A表中的不同的所有的CnName
Private Sub Form_Load()
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
cn.ConnectionString = "...."
cn.Open
rs.CursorLocation = adUseClient
rs.Open "select distinct CnName from A ", cn, adOpenKeyset, adLockOptimistic
DataCombo1.DataField="CnName"
Set DataCombo1.RowSource=rs'列出不同的所有的CnName
cn.Close
Set cn=Nothing
End Sub
Top
