Office中国论坛/Access中国论坛

标题: 怎样自动选取组合框中第一行的数据 [打印本页]

作者: zyz218 时间: 2006-4-28 22:06
标题: 怎样自动选取组合框中第一行的数据
如果组合框就一行或者为空，现在怎样实现有则自动填充，无则留空？？？

作者: fengrh 时间: 2006-4-28 22:18
如何就一行或為空,用文字框就好了.

作者: zyz218 时间: 2006-4-28 22:25
字段来源于组合框，组合框来源类型为表/查询，对来源进行了LIKE 限制所以要有就一行的，没有就是空。

作者: fan0217 时间: 2006-4-29 03:41
没有完全明白你的意思，放上实例。

作者: zyz218 时间: 2006-4-29 16:15
[attach]17465[/attach]

上传来了

作者: 一点通 时间: 2006-4-29 16:38
请将问题再描述清楚一点

作者: andymark 时间: 2006-4-29 19:53
组合框来源类型不能为表/查询，必须改成值列表才能用ITEMDATA选择第一行的数据

[attach]17467[/attach]

作者: zyz218 时间: 2006-4-29 23:12
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

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

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