Private Sub tbar_ButtonClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbarMain.ButtonClick
Dim index As Integer = CType(sender, Microsoft.Web.UI.WebControls.ToolbarButton).Index
Select Case (index)
Case 0
'删除
RunScript(Me, "if(window.confirm('确实要删除吗?') == true){...;}else{....;}")