16,718
社区成员
发帖
与我相关
我的任务
分享
'更新
Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As GridViewUpdateEventArgs)
sqlcon = New SqlConnection(strCon)
Dim sqlstr As String = (((((((((("update WIP_Data set Materiel_Supplier='" + DirectCast((GridView1.Rows(e.RowIndex).Cells(38).Controls(0)), TextBox).Text.ToString().Trim() & "',Materiel_No='") + DirectCast((GridView1.Rows(e.RowIndex).Cells(47).Controls(0)), TextBox).Text.ToString().Trim() & "' where id='") + GridView1.DataKeys(e.RowIndex).Value.ToString() & "'"
sqlcom = New SqlCommand(sqlstr, sqlcon)
sqlcon.Open()
sqlcom.ExecuteNonQuery()
sqlcon.Close()
GridView1.EditIndex = -1
bind()
End Sub
Dim CommandSelWip As New SqlCommand
CommandSelWip.Connection = Conn
CommandSelWip.CommandText = "SelectWIP_Data"
CommandSelWip.CommandType = CommandType.StoredProcedure
If WhereString = "" Then
CommandSelWip.Parameters.Add("@WhereString", SqlDbType.VarChar).Value = ""
Else
CommandSelWip.Parameters.Add("@WhereString", SqlDbType.VarChar).Value = WhereString
End If
CommandSelWip.ExecuteNonQuery()
SelRs = CommandSelWip.ExecuteReader
Me.GridView1.DataSource = SelRs
Me.GridView1.DataBind()
'绑定
Public Sub bind()
Dim sqlstr As String = "select * from WIP_Data "
sqlcon = New SqlConnection(strCon)
Dim myda As New SqlDataAdapter(sqlstr, sqlcon)
Dim myds As New DataSet()
sqlcon.Open()
myda.Fill(myds, "WIP_Data")
GridView1.DataSource = myds
GridView1.DataKeyNames = New String() {"id"}
GridView1.PageIndex = GridView1.PageIndex
'主键
GridView1.DataBind()
sqlcon.Close()
End Sub
bind()、GridView1.DataBind()、Me.GridView1.DataSource = SelRs
GridView1.DataBind() GridView1.DataSource = myds
这些的问题,请大家帮忙看看。。