请教Combobox

ndd

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

既然Control Source是字段customer-code，那怎么能让Me![custname] =  rs![customer-name]？

ndd

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

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

kangking

2007没有用过。
从你的描述看，这个 combobox  控件是数据绑定的，你不应该再为其赋值，系统只认你绑定的值。没有测试，我估计就是这个原因了。