Dim strsql As String = "select * from message1 where caption=" & Session("caption") & ""
Dim da As New SqlDataAdapter(strsql, Conn)
Conn.Open()
da.Fill(ds, "message1")
Dim deletesql = "Delete from message1 where caption=" & Session("caption") & ""
Dim comm As New SqlCommand(deletesql, Conn)
comm.ExecuteNonQuery()
ds.Tables("message1").Clear()
Dim str3 As String = "select * from message1 "
da = New SqlDataAdapter(str3, Conn)
da.Fill(ds, "message1")
Dim dv As DataView = ds.Tables("message1").DefaultView
DataGrid1.DataSource = dv
DataGrid1.DataBind()
Response.Write("<script defer>alert('处理成功');</script>")
Conn.Close()

你說哪錯了？我想問是你運行後刪除沒有成功還是程式運行時就出錯了？

运行后没有删除啊！～～～急啊！～～～帮帮忙啊！～～

Dim deletesql = "Delete from message1 where caption=" & Session("caption") & ""
你把這條語句用斷點，得到全部語句後，拿到SQL中運行一下，看是不是語句錯誤。

Session("caption") 这个是字符串吗？.
如果你不知道,你可以加个try..catch..来看一下错误信息是什么.

断点 断点! 4楼说的是查找这种错误最正确的方法

另外 Dim deletesql = "Delete from message1 where caption=" & Session("caption") & "" 最后那个""根本没有用

如果caption是字符类型的应该写成 Dim deletesql = "Delete from message1 where caption= '" & Session("caption") & "'"

第 1 行: '《' 附近有语法错误。
出现这样的错误！～～没见过

第 1 行: '《' 附近有语法错误。
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: System.Data.SqlClient.SqlException: 第 1 行: '《' 附近有语法错误。

源错误:

行 36： Dim da As New SqlDataAdapter(strsql, Conn)
行 37： Conn.Open()
行 38： da.Fill(ds, "message1")
行 39： '按ID号删除记录
行 40： Dim deletesql = "Delete from message1 where caption= '" & Session("caption") & "'"

除了上面他们所说的，你看一下这一句
Dim dv As DataView = ds.Tables("message1").DefaultView
是不是有什么问题。