声明我的测试只是测试了建表更改后源代码如下,再不行我就没有办法了,祝你好运! Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ' Dim myconn As New System.Data.SqlClient.SqlConnection("asdf") 'myconn.Open() ' Dim sql = "select postid,subject,username,replies,date1,email,newpost.userid as userid from newpost,user_login where user_login.id=newpost.userid order by postid desc" ' Dim myCmd As New System.Data.SqlClient.SqlCommand() ' myCmd = New System.Data.SqlClient.SqlCommand(sql, myconn) ' Dim myReader As System.Data.SqlClient.SqlDataReader ' myReader = myCmd.ExecuteReader Try Dim dt As New System.Data.DataTable() dt.Columns.Add("id", Type.GetType("System.Int32")) dt.Columns.Add("标题", Type.GetType("System.String")) dt.Columns.Add("作者", Type.GetType("System.String")) dt.Columns.Add("回复", Type.GetType("System.String")) dt.Columns.Add("浏览", Type.GetType("System.String")) dt.Columns.Add("E_mail", Type.GetType("System.String")) Dim dr As DataRow ' While (myReader.Read) ' dr = dt.NewRow ' dr(0) = myReader.GetInt32(0) ' dr(1) = myReader.GetString(1) & " <font color=red>" & myReader.GetDateTime(5).ToString & "</font>" '' dr(2) = "<a href=leave_word.aspx?id=" & myReader.GetInt32(7) & ">" & myReader.GetString(2) & "</a>" ' dr(3) = myReader.GetInt32(3) ' dr(4) = myReader.GetInt32(4) ' dr(5) = "<a href=mailto:" & myReader.GetString(6) & ">" & myReader.GetString(6) & "</a>" ' dt.Rows.Add(dr) ' End While ' DataGrid1.DataSource = myReader ' DataGrid1.DataBind() Finally ' myReader.Close() ' myconn.Close() End Try End Sub
你估计是没有该完
dt.Columns.Add("id", Type.GetType("System.Int32"))
dt.Columns.Add("标题", Type.GetType("System.String"))
dt.Columns.Add("作者", Type.GetType("System.String"))
dt.Columns.Add("回复", Type.GetType("System.String"))
dt.Columns.Add("浏览", Type.GetType("System.String"))
dt.Columns.Add("E_mail", Type.GetType("System.String"))
这样子就可以通过了
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' Dim myconn As New System.Data.SqlClient.SqlConnection("asdf")
'myconn.Open() ' Dim sql = "select postid,subject,username,replies,date1,email,newpost.userid as userid from newpost,user_login where user_login.id=newpost.userid order by postid desc"
' Dim myCmd As New System.Data.SqlClient.SqlCommand()
' myCmd = New System.Data.SqlClient.SqlCommand(sql, myconn)
' Dim myReader As System.Data.SqlClient.SqlDataReader
' myReader = myCmd.ExecuteReader Try
Dim dt As New System.Data.DataTable()
dt.Columns.Add("id", Type.GetType("System.Int32"))
dt.Columns.Add("标题", Type.GetType("System.String"))
dt.Columns.Add("作者", Type.GetType("System.String"))
dt.Columns.Add("回复", Type.GetType("System.String"))
dt.Columns.Add("浏览", Type.GetType("System.String"))
dt.Columns.Add("E_mail", Type.GetType("System.String"))
Dim dr As DataRow
' While (myReader.Read)
' dr = dt.NewRow
' dr(0) = myReader.GetInt32(0)
' dr(1) = myReader.GetString(1) & " <font color=red>" & myReader.GetDateTime(5).ToString & "</font>"
'' dr(2) = "<a href=leave_word.aspx?id=" & myReader.GetInt32(7) & ">" & myReader.GetString(2) & "</a>"
' dr(3) = myReader.GetInt32(3)
' dr(4) = myReader.GetInt32(4)
' dr(5) = "<a href=mailto:" & myReader.GetString(6) & ">" & myReader.GetString(6) & "</a>" ' dt.Rows.Add(dr) ' End While ' DataGrid1.DataSource = myReader
' DataGrid1.DataBind() Finally
' myReader.Close()
' myconn.Close() End Try End Sub