不太难的问题,DATASET
flers 2003-11-27 02:32:03 '编辑命令
Sub datagrid_editcommand(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
DataGrid1.EditItemIndex = e.Item.ItemIndex
datagridbind()
End Sub
'取消命令
Sub datagrid_cancelcommand(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
DataGrid1.EditItemIndex = -1
datagridbind()
End Sub
'提交编辑命令
Sub datagrid_updatecommand(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
Dim mysm, myfj As TextBox
mysm = e.Item.Cells(7).Controls(0)
myfj = e.Item.Cells(8).Controls(0)
e.Item.Cells(7).Text = mysm.Text
e.Item.Cells(8).Text = myfj.Text
'tempds.Tables("dstable").Rows(0).Item(7) = mysm.Text
'tempds.Tables("dstable").Rows(0).Item(8) = myfj.Text
DataGrid1.EditItemIndex = -1
'DataGrid1.DataSource = tempds.Tables("dstable").DefaultView
'DataGrid1.DataSource = myds.Tables("dstable")
'DataGrid1.DataBind()
End Sub
'绑定数据
Sub datagridbind()
chang()
Dim mysql As String
Dim i As Int16
Dim myadapter As SqlDataAdapter
mysql = "select * from khyqb where " & sqltj
myconn.Open()
myadapter = New SqlDataAdapter(mysql, myconn)
If sqltj = "" Then
myadapter.SelectCommand.Cancel()
Exit Sub
Else
myadapter.Fill(myds, "dstable")
DataGrid1.DataSource = myds.Tables(0).DefaultView
DataGrid1.DataBind()
End If
End Sub
问题:当点击编辑后原来已编辑好的数据不见了,如果去掉编辑命令中的DATAGRIDBIND的话,必须点两次编辑才能显示出编辑框??