那儿错了?大哥帮我分析
Public Sub Confirm(Optional ByVal Message As String = "确定删除嘛?一旦删除数据无法恢复!")
Dim javascript As String = "<script language='javascript' type='text/javascript'>"
javascript += " {if(confirm(Message)){return true;}return false;} "
javascript += "</script>" If Not Page.IsClientScriptBlockRegistered("SHEN-XIAO-YUAN-function") Then
Page.RegisterClientScriptBlock("SHEN-XIAO-YUAN-function", javascript)
End If
End Sub
Public Sub Confirm(Optional ByVal Message As String = "确定删除嘛?一旦删除数据无法恢复!")
Dim javascript As String = "<script language='javascript' type='text/javascript'>"
javascript += " {if(confirm(Message)){return true;}return false;} "
javascript += "</script>" If Not Page.IsClientScriptBlockRegistered("SHEN-XIAO-YUAN-function") Then
Page.RegisterClientScriptBlock("SHEN-XIAO-YUAN-function", javascript)
End If
End Sub
javascript += " {if(confirm("+Message+")){return true;}return false;} "
我想把这段代码放在判断是否确认删除时弹出
Private Sub btnDelAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelAll.Click
Dim n As Integer = 0
Dim i As Int16
Dim chkSelected As New CheckBox
Dim javascript As String = "被选中"
Confirm()
For i = 0 To Me.DataGrid2.Items.Count - 1
chkSelected = CType(Me.DataGrid2.Items(i).FindControl("chkDelete"), CheckBox)
If chkSelected.Checked = True Then
Try
javascript += Me.DataGrid2.Items(i).Cells(1).Text & Space(2)
n = DeleteAll(Me.DataGrid2.Items(i).Cells(1).Text)
Catch ex As Exception
#If DEBUG Then
Session("Error") = ex.ToString
Throw ex
#End If
End Try
End If
Next
end
还有为什么我的datagrid控件党没有数据时会拉的很长
我该怎么改啊
what does it mean????
using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;namespace DataGridconfirm
{
/// <summary>
/// WebForm1 的摘要说明。
/// </summary>
public class WebForm1 : System.Web.UI.Page
{
protected System.Web.UI.WebControls.DataGrid dg;
private void Page_Load(object sender, System.EventArgs e)
{
// 在此处放置用户代码以初始化页面
if (!Page.IsPostBack)
{
dg.DataSource= CreateDataSource() ;
dg.DataBind();
}
}
ICollection CreateDataSource()
{
DataTable dt = new DataTable();
DataRow dr;
dt.Columns.Add(new DataColumn("IntegerValue", typeof(Int32)));
dt.Columns.Add(new DataColumn("StringValue", typeof(string)));
dt.Columns.Add(new DataColumn("CurrencyValue", typeof(double)));
for (int i = 0; i < 9; i++)
{
dr = dt.NewRow();
dr[0] = i;
dr[1] = "Item " + i.ToString();
dr[2] = 1.23 * (i + 1);
dt.Rows.Add(dr);
}
DataView dv = new DataView(dt);
return dv;
}
#region Web 窗体设计器生成的代码
override protected void OnInit(EventArgs e)
{
//
// CODEGEN: 该调用是 ASP.NET Web 窗体设计器所必需的。
//
InitializeComponent();
base.OnInit(e);
}
/// <summary>
/// 设计器支持所需的方法 - 不要使用代码编辑器修改
/// 此方法的内容。
/// </summary>
private void InitializeComponent()
{
this.dg.ItemCreated += new System.Web.UI.WebControls.DataGridItemEventHandler(this.dg_ItemCreated);
this.dg.DeleteCommand += new System.Web.UI.WebControls.DataGridCommandEventHandler(this.dg_DeleteCommand);
this.Load += new System.EventHandler(this.Page_Load); }
#endregion private void dg_ItemCreated(object sender, System.Web.UI.WebControls.DataGridItemEventArgs e)
{
if(e.Item.ItemIndex<0) return;
System.Web.UI.WebControls.LinkButton likButton;
if(e.Item.ItemType == ListItemType.Item || e.Item.ItemType == ListItemType.AlternatingItem)
{
likButton=(LinkButton)e.Item.Cells[0].Controls[0];
likButton.Attributes.Add("onclick","return confirm('您真的要删除此行吗?');");
}
} private void dg_DeleteCommand(object source, System.Web.UI.WebControls.DataGridCommandEventArgs e)
{
Response.Write("<script>alert('你删除的是第"+e.Item.ItemIndex+"行')</script>");
}
}
}
i have update it well
怎么样控制datagrid控件的长度?
Dim item As DataGridItem
Dim chkSel As CheckBox
Dim m As Int16 = 0
If CType(sender, Button).Text = "全部选中" Then
For Each item In Me.DataGrid2.Items
chkSel = CType(item.FindControl("chkDelete"), CheckBox)
If chkSel.Checked = False Then
chkSel.Checked = True
m = 0
Else
m = 1
End If
Next
If m = 0 Then
btnChooseAll.Text = "取消选中"
End If ElseIf CType(sender, Button).Text = "取消选中" Then
For Each item In Me.DataGrid2.Items
chkSel = CType(item.FindControl("chkDelete"), CheckBox)
If chkSel.Checked = True Then
chkSel.Checked = False
m = 0
Else
m = 1
End If
Next
If m = 0 Then
btnChooseAll.Text = "全部选中"
End If End If
End Sub
为什么这段代码不能执行 elseif 中的代码