Protected Sub GridView1_RowUpdated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating
Dim connstring As SqlConnection
connstring = New SqlConnection("data source=yaozc;initial catalog=ssenior;integrated security=true")
' Dim connstring As String = "data source=yaozc;initial catalog=ssenior;integrated security=true"
Dim sqlstring As String = "select * from examfinish"
Dim sqldataadapter1 As New SqlDataAdapter(sqlstring, connstring)
connstring.Open()
Dim dataset1 As New DataSet()
sqlstr = "UPDATE examfinish SET re = @re " + "WHERE name = @name"
sqldataadapter1.Fill(dataset1, "examfinish")
sqldataadapter1.UpdateCommand = New SqlCommand(sqlstr, connstring)
sqldataadapter1.UpdateCommand.Parameters.Add("@re", SqlDbType.NVarChar, 20, "re")
sqldataadapter1.UpdateCommand.Parameters.Add("@name", SqlDbType.NVarChar, 20, "name")
sqldataadapter1.Update(dataset1, "examfinish")
GridView1.DataSource = dataset1.Tables("examfinish").DefaultView
GridView1.DataBind()
connstring.Close()
Dim connstring As SqlConnection
connstring = New SqlConnection("data source=yaozc;initial catalog=ssenior;integrated security=true")
' Dim connstring As String = "data source=yaozc;initial catalog=ssenior;integrated security=true"
Dim sqlstring As String = "select * from examfinish"
Dim sqldataadapter1 As New SqlDataAdapter(sqlstring, connstring)
connstring.Open()
Dim dataset1 As New DataSet()
sqlstr = "UPDATE examfinish SET re = @re " + "WHERE name = @name"
sqldataadapter1.Fill(dataset1, "examfinish")
sqldataadapter1.UpdateCommand = New SqlCommand(sqlstr, connstring)
sqldataadapter1.UpdateCommand.Parameters.Add("@re", SqlDbType.NVarChar, 20, "re")
sqldataadapter1.UpdateCommand.Parameters.Add("@name", SqlDbType.NVarChar, 20, "name")
sqldataadapter1.Update(dataset1, "examfinish")
GridView1.DataSource = dataset1.Tables("examfinish").DefaultView
GridView1.DataBind()
connstring.Close()
If IsNumeric(CType(GridView2.Rows(e.RowIndex).FindControl("TextBox3"), TextBox).Text) = False Then
Response.Write("<script language=javascript>alert('必须输入数字!!');history.go(-1)</script>")
Response.End()
End If Dim conn As String = System.Configuration.ConfigurationManager.ConnectionStrings("znhConnectionStringall").ToString Dim comm As SqlCommand
comm = New SqlCommand("update cust_item set item_xcpage='" & CType(GridView2.Rows(e.RowIndex).FindControl("TextBox4"), TextBox).Text & " ',item_jzpage='" & CType(GridView2.Rows(e.RowIndex).FindControl("TextBox5"), TextBox).Text & "',item_tsyq='" & CType(GridView2.Rows(e.RowIndex).FindControl("TextBox6"), TextBox).Text & "',item_num='" & CType(GridView2.Rows(e.RowIndex).FindControl("TextBox3"), TextBox).Text & "',rapid_time='" & CType(GridView2.Rows(e.RowIndex).FindControl("TextBox1"), TextBox).Text & "' where custitem_id='" & CType(GridView2.Rows(e.RowIndex).FindControl("CheckBox1"), CheckBox).Text & "'", New SqlClient.SqlConnection(conn)) comm.Connection.Open()
comm.ExecuteNonQuery() GridView2.EditIndex = -1 Dim sql1 As String = "select custitem_id,custdo_id,item_type,item_name,item_size,item_xcpage,item_jzpage,item_tsyq,item_num,item_price,item_ok,cp,p_time,mem_gh,moyw,convert(varchar,rapid_time,2)rapid_time from cust_item where item_ok=0 and custdo_id='" & Session("id") & "'" Dim adapter1 As New SqlDataAdapter(sql1, conn)
Dim dataset1 As New DataSet
adapter1.Fill(dataset1) GridView2.DataSource = dataset1.Tables(0)
GridView2.DataBind()
End Sub