作者Lamfree (酷热夏天)
看板Visual_Basic
标题Re: [ASP.NET] 指定的转换无效
时间Tue Nov 7 14:56:46 2006
※ 引述《Lamfree (酷热夏天)》之铭言：
感谢大大的回应，小弟这几天也查有关findcontrol的用法
但却不知该怎用ASP.NET写，冏
因为查到资料大部分都是用JAVA或C#或VB.NET(跟ASP.NET还是有出入)
语法写 所以很惭愧的又来问大大
可以简述一下findcontrol跟control的转换用法 及注意事项
感恩~~
还有回F大大 我想control(0)应该是textbox
看了回覆後参阅书本，并没有讲的很详细，不过我前後看的很久
应该没错吧 希望您对此有所了解...可以帮小弟解惑
: 小弟不才最近刚接触练习用ASP.NET的VB语法写了一个新增、删除、修改的退货表单
: 并用SQLserver2000 当资料库
: 不知为何在写修改部分(照书上模式打)ꔩ[王有礼老师的透视ASP.NET]
: 在画面修改完毕点选储存时
: 却出现"System.InvalidCastException指定的转换无效"
: 上网找资料 仍然毫无头绪
: 行 25: for i = 0 to e.Item.Cells.Count - 2
: 行 26:=>有问题的地方
: strText = CType(e.Item.Cells(i).Controls(0), TextBox).text
: 行 27: if strText <> "" then
: 行 28: params(j) = strText
: 堆叠追踪:
: [InvalidCastException: 指定的转换无效。]
: ASP.C_back_aspx.UpdateDataStore(DataGridCommandEventArgs e) in F:\Project_A\C_back.aspx:26
: ASP.C_back_aspx.b_form_Update(Object obj, DataGridCommandEventArgs e) in F:\Project_A\C_back.aspx:91
: System.Web.UI.WebControls.DataGrid.OnUpdateCommand(DataGridCommandEventArgs e) +109
: System.Web.UI.WebControls.DataGrid.OnBubbleEvent(Object source, EventArgs e) +507
: System.Web.UI.Control.RaiseBubbleEvent(Object source, EventArgs args) +26
: System.Web.UI.WebControls.DataGridItem.OnBubbleEvent(Object source, EventArgs e) +106
: System.Web.UI.Control.RaiseBubbleEvent(Object source, EventArgs args) +26
: System.Web.UI.WebControls.LinkButton.OnCommand(CommandEventArgs e) +121
: System.Web.UI.WebControls.LinkButton.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) +115
: System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) +18
: System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +138
: System.Web.UI.Page.ProcessRequestMain() +1292
: 这是全部程式码
: <%@ Page Language = "VB" Debug="true"%>
: <%@ Import Namespace="System.Data" %>
: <%@ Import Namespace="System.Data.SQLClient" %>
: <html>
: <head>
: <title>客户退货</title>
: <script language="VB" runat="Server">
: Dim check_day As Date = Today
: Dim Conn As new SQLConnection("server=localhost;uid=sa;pwd=;database=ICS")
: '修改资料
: function UpdateDataStore( e as DataGridCommandEventArgs ) as Boolean
: dim i as integer
: dim j as integer = 0
: dim params(5) as string
: dim strText as string
: dim blnGo as boolean = true
: for i = 0 to e.Item.Cells.Count - 2
: strText = CType(e.Item.Cells(i).Controls(0), TextBox).text
: if strText <> "" then
: params(j) = strText
: j = j + 1
: else
: blnGo = false
: lblMessage.Text = lblMessage.Text & "栏位不可空白<p>"
: end if
: next
: if not blnGo then
: return false
: exit function
: end if
: dim strSQL as string = "Update 退货单 set" & _
: "退货单编号 = '" & params(0) & "'," & _
: "退货商品编号 = '" & params(1) & "'," & _
: "退货商品数量 = " & params(2) & "," & _
: "退货商品售价 = " & params(3) & "," & _
: " where 退货商品编号 ='" & CType(e.Item.Cells(2).Controls(0), TextBox).Text & "'"
: ExecuteStatement(strSQL)
: return blnGo
: end function
: sub Page_Load(obj as Object, e as EventArgs)
: if Not Page.IsPostBack then
: FillDataGrid2()
: end if
: end sub
: '显示修改
: Sub FillDataGrid2(Optional EditIndex As integer = -1)
: dim objCmd2 as new SQLCommand("select * from 退货单", Conn)
: dim objReader as SQLDataReader
: try
: objCmd2.Connection.Open()
: objReader = objCmd2.ExecuteReader()
: catch ex as Exception
: lblMessage.Text = "错误的资料库运算"
: end try
: b_form.DataSource = objReader
: if not EditIndex.Equals(Nothing) then
: b_form.EditItemIndex = EditIndex
: end if
: b_form.DataBind()
: objReader.Close
: objCmd2.Connection.Close()
: End sub
: '修改资料
: sub b_form_Edit(obj as object, e as DataGridCommandEventArgs)
: FillDataGrid2(e.Item.ItemIndex)
: end sub
: '修改更新
: sub b_form_Update(obj as object, e as DataGridCommandEventArgs)
: if UpdateDataStore(E) then
: FillDataGrid2(-1)
: end if
: end sub
: '修改取消
: sub b_form_Cancel(obj as object, e as DataGridCommandEventArgs)
: FillDataGrid2(-1)
: end sub
: '新增
: Sub add_Click(Sender As object, e As EventArgs)
: if Page.IsValid then
: Dim strSQL as string = "Insert into 退货单 (退货单编号, 退货日期, 退货商品编号, 退货商品数量, 退货商品售价 )values " & _
: "('" & textbox0.text & "','" & check_day & "', '"& textbox1.text & "', '" & textbox2.text & "'," & _
: "'" & textbox3.text & "')"
: ExecuteStatement(strSQL)
: End If
: '显示表格
: FillDataGrid()
: End Sub
: '清除
: Sub clear_Click(Sender As object, e As EventArgs)
: textbox0.text=" "
: textbox1.text=" "
: textbox2.text=" "
: textbox3.text=" "
: End Sub
: '删除资料
: Sub b_form_delete(obj As Object, e As DataGridCommandEventArgs)
: Dim strSQL As string = "Delete From 退货单 where 退货单编号 = '" & e.Item.Cells(0).Text & "' "
: ExecuteStatement(strSQL)
: FillDataGrid()
: End sub
: '显示退货表
: Sub FillDataGrid(Optional EditIndex As integer = -1)
: Dim myCommand As new SQLDataAdapter("select * from 退货单 where 退货日期 = ('" & check_day & "') ", Conn)
: Dim dsC As DataSet = new DataSet()
: myCommand.Fill(dsC, "退货单")
: b_form.DataSource = dsC.Tables("退货单").DefaultView
: b_form.DataBind()
: End sub
: Function ExecuteStatement(strSQL)
: Dim objCmd as new SQLCommand(strSQL, Conn)
: try
: objCmd.Connection.Open()
: objCmd.ExecuteNonQuery()
: lblMessage.Text = "资料建档完成!"
: catch ex as Exception
: lblMessage.Text = "建档失败!"
: End try
: objCmd.Connection.Close()
: End function
: </script>
: </head>
: <body>
: <h2>客户退货</h2><hr>
: <form id="Form1" runat="Server">
: <%
: Response.Write("退货日期 : " & check_day)
: %><p></p>
: <p> 退货单编号 :
: <asp:textbox id = "textbox0" Width="150px" runat="Server"/>
: <asp:RequiredFieldValidator ControlToValidate="textbox0"
: ErrorMessage="输入退货单编号"
: Type="string" runat="server"/>
: <p> 商品编号 :
: <asp:textbox id = "textbox1" Width="150px" runat="Server"/>
: <asp:RequiredFieldValidator ControlToValidate="textbox1"
: ErrorMessage="输入商品编号"
: Type="string" runat="server"/>
: <p> 商品数量:
: <asp:textbox id = "textbox2" width="100px" runat="server"/>
: <asp:RequiredFieldValidator ControlToValidate="textbox2"
: ErrorMessage="输入商品数量"
: Type="Integer" runat="server"/>
: <p> 商品售价 :
: <asp:textbox id = "textbox3" width="100px" runat="server"/>
: <asp:RequiredFieldValidator ControlToValidate="textbox3"
: ErrorMessage="输入商品售价"
: Type="Integer" runat="server"/>
: <p> <asp:button id = "add" Text="新增" OnClick="add_Click" runat="server"/>
: <asp:button id = "clear" Text="清除" OnClick="clear_Click" runat="server"/>
: <asp:Label ID="lblMessage" runat="server" />
: <asp:DataGrid id="b_form" runat="Server" BorderColor="black" CellPadding="4" Font-Size="8pt"
: HeaderStyle-BackColor="#cccc99" ItemStyle-BackColor="#ffffff"
: AlternatingItemStyle-BackColor="#cccccc" AutoGenerateColumns="False"
: OnDeleteCommand="b_form_delete"
: OnEditCommand="b_form_Edit" OnCancelCommand="b_form_Cancel" OnUpdateCommand="b_form_Update">
: <Columns>
: <asp:BoundColumn HeaderText="退货单编号" DataField="退货单编号"/>
: <asp:BoundColumn HeaderText="退货日期" DataField="退货日期"/>
: <asp:BoundColumn HeaderText="商品编号" DataField="退货商品编号"/>
: <asp:BoundColumn HeaderText="商品数量" DataField="退货商品数量"/>
: <asp:BoundColumn HeaderText="商品售价" DataField="退货商品售价"/>
: <asp:ButtonColumn ButtonType="PushButton" HeaderText="删除" Text="删除" CommandName="delete"/>
: <asp:EditCommandColumn EditText="修改" CancelText="还原"
: UpdateText="储存" HeaderText="编辑" ItemStyle-Wrap="False"/>
: </Columns>
: </asp:DataGrid>
: </form></body></html>
: 希望板上大大能帮小弟解惑
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.248.81.160