怎样自动选取组合框中第一行的数据

zyz218

如果组合框就一行或者为空，现在怎样实现有则自动填充，无则留空？？？

zyz218

Private Sub Field3_AfterUpdate()
   Dim Rs As New ADODB.Recordset
   Dim Sql As String

  '清空组合框
    If Me.Field4.ListCount > 0 Then
        For i = 0 To Me.Field4.ListCount - 1
        Me.Field4.RemoveItem (i)
        Next
       Else
      
      End If
   
  '添加ITEM
  ' Sql = "select * from table1 where [like]= '" & Me.Field3 & "'"
  Sql = "select * from table1 where [like] like '" & Me.Field3 & "'"
   
   Rs.Open Sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
   
   i = 0
   Do While Not Rs.EOF
     i = i + 1
     Rs.MoveNext
   Loop
  
If i > 0 Then
    Rs.MoveFirst
       Do While Not Rs.EOF
          Me.Field4.AddItem Rs.Fields("THIS")
          Rs.MoveNext
       Loop
   
      Set Rs = Nothing
   Else
      Me.Field4.AddItem "Blank"
   End If
    ' 选择第一个item
  
      Me.Field4 = Me.Field4.ItemData(0)
   
    Me.Field4.Requery
  
End Sub


非常好，在下慢慢领会！！！谢谢

andymark

组合框来源类型不能为表/查询，必须改成值列表才能用ITEMDATA选择第一行的数据

一点通

请将问题再描述清楚一点

zyz218

上传来了

fan0217

没有完全明白你的意思，放上实例。

zyz218

字段来源于组合框，组合框来源类型为表/查询，对来源进行了LIKE 限制所以要有就一行的，没有就是空。

fengrh

如何就一行或為空,用文字框就好了.