各位兄台,我开始碰到的问题是不能翻页,后来去掉 Page_Load 方法里面的第一个 if 语句后就可以翻页了,可是这样改了就不能修改了,不能修改是指取得的值不是新输入的,而是老的值,诚请兄台们不吝赐教!!代码如下Private Sub Page_Load(......) Handles MyBase.Load
If Not (IsPostBack) Then
If Not (Context.User.Identity.IsAuthenticated ) Then
Label1.Text = "你无权访问此页面!"
Label1.Visible = True
Else
BindGrid()
End If
End If
End Sub'修改
Sub MyDataGrid_Edit(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
DataGrid1.EditItemIndex = CInt(E.Item.ItemIndex)
BindGrid()
End Sub'取消
Sub MyDataGrid_Cancel(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
DataGrid1.EditItemIndex = -1
BindGrid()
End Sub'保存
Sub MyDataGrid_Update(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
.
.
.
Dim CurrentDropList As DropDownList
Dim CurrentTextBox1, CurrentTextBox2 As TextBox
Dim startdt, enddt, rolesv, statev As String
Dim uid As String = DataGrid1.DataKeys(CInt(E.Item.ItemIndex)) CurrentTextBox1 = E.Item.FindControl("edit_startdate")
CurrentTextBox2 = E.Item.FindControl("edit_enddate")
startdt = CurrentTextBox1.Text
enddt = CurrentTextBox2.Text
CurrentDropList = E.Item.FindControl("edit_roles")
rolesv = CurrentDropList.SelectedValue
CurrentDropList = E.Item.FindControl("edit_state")
statev = CurrentDropList.SelectedValue Dim updateid As Integer
updateid = dataUser.Open_Service(uid, startdt, enddt, rolesv, statev)
If updateid = 1 Then
Label1.Text = "修改成功!"
Label1.Visible = True
Else
Label1.Text = "修改失败!"
Label1.Visible = True
End IfEnd SubSub BindGrid()
Dim myUserList As New DataSet
Dim myUserObject As New User Try
myUserList = myUserObject.RetrieveAll("1")
If myUserList Is Nothing Then
Label1.Text = "还没有个人会员信息!"
Else
myUserList.Tables(0).Columns(0).ColumnName() = "UserID"
myUserList.Tables(0).Columns(1).ColumnName() = "Loginid"
.
.
. DataGrid1.DataSource = myUserList.Tables(0)
DataGrid1.Columns(0).Visible = False
DataGrid1.DataBind()
Label1.Text = "共有 " + CStr(myUserList.Tables(0).Rows.Count) + " 位会员!"
End If
Catch ex As Exception
AppException.LogError(ex.Message.ToString)'输出到错误日志文件
End Try
End Sub
Private Sub DataGrid1_PageIndexChanged(.... ) Handles DataGrid1.PageIndexChanged
DataGrid1.CurrentPageIndex() = e.NewPageIndex()
DataGrid1.DataBind()
End Sub
If Not (IsPostBack) Then
If Not (Context.User.Identity.IsAuthenticated ) Then
Label1.Text = "你无权访问此页面!"
Label1.Visible = True
Else
BindGrid()
End If
End If
End Sub'修改
Sub MyDataGrid_Edit(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
DataGrid1.EditItemIndex = CInt(E.Item.ItemIndex)
BindGrid()
End Sub'取消
Sub MyDataGrid_Cancel(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
DataGrid1.EditItemIndex = -1
BindGrid()
End Sub'保存
Sub MyDataGrid_Update(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
.
.
.
Dim CurrentDropList As DropDownList
Dim CurrentTextBox1, CurrentTextBox2 As TextBox
Dim startdt, enddt, rolesv, statev As String
Dim uid As String = DataGrid1.DataKeys(CInt(E.Item.ItemIndex)) CurrentTextBox1 = E.Item.FindControl("edit_startdate")
CurrentTextBox2 = E.Item.FindControl("edit_enddate")
startdt = CurrentTextBox1.Text
enddt = CurrentTextBox2.Text
CurrentDropList = E.Item.FindControl("edit_roles")
rolesv = CurrentDropList.SelectedValue
CurrentDropList = E.Item.FindControl("edit_state")
statev = CurrentDropList.SelectedValue Dim updateid As Integer
updateid = dataUser.Open_Service(uid, startdt, enddt, rolesv, statev)
If updateid = 1 Then
Label1.Text = "修改成功!"
Label1.Visible = True
Else
Label1.Text = "修改失败!"
Label1.Visible = True
End IfEnd SubSub BindGrid()
Dim myUserList As New DataSet
Dim myUserObject As New User Try
myUserList = myUserObject.RetrieveAll("1")
If myUserList Is Nothing Then
Label1.Text = "还没有个人会员信息!"
Else
myUserList.Tables(0).Columns(0).ColumnName() = "UserID"
myUserList.Tables(0).Columns(1).ColumnName() = "Loginid"
.
.
. DataGrid1.DataSource = myUserList.Tables(0)
DataGrid1.Columns(0).Visible = False
DataGrid1.DataBind()
Label1.Text = "共有 " + CStr(myUserList.Tables(0).Rows.Count) + " 位会员!"
End If
Catch ex As Exception
AppException.LogError(ex.Message.ToString)'输出到错误日志文件
End Try
End Sub
Private Sub DataGrid1_PageIndexChanged(.... ) Handles DataGrid1.PageIndexChanged
DataGrid1.CurrentPageIndex() = e.NewPageIndex()
DataGrid1.DataBind()
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货