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 字段。
启帆信息
2024-11-19 广告
2024-11-19 广告
启帆信息是英伟达中国区代理商,原厂授权代理,提供全面的软件技术解决方案以及NVIDIA以太网产品、交换机等产品,欢迎前来咨询!...
点击进入详情页
本回答由启帆信息提供
展开全部
我试了绝对每问题
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询