
vb 中类似datalist中的属性,设置问题?
DataList1.DataSourceDataList1.DataBindingsDataList1.DataFieldDataList1.DataMemberData...
DataList1.DataSource
DataList1.DataBindings
DataList1.DataField
DataList1.DataMember
DataList1.BoundColumn
类似这样的属性应该怎么运用啊,要是直接绑定ado很方便,但是写源码来实现不知道该怎么用?
应该把数据集给那个属性啊??
*****其余的控件也存在这样的属性,用法应该一样吧?
大家支持啊!!!! 展开
DataList1.DataBindings
DataList1.DataField
DataList1.DataMember
DataList1.BoundColumn
类似这样的属性应该怎么运用啊,要是直接绑定ado很方便,但是写源码来实现不知道该怎么用?
应该把数据集给那个属性啊??
*****其余的控件也存在这样的属性,用法应该一样吧?
大家支持啊!!!! 展开
2个回答
展开全部
从VB联机帮助中摘录的,希望对你有帮助
属性 描述
DataSource
DataList 或 DataCombo 所绑定的数据控件的名称。
DataField
由 DataSource 属性所指定的记录集中的一个字段名称。这个字段将用于决定在列表中高亮显示哪一个元素。如果作出了新的选择,则它就是当移动到一个新记录时所需更新的字段。
RowSource
将用于填充列表的数据控件的名称。
BoundColumn
由 RowSource 属性所指定的记录集中的一个字段名称。这个字段必须和将用于更新该列表的DataField 的类型相同。
ListField
由将用于填充该列表的 RowSource 所指定的记录集中的一个字段名称。
注意 DataList 和 DataCombo 控件也可以与单个数据控件一起使用。要实现这一点,可以将 DataSource 和 RowSource 属性设置为同一个数据控件,并且将 DataField 和 BoundColumn 属性设置为该数据控件的记录集中的同一个字段。在这种情形下,将使用 ListField 的值来填充该列表,且这些值来自于被更新的同一个记录集。如果指定了一个 ListField 属性,但没有设置 BoundColumn 属性,则 BoundColumn 将自动被设置为 ListField 字段。
属性 描述
DataSource
DataList 或 DataCombo 所绑定的数据控件的名称。
DataField
由 DataSource 属性所指定的记录集中的一个字段名称。这个字段将用于决定在列表中高亮显示哪一个元素。如果作出了新的选择,则它就是当移动到一个新记录时所需更新的字段。
RowSource
将用于填充列表的数据控件的名称。
BoundColumn
由 RowSource 属性所指定的记录集中的一个字段名称。这个字段必须和将用于更新该列表的DataField 的类型相同。
ListField
由将用于填充该列表的 RowSource 所指定的记录集中的一个字段名称。
注意 DataList 和 DataCombo 控件也可以与单个数据控件一起使用。要实现这一点,可以将 DataSource 和 RowSource 属性设置为同一个数据控件,并且将 DataField 和 BoundColumn 属性设置为该数据控件的记录集中的同一个字段。在这种情形下,将使用 ListField 的值来填充该列表,且这些值来自于被更新的同一个记录集。如果指定了一个 ListField 属性,但没有设置 BoundColumn 属性,则 BoundColumn 将自动被设置为 ListField 字段。
展开全部
我试了绝对每问题
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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |