急!急!急! 兄弟们,想这样的错误怎么修改呀?请写出修改的代码!!!谢谢!!!

Question

错误提示:“/wenzhang”应用程序中的服务器错误。
--------------------------------------------------------------------------------编译错误 
说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。 编译器错误信息: BC30455: 没有为“Public Sub datalist1onclick(sender As Object, e As System.Web.UI.WebControls.DataGridCommandEventArgs)”的参数“e”指定参数。源错误: 行 54：  </td>
行 55：  <td scope="row" align="left" width="478" height="20">
行 56：  <asp:LinkButton id="LinkButton1" CommandArgument="show.aspx?y = x" OnClick="datalist1onclick()"
行 57：  runat="server">
行 58：  <%#left(container.dataitem("title"),25)%>
 源文件: E:\zyweb\wenzhang\showarticle.aspx    行: 56 函数的代码:Sub datalist1onclick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs)
        x = Convert.ToInt32(DataList1.DataKeys(e.Item.ItemIndex))
        Dim sql As String
        Dim cnn As conn
        cnn.con3.Open()
        sql = "update  wenzhang set  hit = hit+1 where articleid=" & x
        Dim cmdoledb As New OleDbCommand(sql, cnn.con3)
        cmdoledb.ExecuteNonQuery()
    End Sub

Answer 1

OnClick="datalist1onclick()"  写的不对啊
应该是 OnClick="datalist1onclick" 好象是这样的，呵呵。。

Answer 2

OnClick="datalist1onclick(nothing,nothing)"看看可以不

Answer 3

自己顶一下!!!!OnClick="datalist1onclick和OnClick="datalist1onclick(nothing,nothing)"
两个方法我都试过了,还是不可以!!!

Answer 4

<%@ Register TagPrefix="QBB" Namespace="QBBControls" Assembly="QBB" %>
<form id="Form1" method="post" runat="server">
<asp:Button id="Btn" runat="server" OnClick="Btn_Click" />
</form><script language="vb" runat="server">
sub Btn_Click(sender As Object, e As System.EventArgs)end sub
</script>// 把你的()去掉就可以了

Answer 5

括号去掉之后,在运行出现下面的错误!!!!“/wenzhang”应用程序中的服务器错误。
--------------------------------------------------------------------------------编译错误 
说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。 编译器错误信息: BC30408: 方法“Public Sub datalist1onclick(sender As Object, e As System.Web.UI.WebControls.DataGridCommandEventArgs)”没有与委托“Delegate Sub EventHandler(sender As Object, e As System.EventArgs)”相同的签名。源错误: 行 54：  </td>
行 55：  <td scope="row" align="left" width="478" height="20">
行 56：  <asp:LinkButton id="LinkButton1" CommandArgument="show.aspx?y = x" OnClick="datalist1onclick"
行 57：  runat="server">
行 58：  <%#left(container.dataitem("title"),25)%>
 源文件: E:\zyweb\wenzhang\showarticle.aspx    行: 56 

Answer 6

Sub datalist1onclick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs)
==>Sub datalist1onclick(ByVal sender As Object, ByVal e As System.EventArgs)

Answer 7

Button的click事件2个参数哪能由你乱改

Answer 8

晕倒,我定义的函数中使用了x = Convert.ToInt32(DataList1.DataKeys(e.Item.ItemIndex))
所以用 ByVal e As As System.Web.UI.WebControls.DataGridCommandEventArgs
Sub datalist1onclick(ByVal sender As Object, ByVal e As As System.Web.UI.WebControls.DataGridCommandEventArgs)
        x = Convert.ToInt32(DataList1.DataKeys(e.Item.ItemIndex))
        Dim sql As String
        Dim cnn As conn
        cnn.con3.Open()
        sql = "update  wenzhang set  hit = hit+1 where articleid=" & x
        Dim cmdoledb As New OleDbCommand(sql, cnn.con3)
        cmdoledb.ExecuteNonQuery()
    End Sub

Answer 9

应该用UPDATE事件：
请参考MS示例代码：
http://chs.gotdotnet.com/quickstart/util/srcview.aspx?path=/quickstart/aspplus/samples/webforms/data/datagrid6.src