Sub resultgrid_SelectedIndexChanged(sender As Object, e As EventArgs)
dvis()
textbox11.text=resultgrid.selecteditem.cells(3).text
textbox6.text=resultgrid.selecteditem.cells(4).text
textbox7.text=resultgrid.selecteditem.cells(5).text
textbox8.text=resultgrid.selecteditem.cells(6).text
textbox9.text=resultgrid.selecteditem.cells(7).text
'textbox10.text=resultgrid.selecteditem.cells(8).text
textbox12.text=resultgrid.selecteditem.cells(8).text
End Sub
Sub Button6_Click(sender As Object, e As EventArgs)
dim myconnection as new sqlconnection("server=wjs-1;database=gangjian;trusted_connection=yes")
dim updatestr as string
updatestr="update buttle set producter='"+textbox11.text+"',gplx='"+textbox6.text+"',producttime='"+textbox7.text+"',enterprice='"+textbox8.text+"',jzrq='"+textbox9.text+"',remark='"+textbox12.text+"'" _
& " where bianhao=@bh"
dim upcmd as sqlcommand = new sqlcommand(updatestr,myconnection)
upcmd.parameters.add(new sqlparameter("@bh",sqldbtype.nvarchar,15))
upcmd.parameters("@bh").value=resultgrid.selecteditem.cells(2).text
response.write(updatestr)
myconnection.open()
try
upcmd.executenonquery()
myconnection.close()
message.text="修改成功“
catch exc as sqlexception
message.text="错误,无法修改数据“
bindsource()
end try