DataList1.SelectedIndex = e.Item.ItemIndex
Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(".") & "/db1.mdb")
Dim strSql As String = "Select * from guestbook;select * from message"
Dim objAdapter As New OleDbDataAdapter(strSql, objConn)
Dim objDs As New DataSet()
objAdapter.Fill(objDs)
objDs.Tables(0).TableName = "guestbook"
objDs.Tables(1).TableName = "message"
Dim Parent As DataColumn = objDs.Tables("guestbook").Columns("id")
Dim Child As DataColumn = objDs.Tables("message").Columns("id_reply")
objDs.Relations.Add("RelationName", Parent, Child)
DataList1.DataSource = objDs.Tables("guestbook").DefaultView
DataList1.EditItemIndex = -1
DataList1.DataBind()
我要实现datalist嵌套一个repeater, 错误提示是“ 在 SQL 语句结尾之后找到字符”
Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(".") & "/db1.mdb")
Dim strSql As String = "Select * from guestbook;select * from message"
Dim objAdapter As New OleDbDataAdapter(strSql, objConn)
Dim objDs As New DataSet()
objAdapter.Fill(objDs)
objDs.Tables(0).TableName = "guestbook"
objDs.Tables(1).TableName = "message"
Dim Parent As DataColumn = objDs.Tables("guestbook").Columns("id")
Dim Child As DataColumn = objDs.Tables("message").Columns("id_reply")
objDs.Relations.Add("RelationName", Parent, Child)
DataList1.DataSource = objDs.Tables("guestbook").DefaultView
DataList1.EditItemIndex = -1
DataList1.DataBind()
我要实现datalist嵌套一个repeater, 错误提示是“ 在 SQL 语句结尾之后找到字符”
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货