 |
|
|
 |
|
 |
hi,
i have used 3 autogenerated columns and a template column for checkbox in datagrid in asp.net vs2003
I have used the same code
chkSel = DGItem.FindControl("chk")
any solutions
|
|
|
|
 |
|
 |
hai friends,
my name is kishore kumar
actually i am getting one problem ,but i am unable to solve it
please help me
That is :
i will enter text(number), that should be changed into currency formate
that means suppose if i enter 99 in a textbox ,that shuld be changed to 99.00
and i have to show it as currency formate
i have three text boxes
in two text boxes, i will enter values , in third text box, the multiply of those two text boxes values shuld be displayed with currency formate
if i enter
first text box : 9
second text box : 11
out put :
third text box: 99.00 ,shuld be displayed
please help me,that should be done at client side
regards
kishore
|
|
|
|
 |
|
 |
How to add the multiple edit in this auto generated script using asp.net maker
on APPROVAL & DATE_APP field.
Please help
<%@ Page Language="VB" %>
<%@ OutputCache Location="None" %>
<%@ Import Namespace="System.ComponentModel" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<html>
<head>
<title></title>
<style type="text/css">
<!--
INPUT, TEXTAREA, SELECT {font-family: Tahoma; font-size: 8pt;}
.aspnetmaker {font-family: Tahoma; font-size: 8pt;}
.ewTableOrderIndicator {font-family: Webdings;}
-->
</style>
<meta name="generator" content="ASP.NET Maker v1.1.0.3" />
</head>
<body leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%@ Register TagPrefix="ew" TagName="db" Src="ewdb.ascx" %>
<ew:db id="ewdb" runat="server" />
<%@ Register TagPrefix="ew" TagName="header" Src="ewheader.ascx" %>
<ew:header id="ewheader" runat="server" />
<form
method="post" runat="server">
TABLE: SIM APPROVE
<%@ Register TagPrefix="ewv" NameSpace="EW.Validators" Assembly="ewvalidators" %>
<script language="JavaScript" src="ew.js"></script>
<asp:ValidationSummary id="xevs_SIM_ACTIVE" CssClass="aspnetmaker" runat="server"
HeaderText="The following errors occur:"
ShowSummary="False"
Display="None"
ShowMessageBox="True"
ForeColor="#FF0000" />
<asp:LinkButton id="btnClearSearch" Text="Show all" OnClick="btnClearSearch_Click" CssClass="aspnetmaker" runat="server" />
<asp:Hyperlink id="lnkSearch" Text="Advanced Search" NavigateUrl="sim_activesearch.aspx" CssClass="aspnetmaker" runat="server" />
|
<asp:Label id="lblMessage" forecolor="#FF0000" CssClass="aspnetmaker" runat="server" />
<asp:Label id="lblSql" CssClass="aspnetmaker" runat="server" />
<% '-- Numeric Pager start -- %>
<asp:Panel id="pnlPager" runat="server">
| <asp:PlaceHolder id="ctlNumericPages" runat="server" /> |
Records <asp:Label id="lblStartRec" runat="server" /> to <asp:Label id="lblStopRec" runat="server" /> of <asp:Label id="lblTotalRecs" runat="server" />
|
<asp:label ID="lblRecordCount" Visible="False" Text="0" Runat="server" />
<asp:label ID="lblCurrentIndex" Visible="False" Text="0" Runat="server" />
<asp:label ID="lblPageSize" Visible="False" Text="10" Runat="server" />
<asp:label ID="lblNoOfPageLinks" Visible="False" Text="10" Runat="server" />
<% '-- Numeric Pager end -- %>
<asp:Panel id="pnlDataGrid" runat="server">
<asp:DataGrid id="ctlList" runat="server"
DataKeyField="SIM_NO"
OnItemCommand="ctlList_ItemCommand"
BackColor="#CCCCCC"
CellPadding="2"
CellSpacing="1"
BorderWidth="0"
CssClass="ewTable"
AllowPaging="False"
AllowSorting="True"
OnSortCommand="ctlList_Sort"
OnItemDataBound="ctlList_ItemDataBound"
AutoGenerateColumns="False">
<HeaderStyle VerticalAlign="Top" BackColor="#336699" ForeColor="#FFFFFF" CssClass="aspnetmaker" />
<asp:TemplateColumn>
<asp:Hyperlink id="lnkEdit" Text="Edit" NavigateUrl='<%# "sim_activeedit.aspx?key=" + DataBinder.Eval(Container.DataItem, "SIM_NO").ToString() %>' CssClass="aspnetmaker" runat="server" />
<asp:TemplateColumn HeaderText="SIM NO (*)" SortExpression="SIM_NO">
<asp:Label id="x_SIM_NO" CssClass="aspnetmaker" runat="server" />
<asp:TemplateColumn HeaderText="SIM STATUS (*)" SortExpression="SIM_STATUS">
<asp:Label id="x_SIM_STATUS" CssClass="aspnetmaker" runat="server" />
<asp:TemplateColumn HeaderText="DATE (*)" SortExpression="DATE">
<asp:Label id="x_DATE" CssClass="aspnetmaker" runat="server" />
<asp:TemplateColumn HeaderText="COMM " SortExpression="COMM">
<asp:Label id="x_COMM" CssClass="aspnetmaker" runat="server" />
<asp:TemplateColumn HeaderText="APPROVAL " SortExpression="APPROVAL">
<asp:Label id="x_APPROVAL" CssClass="aspnetmaker" runat="server" />
<asp:TemplateColumn HeaderText="DATE APP (*)" SortExpression="DATE_APP">
<asp:Label id="x_DATE_APP" CssClass="aspnetmaker" runat="server" />
<%'-- start Detail Controls --%>
<%'-- end Detail Controls --%>
</form>
<%@ Register TagPrefix="ew" TagName="footer" Src="ewfooter.ascx" %>
<ew:footer id="ewfooter" runat="server" />
</body>
</html>
<script language="VB" runat="server">
Dim sDbWhere As String
Dim sKey As String
Dim sTmp As String
' User Login Name
Dim sLoginName As String
' User Level Related
Dim iAllowAdd As Integer = 1
Dim iAllowDelete As Integer = 2
Dim iAllowEdit As Integer = 4
Dim iAllowView As Integer = 8
Dim iAllowList As Integer = 8
Dim iAllowSearch As Integer = 8
Dim iAllowAdmin As Integer = 16
Dim bCanAdd As Boolean
Dim bCanDelete As Boolean
Dim bCanEdit As Boolean
Dim bCanView As Boolean
Dim bCanList As Boolean
Dim bCanSearch As Boolean
Dim bCanAdmin As Boolean
Dim iCurIdx As Integer
Dim iCurSec As Integer
'*********************
' Page Load Handler
'*********************
Private Sub Page_Load(ByVal s As System.Object, ByVal e As System.EventArgs)
' Load Login Name
LoadLoginName()
' Load User Level Secruity
LoadUserLevel()
' Disable Controls if necessary
If Not bCanEdit Then
ctlList.Columns(0).Visible = False
End If
' Set and Clear Message
lblMessage.Text = Session("msg")
Session("msg") = ""
If Not Page.IsPostback Then
' Reload Page Properties from Session
ReLoadPageProperties()
' Get Advanced Search Parameters
AdvancedSearchRtn()
' Bind Data Control
BindData()
Else
' Regenerate Dynamic Control first for Numeric Pager
GenNumericLinks(CInt(lblRecordCount.Text), CInt(lblCurrentIndex.Text), _
CInt(lblPageSize.Text), CInt(lblNoOfPageLinks.Text))
Page.Validate()
If (Not Page.IsValid) Then
Dim sMsg As String
Dim oValidator As IValidator
For Each oValidator In Page.Validators
If oValidator.IsValid = False Then
sMsg += " " & oValidator.ErrorMessage
End If
Next
lblMessage.Text = sMsg
End If
End If
End Sub
'****************
' Sort Handler
'****************
Protected Sub ctlList_Sort(ByVal s As Object, ByVal e As DataGridSortCommandEventArgs)
Dim sSortExpression As String, sSortOrder As String
' Update the Current Page Number from the Parameter Values
sSortExpression = e.SortExpression.ToString()
sSortOrder = ""
SortRtn(sSortExpression,sSortOrder)
'Bind Data Control
BindData()
End Sub
'****************
' Sort Routine
'****************
Private Sub SortRtn(ByVal sSortExpression As String, ByVal sSortOrder As String)
' Reset Page Properties
ResetPageProperties()
' Load Sort Parameters from Session
If sSortExpression = Session("SIM_ACTIVE_SortExpression") Then
If Session("SIM_ACTIVE_SortOrder") = "ASC" Then
Session("SIM_ACTIVE_SortOrder") = "DESC"
Else
Session("SIM_ACTIVE_SortOrder") = "ASC"
End If
Else
If sSortOrder = "" Then
Session("SIM_ACTIVE_SortOrder") = "ASC"
Else
Session("SIM_ACTIVE_SortOrder") = sSortOrder
End If
End If
Session("SIM_ACTIVE_SortExpression") = sSortExpression
' Field SIM_NO
If Session("SIM_ACTIVE_SortExpression") = "SIM_NO" Then
If Session("SIM_ACTIVE_SortOrder") = "ASC" Then
ctlList.Columns(1).HeaderText = "SIM NO (*) 5"
Else
ctlList.Columns(1).HeaderText = "SIM NO (*) 6"
End If
Else
ctlList.Columns(1).HeaderText = "SIM NO (*)"
End If
' Field SIM_STATUS
If Session("SIM_ACTIVE_SortExpression") = "SIM_STATUS" Then
If Session("SIM_ACTIVE_SortOrder") = "ASC" Then
ctlList.Columns(2).HeaderText = "SIM STATUS (*) 5"
Else
ctlList.Columns(2).HeaderText = "SIM STATUS (*) 6"
End If
Else
ctlList.Columns(2).HeaderText = "SIM STATUS (*)"
End If
' Field DATE
If Session("SIM_ACTIVE_SortExpression") = "DATE" Then
If Session("SIM_ACTIVE_SortOrder") = "ASC" Then
ctlList.Columns(3).HeaderText = "DATE (*) 5"
Else
ctlList.Columns(3).HeaderText = "DATE (*) 6"
End If
Else
ctlList.Columns(3).HeaderText = "DATE (*)"
End If
' Field COMM
If Session("SIM_ACTIVE_SortExpression") = "COMM" Then
If Session("SIM_ACTIVE_SortOrder") = "ASC" Then
ctlList.Columns(4).HeaderText = "COMM 5"
Else
ctlList.Columns(4).HeaderText = "COMM 6"
End If
Else
ctlList.Columns(4).HeaderText = "COMM "
End If
' Field APPROVAL
If Session("SIM_ACTIVE_SortExpression") = "APPROVAL" Then
If Session("SIM_ACTIVE_SortOrder") = "ASC" Then
ctlList.Columns(5).HeaderText = "APPROVAL 5"
Else
ctlList.Columns(5).HeaderText = "APPROVAL 6"
End If
Else
ctlList.Columns(5).HeaderText = "APPROVAL "
End If
' Field DATE_APP
If Session("SIM_ACTIVE_SortExpression") = "DATE_APP" Then
If Session("SIM_ACTIVE_SortOrder") = "ASC" Then
ctlList.Columns(6).HeaderText = "DATE APP (*) 5"
Else
ctlList.Columns(6).HeaderText = "DATE APP (*) 6"
End If
Else
ctlList.Columns(6).HeaderText = "DATE APP (*)"
End If
End Sub
'****************************************
' Reload Page Properties from Sessions
'****************************************
Private Sub ReloadPageProperties()
' Check if Reset Page
Dim sCmd As String = Request.QueryString("cmd")
If sCmd = "reset" Then
Session("SIM_ACTIVE_DbWhere") = "" ' Clear Search
Exit Sub
ElseIf sCmd = "resetall" Then
Session("SIM_ACTIVE_SortExpression") = "" ' Clear Sort
Session("SIM_ACTIVE_SortOrder") = ""
Session("SIM_ACTIVE_DbWhere") = "" ' Clear Search
Exit Sub
End If
' Reload Page/Record Index from Session
Dim sCurrentRecordIndex As String = Session("SIM_ACTIVE_recordindex")
If IsNumeric(sCurrentRecordIndex) Then
lblCurrentIndex.Text = sCurrentRecordIndex
End If
End Sub
'*************************
' Reset Page Properties
'*************************
Private Sub ResetPageProperties()
' Clear Page/Record Index
Session("SIM_ACTIVE_recordindex") = "0"
lblCurrentIndex.Text = "0"
End Sub
'**************************
' Advanced Search Routine
'**************************
Private Sub AdvancedSearchRtn()
Dim sTmp As String
Dim sTmpParm As String
Dim sArrParm() As String
Dim sSrchString As String
sSrchString = ""
sTmp = Request.QueryString("x_NO")
If sTmp <> "" Then
sTmpParm = Request.QueryString("z_NO")
sArrParm = Split(sTmpParm,",")
sSrchString += "[NO] " & _
sArrParm(0) & " " & sArrParm(1) & sTmp & sArrParm(2) & " AND "
End If
sTmp = Request.QueryString("x_SIM_NO")
If sTmp <> "" Then
sTmpParm = Request.QueryString("z_SIM_NO")
sArrParm = Split(sTmpParm,",")
sSrchString += "[SIM_NO] " & _
sArrParm(0) & " " & sArrParm(1) & sTmp & sArrParm(2) & " AND "
End If
sTmp = Request.QueryString("x_SIM_STATUS")
If sTmp <> "" Then
sTmpParm = Request.QueryString("z_SIM_STATUS")
sArrParm = Split(sTmpParm,",")
sSrchString += "[SIM_STATUS] " & _
sArrParm(0) & " " & sArrParm(1) & sTmp & sArrParm(2) & " AND "
End If
sTmp = Request.QueryString("x_DATE")
If sTmp <> "" Then
sTmpParm = Request.QueryString("z_DATE")
sArrParm = Split(sTmpParm,",")
sSrchString += "[DATE] " & _
sArrParm(0) & " " & sArrParm(1) & sTmp & sArrParm(2) & " AND "
End If
sTmp = Request.QueryString("x_COMM")
If sTmp <> "" Then
sTmpParm = Request.QueryString("z_COMM")
sArrParm = Split(sTmpParm,",")
sSrchString += "[COMM] " & _
sArrParm(0) & " " & sArrParm(1) & sTmp & sArrParm(2) & " AND "
End If
sTmp = Request.QueryString("x_APPROVAL")
If sTmp <> "" Then
sTmpParm = Request.QueryString("z_APPROVAL")
sArrParm = Split(sTmpParm,",")
sSrchString += "[APPROVAL] " & _
sArrParm(0) & " " & sArrParm(1) & sTmp & sArrParm(2) & " AND "
End If
sTmp = Request.QueryString("x_DATE_APP")
If sTmp <> "" Then
sTmpParm = Request.QueryString("z_DATE_APP")
sArrParm = Split(sTmpParm,",")
sSrchString += "[DATE_APP] " & _
sArrParm(0) & " " & sArrParm(1) & sTmp & sArrParm(2) & " AND "
End If
If Len(sSrchString) > 0 Then
sSrchString = Left(sSrchString,Len(sSrchString)-5) ' Remove Last AND Operator
ResetPageProperties() ' Reset Page Properties
Session("SIM_ACTIVE_DbWhere") = sSrchString
End If
End Sub
'************************
' Clear Search Handler
'************************
Private Sub btnClearSearch_Click(ByVal s As System.Object, ByVal e As System.EventArgs)
ResetPageProperties() ' Reset Page Properties
Session("SIM_ACTIVE_DbWhere") = ""
' Bind to Data Control
BindData()
End Sub
'************************
' Bind Data to Control
'************************
Sub BindData()
' Get Connection String
Dim sConnStr As String = ewDB.ewConnStr
' Construct SQL statement
Dim sSelect As String
sSelect = "SELECT * FROM [SIM_ACTIVE]"
sDbWhere = Session("SIM_ACTIVE_DbWhere")
' Security Checking
If Not bCanList Then
lblMessage.Text = "No Permission"
If sDbWhere <> "" Then sDbWhere += " AND "
sDbWhere += "(0=1)" ' Filter out All Records
End If
' Construct WHERE Clause
If sDbWhere <> "" Then
sSelect += " WHERE " & sDbWhere
End If
' Construct ORDER BY Clause
Dim sDefaultOrder As String = ""
Dim sDefaultOrderType As String = ""
If Session("SIM_ACTIVE_SortExpression") <> "" Then
sSelect += " ORDER BY [" & Session("SIM_ACTIVE_SortExpression") & "] " & Session("SIM_ACTIVE_SortOrder")
ElseIf sDefaultOrder <> "" Then
sSelect += " ORDER BY [" & sDefaultOrder & "] " & sDefaultOrderType
SortRtn(sDefaultOrder,sDefaultOrderType)
End If
lblSql.Text = sSelect
' Default DataView Object
Dim dvWrk As DataView
' Get DataView
' For custom Numeric Pager
Dim sTable As String
sTable = "SIM_ACTIVE"
lblRecordCount.Text = CStr(ewDB.ewRecordCount(sConnStr,sTable,sDbWhere))
lblTotalRecs.Text = lblRecordCount.Text
lblStartRec.Text = CStr(CLng(lblCurrentIndex.Text) + 1)
If CLng(lblStartRec.Text) + CLng(lblPageSize.Text) - 1 > CLng(lblRecordCount.Text) Then
lblStopRec.Text = lblRecordCount.Text
Else
lblStopRec.Text = CStr(CLng(lblStartRec.Text) + CLng(lblPageSize.Text) - 1)
End If
' Create Numeric Links
GenNumericLinks(CLng(lblRecordCount.Text), CLng(lblCurrentIndex.Text), _
CLng(lblPageSize.Text), CLng(lblNoOfPageLinks.Text))
dvWrk = ewDB.ewDataViewPage(sConnStr, sSelect, CLng(lblCurrentIndex.Text), CLng(lblPageSize.Text))
' Check Dataview Object
If IsNothing(dvWrk) Then ' Error
lblMessage.Text = session("dberrmsg")
lblSql.Visible = True
Exit Sub
Else ' Normal
lblSql.Visible = False
End If
' Set the DataSource property
ctlList.DataSource = dvWrk
' Bind to Data Control
ctlList.DataBind()
' Hide Grid/Pager if No Records Found
If dvWrk.Count = 0 Then
pnlDataGrid.Visible = False
If lblMessage.Text = "" Then
lblMessage.Text = "No records found"
End If
Else
pnlDataGrid.Visible = True
End If
End Sub
'************************
' Item Command Handler
'************************
Sub ctlList_ItemCommand(ByVal s As Object, ByVal e As DataGridCommandEventArgs)
Dim sSortExpression As String, sSortOrder As String
Dim sKey As String
' Master/Detail Link
If e.CommandName = "Detail" Then
ctlList.SelectedIndex = e.Item.ItemIndex
End If
End Sub
'***************************
' Item Data Bound Handler
'***************************
Private Sub ctlList_ItemDataBound(ByVal s As Object, _
ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)
' List View
If e.Item.ItemType = ListItemType.Item Or _
e.Item.ItemType = ListItemType.AlternatingItem Or _
e.Item.ItemType = ListItemType.SelectedItem Then
' Field SIM_NO
If Not IsDBNull(CType(e.Item.DataItem, DataRowView)("SIM_NO")) Then
sTmp = CType(e.Item.DataItem, DataRowView)("SIM_NO")
CType(e.Item.FindControl("x_SIM_NO"),Label).Text = sTmp
End If
' Field SIM_STATUS
If Not IsDBNull(CType(e.Item.DataItem, DataRowView)("SIM_STATUS")) Then
sTmp = CType(e.Item.DataItem, DataRowView)("SIM_STATUS")
CType(e.Item.FindControl("x_SIM_STATUS"),Label).Text = sTmp
End If
' Field DATE
If Not IsDBNull(CType(e.Item.DataItem, DataRowView)("DATE")) Then
sTmp = CType(e.Item.DataItem, DataRowView)("DATE")
CType(e.Item.FindControl("x_DATE"),Label).Text = sTmp
End If
' Field COMM
If Not IsDBNull(CType(e.Item.DataItem, DataRowView)("COMM")) Then
sTmp = FormatCurrency(CType(CType(e.Item.DataItem, DataRowView)("COMM"),Double),2,-2,-2,-2)
CType(e.Item.FindControl("x_COMM"),Label).Text = sTmp
End If
' Field APPROVAL
If Not IsDBNull(CType(e.Item.DataItem, DataRowView)("APPROVAL")) Then
Select Case CType(e.Item.DataItem, DataRowView)("APPROVAL")
Case "YES"
CType(e.Item.FindControl("x_APPROVAL"),Label).Text = "YES"
Case "NO"
CType(e.Item.FindControl("x_APPROVAL"),Label).Text = "NO"
Case ""
CType(e.Item.FindControl("x_APPROVAL"),Label).Text = ""
End Select
End If
' Field DATE_APP
If Not IsDBNull(CType(e.Item.DataItem, DataRowView)("DATE_APP")) Then
sTmp = CType(e.Item.DataItem, DataRowView)("DATE_APP")
CType(e.Item.FindControl("x_DATE_APP"),Label).Text = sTmp
End If
End If
End Sub
'*******************************
' Numeric Pager Click Handler
'*******************************
Sub NumericPages_Click(ByVal s As System.Object, ByVal e As System.EventArgs)
Dim lRecNo As Long
' Handles the Event of Numeric Buttons
lRecNo = CLng(CType(s, LinkButton).CommandArgument)
If lRecNo < 0 Then
lRecNo = 0
ElseIf lRecNo > CLng(lblRecordCount.Text) Then
lRecNo = CLng(lblRecordCount.Text) - 1
End If
lblCurrentIndex.Text = lRecNo
' Save Record Index
Session("SIM_ACTIVE_recordindex") = lblCurrentIndex.Text
BindData()
End Sub
'*********************************
' Generate Numeric Link Buttons
'*********************************
Sub GenNumericLinks(ByVal iTotalRecs As Integer, ByVal iCurrentRec As Integer, ByVal iPageSize As Integer, ByVal iPageLink As Integer)
Dim btnPageLink As LinkButton
Dim ltrSpacer As Literal
Dim iPrevPageIndex, iNextPageIndex As Integer
Dim iPrevBlockIndex, iNextBlockIndex As Integer
Dim iBasePageNo, iThisPageIndex, iThisPageNo As Integer
iPrevPageIndex = iCurrentRec - iPageSize
If iPrevPageIndex < 1 Then
iPrevPageIndex = 0
End If
iNextPageIndex = iCurrentRec + iPageSize
If iCurrentRec >= iPageSize * iPageLink Then
iPrevBlockIndex = ((iCurrentRec+1)\(iPageSize*iPageLink)-1)*(iPageSize*iPageLink)
Else
iPrevBlockIndex = -1
End If
If ((iCurrentRec+1)\(iPageSize*iPageLink)+1)*(iPageSize*iPageLink) < iTotalRecs Then
iNextBlockIndex = ((iCurrentRec+1)\(iPageSize*iPageLink)+1)*(iPageSize*iPageLink)
Else
iNextBlockIndex = -1
End If
' Clear All Controls
ctlNumericPages.Controls.Clear
' Generate Previous Link
If iCurrentRec > 0 Then
btnPageLink = New LinkButton() ' Add Numeric Link
btnPageLink.id = "PagerPrev"
btnPageLink.Text = "Prev"
btnPageLink.CommandName = "onClick"
btnPageLink.CommandArgument = iPrevPageIndex
ctlNumericPages.Controls.Add(btnPageLink)
AddHandler btnPageLink.Click, AddressOf NumericPages_Click
ltrSpacer = New Literal() ' Add spacer
ltrSpacer.Text = " "
ctlNumericPages.Controls.Add(ltrSpacer)
End If
' Generate Previous Block Link
If iPrevBlockIndex >= 0 Then
btnPageLink = New LinkButton() ' Add Numeric Link
btnPageLink.id = "PagerPrevBlock"
btnPageLink.Text = "..."
btnPageLink.CommandName = "onClick"
btnPageLink.CommandArgument = iPrevBlockIndex
ctlNumericPages.Controls.Add(btnPageLink)
AddHandler btnPageLink.Click, AddressOf NumericPages_Click
ltrSpacer = New Literal() ' Add spacer
ltrSpacer.Text = " "
ctlNumericPages.Controls.Add(ltrSpacer)
End If
' Generate Numeric Link in PlaceHolder if more than 1 page
Dim i As Integer
If iTotalRecs > iPageSize Then
iBasePageNo = ((iCurrentRec+1) \ (iPageSize*iPageLink)) * iPageLink
For i = 1 To iPageLink
iThisPageNo = i + iBasePageNo
iThisPageIndex = (iThisPageNo-1) * iPageSize
If iThisPageIndex <= iTotalRecs Then
btnPageLink = New LinkButton() ' Add Numeric Link
btnPageLink.id = "Pager" & iThisPageNo
btnPageLink.Text = iThisPageNo
btnPageLink.CommandName = "onClick"
btnPageLink.CommandArgument = iThisPageIndex
ctlNumericPages.Controls.Add(btnPageLink)
If iThisPageIndex <> iCurrentRec Then
AddHandler btnPageLink.Click, AddressOf NumericPages_Click
Else
btnPageLink.enabled = False
End If
ltrSpacer = New Literal() ' Add spacer
ltrSpacer.Text = " "
ctlNumericPages.Controls.Add(ltrSpacer)
End If
Next
End If
' Generate Next Block Link
If iNextBlockIndex >= 0 Then
btnPageLink = New LinkButton() ' Add Numeric Link
btnPageLink.id = "PagerNextBlock"
btnPageLink.Text = "..."
btnPageLink.CommandName = "onClick"
btnPageLink.CommandArgument = iNextBlockIndex
ctlNumericPages.Controls.Add(btnPageLink)
AddHandler btnPageLink.Click, AddressOf NumericPages_Click
ltrSpacer = New Literal() ' Add spacer
ltrSpacer.Text = " "
ctlNumericPages.Controls.Add(ltrSpacer)
End If
' Generate Next Link
If iNextPageIndex < iTotalRecs Then
btnPageLink = New LinkButton() ' Add Numeric Link
btnPageLink.id = "PagerNext"
btnPageLink.Text = "Next"
btnPageLink.CommandName = "onClick"
btnPageLink.CommandArgument = iNextPageIndex
ctlNumericPages.Controls.Add(btnPageLink)
AddHandler btnPageLink.Click, AddressOf NumericPages_Click
ltrSpacer = New Literal() ' Add spacer
ltrSpacer.Text = " "
ctlNumericPages.Controls.Add(ltrSpacer)
End If
End Sub
'************************
' Load Login Name Routine
'************************
Private Sub LoadLoginName()
Dim sWrk As String = Page.User.Identity.Name
Dim sArrWrk As String() = Split(sWrk,",")
' Get User ID saved in User Name
If ubound(sArrWrk) >= 0 Then
sLoginName = sArrWrk(0)
Else
sLoginName = "" ' Not Found
End If
End Sub
'***************************
' Load User Level Routine
'***************************
Private Sub LoadUserLevel()
Dim sWrk As String = Page.User.Identity.Name
Dim sArrWrk As String() = Split(sWrk,",")
' Security Defined for Table
Dim iArrSec(2) As Integer
iArrSec(0) = 15
iArrSec(1) = 8
iArrSec(2) = 13
' Get User Level saved in User Name
If ubound(sArrWrk) >= 0 Then
iCurIdx = CInt(sArrWrk(ubound(sArrWrk)))
Else
iCurIdx = 0 ' Not Found
End If
' Get Current Table Security
iCurSec = 0
If isnumeric(iCurIdx) Then
If iCurIdx = -1 Then ' System Administrator
iCurSec = 31
ElseIf iCurIdx > 0 And iCurIdx <= ubound(iArrSec) + 1 Then
iCurSec = iArrSec(iCurIdx-1)
End If
End If
' Set up User Level Security
bCanAdd = iCurSec And iAllowAdd
bCanDelete = iCurSec And iAllowDelete
bCanEdit = iCurSec And iAllowEdit
bCanView = iCurSec And iAllowView
bCanList = iCurSec And iAllowList
bCanSearch = iCurSec And iAllowSearch
bCanAdmin = iCurSec And iAllowAdmin
End Sub
</script>
|
|
|
|
 |
|
 |
Hi,
If let say, I have a datagrid with checkboxes at the left hand side for all the retrieved recordsets from the database. I want to allow users to select all/ deselect all/ select based on which records they wanted to get more information from the database. How to solve this?
For example, let say my datagrid has 4 records, and the users just select the 1,2,and 4 records (where the next column of each contains the IDs for each records). When i click a submit button, I want to pass the selected records' IDs into a SQL statement to retrieve the necessary values from the database and display it in a new window. May I know how to solve this? As I am a very very new to .Net
Thank you for your help and time.
|
|
|
|
 |
|
 |
I know one would use javascript but how would go about doing that.
Say for example you want to prompt the user that nothing is selected and if something is selected then perform the post back.
One would write script something to the effect
function IsChecked()
{
if(document.Test.chkTest.checked)
{
alert('The item is checked');
}
else
{
alert('The item is unchecked');
}
}
how do you get to all the checkboxes in the datagrid?
|
|
|
|
 |
|
 |
You can put a simple counter or a boolean variable in Iterate (see the article) and set it to true when at least 1 row is checked. But if you want a way to access a row using javascript here it is: Step 1. Add this to <asp:Checkbox id=......> tag in your datagrid onclick="javascript:CheckRow(this);" Step 2. Place this function at the top of your page. <!-- function CheckRow(chkB) { var oItem = chkB; xState=oItem.checked; if(xState) {WHAT TO DO IF CHECKED; }else {WHAT TO DO IF NOT CHECKED; } } // --> </script>
|
|
|
|
 |
|