魔术快斗之黑羽快汐:vb 中类似datalist中的属性,设置问题?

我试了绝对每问题
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
Dim sql As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\myselfwork\220work\newsystem.mdb;Persist Security Info=False"
conn.ConnectionString = str
conn.Open
sql = "select emplyeename from login "
Set rs = conn.Execute(sql)
rs.Open sql, conn, 1, 1
With DataList1
Set .DataSource = rs
Set .RowSource = rs
.ListField = rs("emplyeename").Name
End With

从VB联机帮助中摘录的,希望对你有帮助

属性 描述

DataSource
DataList 或 DataCombo 所绑定的数据控件的名称。

DataField
由 DataSource 属性所指定的记录集中的一个字段名称。这个字段将用于决定在列表中高亮显示哪一个元素。如果作出了新的选择，则它就是当移动到一个新记录时所需更新的字段。

RowSource
将用于填充列表的数据控件的名称。

BoundColumn
由 RowSource 属性所指定的记录集中的一个字段名称。这个字段必须和将用于更新该列表的DataField 的类型相同。

ListField
由将用于填充该列表的 RowSource 所指定的记录集中的一个字段名称。

注意 DataList 和 DataCombo 控件也可以与单个数据控件一起使用。要实现这一点，可以将 DataSource 和 RowSource 属性设置为同一个数据控件，并且将 DataField 和 BoundColumn 属性设置为该数据控件的记录集中的同一个字段。在这种情形下，将使用 ListField 的值来填充该列表，且这些值来自于被更新的同一个记录集。如果指定了一个 ListField 属性，但没有设置 BoundColumn 属性，则 BoundColumn 将自动被设置为 ListField 字段。