我把代码帖出来了,大家看一下,哪儿错了`~~

错误提示出现在sub update_click(sender as object,e as eventargs)这个模块的strsql这条语句上~


Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not IsPostBack Then
Call mydatabind()
End If
End Sub
Sub mydatabind()
Dim conn As New SqlConnection("server=(local);database=xf;uid=sa;pwd=997mb;")
Dim newid As String = Request.QueryString("nid")
Dim strsql As String
strsql = "select * from news where nid='" & newid & "'"
Dim cmd As New SqlCommand(strsql, conn)
Dim adp As New SqlDataAdapter(cmd)
Dim ds As New DataSet
adp.Fill(ds, "news")
DataList1.DataSource = ds
DataList1.DataBind()
End Sub
Sub update_click(ByVal sender As Object, ByVal e As EventArgs)
Dim conn As New SqlConnection("server=(local);database=xf;uid=sa;pwd=997mb;")
Dim strsql As String
strsql = "update news set nid='" & textbox1.Text & "',ntitle='" & textbox2.Text & "',ndetail='" & textbox3.Text & "',ntime='" & textbox4.Text & "'"
Dim cmd As New SqlCommand(strsql, conn)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
label1.Text = "修改成功!"
Call mydatabind()
End Sub

我知道原因了,但我不知道到错误的原因,还是执行不了,帮我看一下程序,是哪儿错了~~

我都检查了两天了,都没有看出来

VS里提示cmd,adp,ds,strsql里面的值为nothing

但nid里面有值

还有其他原因的错误吗~~~~???????

我调试的时候,

没有提示出错,

就是点击修改按钮的时候出现的这个问题.

还有其他的毛病吗?

我都找了两天了,还没有找到毛病呢~~~


麻烦各位了~~

我加了try ...catch...了,提示还是那的错~~

我的控件ID也没有错误的..