Hello All,
Please help. I get the following error from my webpage:
System.InvalidC astException: Specified cast is not valid.
at Time.MaintAtRis kProjects.Updat eProject(String Project, String
AtRiskCode, String Comment)
Code for UpdateProject(S tring Project, String AtRiskCode, String Comment)
is:
Private Sub UpdateProject(B yVal Project As String, ByVal AtRiskCode As
String, ByVal Comment As String)
Try
Dim strProject As String = Trim(Project)
Dim strAtRiskCode As String = Trim(AtRiskCode )
Dim strComment As String = Trim(Comment)
Dim r As AtRiskProjectsD S.AtRiskProject sRow
Dim rows() As AtRiskProjectsD S.AtRiskProject sRow =
AtRiskProjDS.At RiskProjects.Se lect(AtRiskProj DS.AtRiskProjec ts.ProjectColum n.ColumnName
& "= '" & strProject & "' AND " &
AtRiskProjDS.At RiskProjects.At RiskCodeColumn. ColumnName & "= '" &
strAtRiskCode & "' ")
If rows.Length <> 0 Then
r = rows(0)
If r.Comment <> strComment Then
r.Comment = strComment
End If
End If
Catch ex As Exception
Trace.Write(ex. ToString)
End Try
End Sub
UpdateProject(B yVal Project As String, ByVal AtRiskCode As String, ByVal
Comment As String) is being called from an update button I have in the page.
The code for Update click is as follows:
Private Sub btnUpdate_Click (ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnUpdate.Click
Try
Dim strProject As String = Trim(lblProject .Text)
AtRiskProjDS.Cl ear()
AtRiskProjDS = LoadAtRiskProjD S(strProject)
For Each item As DataGridItem In dgAtRiskInfo.It ems
If item.ItemType = ListItemType.It em Or item.ItemType =
ListItemType.Al ternatingItem Then
Dim RiskCodeOld As CheckBox = CType(item.Find Control("chkCod eOld"),
CheckBox)
Dim RiskCodeNew As CheckBox = CType(item.Find Control("chkCod eNew"),
CheckBox)
Dim AtRiskCode As TextBox = CType(item.Find Control("txtAtR iskCode"),
TextBox)
Dim Description As Label = CType(item.Find Control("lblDes cription"), Label)
Dim Comment As TextBox = CType(item.Find Control("txtCom ment"), TextBox)
Dim strAtRiskCode As String = Trim(AtRiskCode .Text)
Dim strDescription As String = Trim(Descriptio n.Text)
Dim strComment As String = Trim(Comment.Te xt)
If RiskCodeOld.Che cked = False And RiskCodeNew.Che cked = True Then
InsertProject(R iskCodeNew.Chec ked, strProject, strAtRiskCode,
strDescription, strComment)
RiskCodeOld.Che cked = RiskCodeNew.Che cked
ElseIf RiskCodeOld.Che cked = True And RiskCodeNew.Che cked = False Then
DeleteProject(s trProject, strAtRiskCode)
RiskCodeOld.Che cked = RiskCodeNew.Che cked
Else
UpdateProject(s trProject, strAtRiskCode, strComment)
End If
End If
Next
SubmitChanges(s trProject)
Catch ex As Exception
Trace.Write(ex. ToString)
End Try
End Sub
Here is what the code for ASPX page looks like:
<%@ Import namespace="Time " %>
<%@ Import namespace="Syst em.Data" %>
<%@ Register TagPrefix="uc1" TagName="footer " src="../footer.ascx" %>
<%@ Register TagPrefix="uc1" TagName="header " src="../header.ascx" %>
<%@ Page Language="vb" AutoEventWireup ="false"
Codebehind="Mai ntAtRiskProject s.aspx.vb"
Inherits="Time. MaintAtRiskProj ects"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>MaintAtR iskProjects</title>
<meta content="Micros oft Visual Studio .NET 7.1" name="GENERATOR ">
<meta content="Visual Basic .NET 7.1" name="CODE_LANG UAGE">
<meta content="JavaSc ript" name="vs_defaul tClientScript">
<meta content="http://schemas.microso ft.com/intellisense/ie5"
name="vs_target Schema">
<LINK href="../master.css" type="text/css" rel="stylesheet ">
</HEAD>
<body MS_POSITIONING= "GridLayout ">
<form id="MaintAtRisk ProjectsFrm" method="post" runat="server">
<uc1:header id="PageHeader " runat="server"> </uc1:header>
<P><asp:dropdow nlist id="ddlProject " style="Z-INDEX: 101; LEFT: 16px;
POSITION: absolute; TOP: 72px"
runat="server" OnSelectedIndex Changed="Displa yAtRiskProjInfo "
Font-Names="Lucida Console, Courier New"
Width="168px" autopostback="T rue"></asp:dropdownlis t></P>
<hr style="Z-INDEX: 102; LEFT: 8px; POSITION: absolute; TOP: 104px">
<asp:Button id="btnReport" style="Z-INDEX: 106; LEFT: 504px; POSITION:
absolute; TOP: 64px"
runat="server" Width="97px" Text="View Report"></asp:Button>
<asp:Button id="btnUpdate" style="Z-INDEX: 105; LEFT: 280px; POSITION:
absolute; TOP: 64px"
runat="server" Width="72px" Height="24px"
Text="Update"></asp:Button><asp :label id="lblProject " style="Z-INDEX: 104;
LEFT: 8px; POSITION: absolute; TOP: 128px"
runat="server" Width="160px" ForeColor="#CC0 000"
Height="24px"></asp:label><asp: datagrid id="dgAtRiskInf o" style="Z-INDEX:
103; LEFT: 184px; POSITION: absolute; TOP: 128px"
runat="server" Width="385px" Height="160px" ShowFooter="Fal se"
AutoGenerateCol umns="False">
<AlternatingIte mStyle BackColor="Mist yRose"></AlternatingItem Style>
<ItemStyle HorizontalAlign ="Right"></ItemStyle>
<HeaderStyle ForeColor="#CC0 000" BackColor="Silv er"></HeaderStyle>
<Columns>
<asp:TemplateCo lumn>
<ItemTemplate >
<asp:TextBox ID="txtAtRiskCo de" Text='<%
#Container.Data Item("AtRiskCod e") %>' Runat=server Visible=False>
</asp:TextBox>
</ItemTemplate>
</asp:TemplateCol umn>
<asp:TemplateCo lumn>
<ItemTemplate >
<asp:CheckBox ID="chkCodeOld " Checked='<%
#Container.Data Item("RiskCodeF lag") %>' Runat="server" Visible=False>
</asp:CheckBox>
</ItemTemplate>
</asp:TemplateCol umn>
<asp:TemplateCo lumn HeaderText="Che ck/Uncheck">
<ItemTemplate >
<asp:CheckBox ID="chkCodeNew " Checked='<%
#Container.Data Item("RiskCodeF lag") %>' Width="15px" Runat=server>
</asp:CheckBox>
</ItemTemplate>
</asp:TemplateCol umn>
<asp:TemplateCo lumn HeaderText="Des cription">
<ItemTemplate >
<asp:Label ID="lblDescript ion" text='<%
#Container.Data Item("Descripti on") %>' width="250px" runat=server>
</asp:Label>
</ItemTemplate>
</asp:TemplateCol umn>
<asp:TemplateCo lumn HeaderText="Com ment">
<ItemTemplate >
<asp:TextBox ID="txtComment " Text='<% #Container.Data Item("Comment")
%>' Width="400px" Runat=server>
</asp:TextBox>
</ItemTemplate>
</asp:TemplateCol umn>
</Columns>
</asp:datagrid></form>
</body>
</HTML>
Please help.. Can't figure out what is going on.
Thanks,
Biva
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
