This is a migrated thread and some comments may be shown as answers.

[Solved] "Add New Record" not working if there is no record

1 Answer 143 Views

Grid

This is a migrated thread and some comments may be shown as answers.

Joe asked on 23 Jul 2013, 09:01 AM

i had problem that the "add new reocrd" button not working (only show loading logo, but cannot display the edit template) if there is no record.

on the other hand, if there is at least one row/record, the "add new record" button can work properly.

<telerik:RadAjaxPanel ID="Panel_License" runat="server" Enabled="false" clientevents-onrequeststart="conditionalPostback">

<telerik:RadCodeBlock ID="RadCodeBlock1" runat="server">

<script type="text/javascript">

function RowDblClick(sender, eventArgs) {

sender.get_masterTableView().editItem(eventArgs.get_itemIndexHierarchical());

}

</script>

</telerik:RadCodeBlock>

<telerik:RadAjaxManager ID="RadAjaxManager1" runat="server">

<AjaxSettings>

<telerik:AjaxSetting AjaxControlID="RadGrid_License">

<UpdatedControls>

<telerik:AjaxUpdatedControl ControlID="RadGrid_License" LoadingPanelID="RadAjaxLoadingPanel1">

</telerik:AjaxUpdatedControl>

<telerik:AjaxUpdatedControl ControlID="divMsgs"></telerik:AjaxUpdatedControl>

</UpdatedControls>

</telerik:AjaxSetting>

</AjaxSettings>

</telerik:RadAjaxManager>

<telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" runat="server">

</telerik:RadAjaxLoadingPanel>

<telerik:RadGrid ID="RadGrid_License" runat="server" CellSpacing="0"

DataSourceID="ODS_License" GridLines="None" style="margin-top: 0px"

AllowFilteringByColumn="True" AllowPaging="True" AllowSorting="True"

AutoGenerateColumns="False" ShowStatusBar="True" AllowAutomaticDeletes="True"

AllowAutomaticInserts="True"

AllowAutomaticUpdates="True" Width="800">

<MasterTableView AutoGenerateColumns="False"

DataKeyNames="License_To_Operate_ID" DataSourceID="ODS_License"

AllowFilteringByColumn="False" AllowPaging="False"

CommandItemDisplay="Top" OverrideDataSourceControlSorting="true" >

<CommandItemSettings ExportToPdfText="Export to PDF" />

<RowIndicatorColumn FilterControlAltText="Filter RowIndicator column"

Visible="True">

</RowIndicatorColumn>

<ExpandCollapseColumn FilterControlAltText="Filter ExpandColumn column"

Visible="True">

</ExpandCollapseColumn>

<Columns>

<telerik:GridEditCommandColumn UniqueName="EditCommandColumn">

</telerik:GridEditCommandColumn>

<telerik:GridBoundColumn DataField="License_To_Operate_ID"

FilterControlAltText="Filter License_Number column" HeaderText="License_To_Operate_ID"

SortExpression="License_To_Operate_ID" UniqueName="License_To_Operate_ID" Visible="false">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="License_Name"

FilterControlAltText="Filter License_Name column" HeaderText="License Name"

SortExpression="License_Name" UniqueName="License_Name">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="License_Number"

FilterControlAltText="Filter License_Number column" HeaderText="License Number"

SortExpression="License_Number" UniqueName="License_Number">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="License_Issuer"

FilterControlAltText="Filter License_Issuer column" HeaderText="License Issuer"

SortExpression="License_Issuer" UniqueName="License_Issuer">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="Valid_From" DataType="System.DateTime"

FilterControlAltText="Filter Valid_From column" HeaderText="Valid From"

SortExpression="Valid_From" UniqueName="Valid_From" DataFormatString="{0: dd-MMM-yyyy}">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="Valid_Till" DataType="System.DateTime"

FilterControlAltText="Filter Valid_Till column" HeaderText="Valid Till"

SortExpression="Valid_Till" UniqueName="Valid_Till" DataFormatString="{0: dd-MMM-yyyy}">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="Issue_date" DataType="System.DateTime"

FilterControlAltText="Filter Issue_date column" HeaderText="Issue Date"

SortExpression="Issue_date" UniqueName="Issue_date" DataFormatString="{0: dd-MMM-yyyy}">

</telerik:GridBoundColumn>

</Columns>

<EditFormSettings EditFormType="Template">

<EditColumn FilterControlAltText="Filter EditCommandColumn1 column"

UniqueName="EditCommandColumn1">

</EditColumn>

<FormTemplate>

<table id="Table2" cellspacing="2" cellpadding="1" width="100%" border="1" rules="none"

style="border-collapse: collapse;">

<tr class="EditFormHeader">

<td style="width:100px">

<asp:Label ID="Label5" Text="License Type" runat="server"></asp:Label>

</td>

<td>

<telerik:RadDropDownList ID="rdl_license_type" runat="server" DataSourceID="LDS_License_type" DefaultMessage="Please select..."

DataValueField="License_ID" DataTextField="License_name" >

</telerik:RadDropDownList>

<%--<asp:Label ID="Lb_License_ID" runat="server" text='<%# Bind("License_ID") %>' Visible="false"></asp:Label>--%>

</td>

</tr>

<tr >

<td >

<asp:Label ID="lb" Text="License Number" runat="server"></asp:Label>

</td>

<td>

<asp:TextBox ID="tb_License_Number" runat="server" Text='<%# Bind("License_Number") %>' TabIndex="2"></asp:TextBox>

</td>

</tr>

<tr>

<td>

<asp:Label ID="Label1" Text="License Issuer" runat="server"></asp:Label>

</td>

<td>

<asp:TextBox ID="tb_License_Issuer" runat="server" Text='<%# Bind("License_Issuer") %>' TabIndex="3"></asp:TextBox>

</td>

</tr>

<tr>

<td>

<asp:Label ID="Label2" Text="Issue Date" runat="server"></asp:Label>

</td>

<td>

<telerik:RadDatePicker ID="IssueDatePicker" runat="server" MinDate="1/1/1900" DbSelectedDate='<%# Bind("Issue_Date") %>' TabIndex="4"></telerik:RadDatePicker>

</td>

</tr>

<tr>

<td>

<asp:Label ID="Label3" Text="Valid From" runat="server"></asp:Label>

</td>

<td>

<telerik:RadDatePicker ID="RadDatePicker_ValidFrom" runat="server" MinDate="1/1/1900" DbSelectedDate='<%# Bind("Valid_From") %>' TabIndex="5"></telerik:RadDatePicker>

</td>

</tr>

<tr>

<td>

<asp:Label ID="Label4" Text="Valid To" runat="server"></asp:Label>

</td>

<td>

<telerik:RadDatePicker ID="RadDatePicker_ValidTill" runat="server" MinDate="1/1/1900" DbSelectedDate='<%# Bind("Valid_Till") %>' TabIndex="6"></telerik:RadDatePicker>

</td>

</tr>

<tr>

<td align="right" colspan="2">

<asp:Button ID="btnUpdate" Text='<%# IIf((TypeOf(Container) is GridEditFormInsertItem), "Insert", "Update") %>'

runat="server" CommandName='<%# IIf((TypeOf(Container) is GridEditFormInsertItem), "PerformInsert", "Update")%>' >

</asp:Button>

<asp:Button ID="btnDelete" Text="Delete" runat="server" CausesValidation="False"

CommandName="Delete"></asp:Button>

<asp:Button ID="btnCancel" Text="Cancel" runat="server" CausesValidation="False"

CommandName="Cancel"></asp:Button>

</td>

</tr>

</table>

</FormTemplate>

</EditFormSettings>

<PagerStyle PageSizeControlType="RadComboBox" />

</MasterTableView>

<PagerStyle PageSizeControlType="RadComboBox" />

<FilterMenu EnableImageSprites="False">

</FilterMenu>

</telerik:RadGrid>

<asp:LinqDataSource ID="LDS_License_type" runat="server"

ContextTypeName="dcLRDBDataContext" EntityTypeName=""

TableName="db_Dictionary_Licenses">

</asp:LinqDataSource>

<asp:ObjectDataSource ID="ODS_License" runat="server"

SelectMethod="GetLicenseArrayByUserID" TypeName="LRDB">

<SelectParameters>

<asp:SessionParameter DefaultValue="0" Name="id" SessionField="SelectedUserID"

Type="String" />

</SelectParameters>

</asp:ObjectDataSource>

<asp:LinqDataSource ID="LDS_License" runat="server"

ContextTypeName="dcLRDBDataContext" EntityTypeName=""

TableName="db_Employee_Licenses" Where="UserID == @UserID">

<WhereParameters>

<asp:SessionParameter Name="UserID" SessionField="SelectedUserID"

Type="Int32" DefaultValue="0"/>

</WhereParameters>

</asp:LinqDataSource>

<br />

</telerik:RadAjaxPanel>

Public Function GetLicenseArrayByUserID(ByVal id As String) As ArrayList

Dim arr As New ArrayList

arr.Clear()

Dim dc As New dcLRDBDataContext

Dim i As Integer = 0

Dim result = (From cs In dc.db_Dictionary_Licenses _

Group Join cs2 In dc.db_Employee_Licenses _

On cs.License_ID Equals cs2.License_ID _

Into RightTableResults = Group From cs2 In RightTableResults.DefaultIfEmpty _

Where cs2.UserID = id _

Select cs2.License_To_Operate_ID, cs2.Issue_date, cs2.License_Issuer, _

cs2.License_Number, cs2.Valid_From, cs2.Valid_Till, cs.License_Name, _

cs.License_ID, Have = If(cs2.UserID = id, "YES", "NO") _

Order By License_Name).Distinct.ToList

If Not IsNothing(result) Then

If result.Count > 0 Then

For i = 0 To result.Count - 1

arr.Add(result.Item(i))

Next

End If

dc.Dispose()

Return arr

End Function

Code behind:

Protected Sub RadGrid_License_ItemCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid_License.ItemCommand

RadGrid_License.MasterTableView.ClearEditItems()

Dim rnd As New Random()

Dim tmpUserID As Integer 'allow 10 digit only

If Request.QueryString("EmployeeID") = "" Or Request.QueryString("EmployeeID") = 0 Then 'New Employee

tmpUserID = rnd.Next(100000, 999999) & DateTime.Now.Hour & DateTime.Now.Minute

HttpContext.Current.Session("tmpUserID") = tmpUserID

End If

If e.CommandName = RadGrid.InitInsertCommandName Then 'Click Add New Record button

Dim editColumn As GridEditCommandColumn = CType(RadGrid_License.MasterTableView.GetColumn("EditCommandColumn"), GridEditCommandColumn)

editColumn.Visible = False

ElseIf (e.CommandName = RadGrid.RebindGridCommandName AndAlso e.Item.OwnerTableView.IsItemInserted) Then

e.Canceled = True

Else

Dim editColumn As GridEditCommandColumn = CType(RadGrid_License.MasterTableView.GetColumn("EditCommandColumn"), GridEditCommandColumn)

If Not editColumn.Visible Then 'Click Cancel button (both Insert and Update mode)

editColumn.Visible = True

End If

Dim ddlLicense_id As RadDropDownList = DirectCast(e.Item.FindControl("rdl_license_type"), RadDropDownList)

Dim txtLicense_Number As TextBox = DirectCast(e.Item.FindControl("tb_License_Number"), TextBox)

Dim txtLicense_Issuer As TextBox = DirectCast(e.Item.FindControl("tb_License_Issuer"), TextBox)

Dim dateIssue As RadDatePicker = DirectCast(e.Item.FindControl("IssueDatePicker"), RadDatePicker)

Dim dateValidFrom As RadDatePicker = DirectCast(e.Item.FindControl("RadDatePicker_ValidFrom"), RadDatePicker)

Dim dateValidTill As RadDatePicker = DirectCast(e.Item.FindControl("RadDatePicker_ValidTill"), RadDatePicker)

Dim dc As New dcLRDBDataContext

' If (TypeOf e.Item Is GridEditableItem AndAlso e.Item.IsInEditMode) Then

If e.CommandName = "PerformInsert" Then

If Request.QueryString("EmployeeID") = "" Or Request.QueryString("EmployeeID") = 0 Then 'New Employee

'Dim rnd As New Random()

'Dim tmpUserID As Integer 'allow 10 digit only

'tmpUserID = rnd.Next(100000, 999999) & DateTime.Now.Hour & DateTime.Now.Minute

'HttpContext.Current.Session("tmpUserID") = tmpUserID

dc.insertEmployeeLicense(tmpUserID.ToString, ddlLicense_id.SelectedValue, txtLicense_Number.Text.Trim, txtLicense_Issuer.Text.Trim, _

dateIssue.SelectedDate, dateValidFrom.SelectedDate, dateValidTill.SelectedDate, "Y", DateTime.Now, HttpContext.Current.Session("UserID").ToString)

Else

dc.insertEmployeeLicense(GetUserIDbyEmployeeID(Request.QueryString("EmployeeID")).ToString, ddlLicense_id.SelectedValue, txtLicense_Number.Text.Trim, txtLicense_Issuer.Text.Trim, _

dateIssue.SelectedDate, dateValidFrom.SelectedDate, dateValidTill.SelectedDate, "N", DateTime.Now, HttpContext.Current.Session("UserID").ToString)

End If

RadGrid_License.DataBind()

ElseIf e.CommandName = "Update" Then

Dim lid As Integer = e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("License_To_Operate_ID")

Dim uid As Integer

If Request.QueryString("EmployeeID") = "" Or Request.QueryString("EmployeeID") = 0 Then

uid = HttpContext.Current.Session("tmpUserID").ToString

Else

uid = GetUserIDbyEmployeeID(Request.QueryString("EmployeeID")).ToString

End If

Dim rec = (From p In dc.db_Employee_Licenses Where p.UserID = uid And p.License_To_Operate_ID = lid).FirstOrDefault

If Not rec Is Nothing Then

rec.License_ID = ddlLicense_id.SelectedValue

rec.License_Number = txtLicense_Number.Text.Trim

rec.License_Issuer = txtLicense_Issuer.Text.Trim

rec.Issue_date = dateIssue.SelectedDate

rec.Valid_From = dateValidFrom.SelectedDate

rec.Valid_Till = dateValidTill.SelectedDate

rec.LastUpdateBy = HttpContext.Current.Session("UserID")

rec.LastUpdateDate = DateTime.Now

dc.SubmitChanges()

End If

RadGrid_License.DataBind()

ElseIf e.CommandName = "Delete" Then

Dim lid As Integer = e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("License_To_Operate_ID")

Dim uid As Integer

If Request.QueryString("EmployeeID") = "" Or Request.QueryString("EmployeeID") = 0 Then

uid = HttpContext.Current.Session("tmpUserID").ToString

Else

uid = GetUserIDbyEmployeeID(Request.QueryString("EmployeeID")).ToString

End If

Dim rec2 = (From p In dc.db_Employee_Licenses Where p.UserID = uid And p.License_To_Operate_ID = lid).FirstOrDefault

If Not IsNothing(rec2) Then

dc.db_Employee_Licenses.DeleteOnSubmit(rec2)

dc.SubmitChanges()

End If

RadGrid_License.DataBind()

End If

'End If

dc.Dispose()

End If

End Sub

Private Sub RadGrid_License_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid_License.ItemDataBound

'If (TypeOf e.Item Is GridEditableItem AndAlso e.Item.IsInEditMode) Then

' Dim item As GridEditableItem = e.Item

' 'access/modify the edit item template settings here

' Dim list As RadDropDownList = item.FindControl("rdl_license_type")

' 'list.DataSource = Country_values

' 'list.DataBind()

' If (Not HttpContext.Current.Session("updatedValue") Is Nothing) Then

' list.SelectedValue = 2

' 'HttpContext.Current.Session("updatedValue")

' End If

'ElseIf (TypeOf e.Item Is GridDataItem AndAlso Not e.Item.IsInEditMode AndAlso Page.IsPostBack) Then

' Dim item As GridDataItem = e.Item

' Dim label As Label = item.FindControl("Lb_License_ID")

' 'update the label value

' label.Text = HttpContext.Current.Session("updatedValue")

'End If

If (TypeOf e.Item Is GridEditableItem AndAlso e.Item.IsInEditMode) Then

Dim item As GridEditableItem = e.Item

Dim ddl As RadDropDownList = item.FindControl("rdl_license_type")

ddl.SelectedValue = DataBinder.Eval(e.Item.DataItem, "License_ID").ToString

End If

End Sub

Protected Sub RadGrid_License_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadGrid_License.PreRender

If (Not Page.IsPostBack) Then

RadGrid_License.EditIndexes.Add(0)

RadGrid_License.Rebind()

End If

End Sub

Protected Sub RadGrid_License_ItemDeleted(ByVal source As Object, ByVal e As Telerik.Web.UI.GridDeletedEventArgs) Handles RadGrid_License.ItemDeleted

If Not e.Exception Is Nothing Then

e.ExceptionHandled = True

'DisplayMessage(True, "Employee " + e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("EmployeeID").ToString() + " cannot be deleted. Reason: " + e.Exception.Message)

Else

'DisplayMessage(False, "Employee " + e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("EmployeeID").ToString() + " deleted")

End If

End Sub

Protected Sub RadGrid_License_ItemUpdated(ByVal source As Object, ByVal e As Telerik.Web.UI.GridUpdatedEventArgs) Handles RadGrid_License.ItemUpdated

If Not e.Exception Is Nothing Then

e.KeepInEditMode = True

e.ExceptionHandled = True

'DisplayMessage(True, "Employee " + e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("EmployeeID").ToString() + " cannot be updated. Reason: " + e.Exception.Message)

Else

'DisplayMessage(False, "Employee " + e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("EmployeeID").ToString() + " updated")

'If (TypeOf e.Item Is GridEditableItem AndAlso e.Item.IsInEditMode) Then

' Dim item As GridEditableItem = e.Item

' Dim dc As New dcLRDBDataContext

'    Dim rec = (From p In dc.db_Employee_Licenses Where p.License_To_Operate_ID = e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("License_To_Operate_ID").ToString()).FirstOrDefault

' Dim ddl As RadDropDownList = item.FindControl("rdl_license_type")

' 'ddl.SelectedValue = DataBinder.Eval(e.Item.DataItem, "License_ID").ToString

' Dim tb_License_Number As TextBox = item.FindControl("tb_License_Number")

' Dim tb_License_Issuer As TextBox = item.FindControl("tb_License_Issuer")

' Dim IssueDatePicker As RadDatePicker = item.FindControl("IssueDatePicker")

' Dim RadDatePicker_ValidFrom As RadDatePicker = item.FindControl("RadDatePicker_ValidFrom")

' Dim RadDatePicker_ValidTill As RadDatePicker = item.FindControl("RadDatePicker_ValidTill")

' If Not rec Is Nothing Then

' rec.License_Number = tb_License_Number.Text

' rec.License_Issuer = tb_License_Issuer.Text

' rec.License_ID = ddl.SelectedValue

' rec.Valid_From = RadDatePicker_ValidFrom.SelectedDate

' rec.Valid_Till = RadDatePicker_ValidTill.SelectedDate

' rec.Issue_date = IssueDatePicker.SelectedDate

' dc.SubmitChanges()

' End If

' dc.Dispose()

'End If

End If

End Sub

Protected Sub RadGrid_License_ItemInserted(ByVal source As Object, ByVal e As Telerik.Web.UI.GridInsertedEventArgs) Handles RadGrid_License.ItemInserted

If Not e.Exception Is Nothing Then

e.ExceptionHandled = True

e.KeepInInsertMode = True

'DisplayMessage(True, "Employee cannot be inserted. Reason: " + e.Exception.Message)

Else

'DisplayMessage(False, "Employee inserted")

End If

End Sub

1 Answer, 1 is accepted

answered on 24 Jul 2013, 02:27 AM

finally, i fix the problem...

Protected Sub RadGrid_License_ItemCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid_License.ItemCommand

'RadGrid_License.MasterTableView.ClearEditItems()

Dim rnd As New Random()

Dim tmpUserID As Integer 'allow 10 digit only

If Request.QueryString("EmployeeID") = "" Or Request.QueryString("EmployeeID") = 0 Then 'New Employee

tmpUserID = rnd.Next(100000, 999999) & DateTime.Now.Hour & DateTime.Now.Minute

HttpContext.Current.Session("tmpUserID") = tmpUserID

End If

If e.CommandName = RadGrid.InitInsertCommandName Then 'Click Add New Record button

If e.CommandName = RadGrid.InitInsertCommandName Then

e.Canceled = True

'Prepare an IDictionary with the predefined values

Dim newValues As System.Collections.Specialized.ListDictionary = _

New System.Collections.Specialized.ListDictionary()

newValues("License_ID") = 0

newValues("License_Number") = String.Empty

newValues("License_Issuer") = String.Empty

newValues("Issue_Date") = String.Empty

newValues("Valid_From") = String.Empty

newValues("Valid_Till") = String.Empty

'Insert the item and rebind

e.Item.OwnerTableView.InsertItem(newValues)

End If