Office中国论坛/Access中国论坛

标题: 请教Combobox [打印本页]

作者: ndd 时间: 2008-7-8 15:19
标题: 请教Combobox
Private Sub custcode_LostFocus()

Dim rs As ADODB.Recordset
Dim SQLstmt As String
Dim cname As String
Set rs = New ADODB.Recordset
   If Not IsNull(Me!custcode) Then
   SQLstmt = "SELECT * FROM [cust-brkr]" _
            & " Where [cust-brkr]![customer-code] = '" & Me!custcode & "'"
   MsgBox (SQLstmt)
   rs.ActiveConnection = CurrentProject.Connection
   rs.Source = SQLstmt
   rs.CursorType = adOpenDynamic
   rs.LockType = adLockOptimistic
   rs.Open
   If Not rs.EOF Then
      Me![custname] =  rs![customer-name]  ‘该语句无法给custname（是个combobox赋值）
      Me![address] = rs![address]
      Me![phone] = rs![phone-number]
      Me![country-code] = rs![country-code]
      Me![cust-desc] = rs![customer-description]
      Me![cust-cont-name] = rs![customer-contract-name]
      Me![ship-dates] = rs![shipping-days]
   End If
   rs.Close
End If

End Sub

我是Access 2007初学者，在使用combo box的时候遇到问题，custname是一个combo box，该combo box 的Row Source Type属性是Table/Query，Row Source是表cust-brkr，Control Source是字段customer-code.
在程序中，无论我怎么给该combo box赋值，都无法现实。下拉列表有值，就是类似text的地方无法现实我要现实的值。
麻烦各位帮忙看看，什么原因，谢谢！

作者: tz-chf 时间: 2008-7-8 15:43
既然Control Source是字段customer-code，那怎么能让Me![custname] = rs![customer-name]？

作者: ndd 时间: 2008-7-8 15:45

原帖由 tz-chf 于 2008-7-8 15:43 发表
既然Control Source是字段customer-code，那怎么能让Me![custname] = rs![customer-name]？

不好意思，笔误，我看了下，确定Control Source是字段customer-name

作者: kangking 时间: 2008-7-8 15:55
2007没有用过。
从你的描述看，这个 combobox 控件是数据绑定的，你不应该再为其赋值，系统只认你绑定的值。没有测试，我估计就是这个原因了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)