给初学的朋友们，datagrid用xml作为数据源，并且有更新，删除和排序的操作（VB）

ELSE

response.write ("Can@#t sort until editing is done!")

END IF

End Sub

Sub DataDelete(Sender As Object, E As DataGridCommandEventArgs)

DIM deletekey as string

IF MyDataGrid.EditItemIndex=-1 THEN

deletekey=MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))

response.write ("deleted " & deletekey)

ELSE

response.write ("Can@#t delete until editing is done!")

END IF

END SUB

Sub DataEdit(Sender As Object, E As DataGridCommandEventArgs)

DIM editkey as string

MyDataGrid.EditItemIndex = Cint(E.Item.ItemIndex)

editkey=MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))

@#response.write ("To Be Edited" & editkey)

DataLoad("")

End Sub

Sub DataCancel(Sender As Object, E As DataGridCommandEventArgs)