菜鸟请教各位大侠

以下是我编的一个页面，有问题，但是自己找不到，还要各位帮忙
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQL" %>
<%@ Import Namespace="System.Drawing" %>
<! - -#include file="kaike_update.inc"- ->
<! - -#include file="kaike_updaterecord.inc"- ->
<html>
<head>
<META http-equiv=Content-Type content="text/html; charset=gb2312"></head>
<body>
<h3><center>修改记录</center></h3>
<form runat="server">
<asp:DataGrid ID="MyDataGrid" runat="server" 
Width="500"
AllowPaging="true"
PageSize="10"            
OnPageIndexChanged="Page_Changed"
PagerStyle-Mode="NumericPages"
PagerStyle-BackColor="#FFFFFF"
BackColor="#3333FF"
BorderColor="#000000"
CellPadding="3"
HeaderStyle-BackColor="#00CC33"
HorizontalAlign="Center"
AutoGenerateColumns="false"
DataKeyField="t_id"
OnEditCommand="MyDataGrid_Edit"
OnCancelCommand="MyDataGrid_Cancel"
OnUpdateCommand="MyDataGrid_Updata">
<property Name="Columns">
<asp:BoundColumn DataField="t_id" ReadOnly="true" HeaderText="编号" HeaderStyle-HorizontalAlign="center"/>
<asp:BoundColumn DataField="course_id" HeaderText="课程代号" HeaderStyle-HorizontalAlign="center"/>
<asp:BoundColumn DataField="xingzhi" HeaderText="性质" HeaderStyle-HorizontalAlign="center"/>
<asp:BoundColumn DataField="xueshi" HeaderText="学时" HeaderStyle-HorizontalAlign="center"/>
<asp:BoundColumn DataField="sy_keshi" HeaderText="实验课时" HeaderStyle-HorizontalAlign="center"/>
<asp:BoundColumn DataField="xueqi" HeaderText="学期" HeaderStyle-HorizontalAlign="center"/>
<asp:BoundColumn DataField="class_count" HeaderText="班级数" HeaderStyle-HorizontalAlign="center"/>
<asp:BoundColumn DataField="renshu" HeaderText="人数" HeaderStyle-HorizontalAlign="center"/>
<asp:BoundColumn DataField="institute_id" HeaderText="学院代号" HeaderStyle-HorizontalAlign="center"/>
<asp:BoundColumn DataField="department_id" HeaderText="系代号" HeaderStyle-HorizontalAlign="center"/>
<asp:BoundColumn DataField="beizhu1" HeaderText="备注" HeaderStyle-HorizontalAlign="center"/>
<asp:EditCommandColumn HeaderText="修改" ItemStyle-Wrap="false" HeaderStyle-HorizontalAlign="center" EditText="修改" CancelText="取消" UpdateText="更新"/>
</property>
</asp:DataGrid>
<p><center>
<asp:Label id="lblMessage" runat="server"/></center>
</form>
</body>
</html>

解决方案 »

  1.   

    <! - -#include file="kaike_update.inc"- ->
    <! - -#include file="kaike_updaterecord.inc"- ->把这两个文件也贴出来
      

  2.   

    以下是：“kaike_update.inc”也面
    <script language="VB" runat="server">
    dim MyConnection As SQLConnection
    Sub Page_Load(sender As Object,E As EventArgs)
    Dim srtConnection As String
    strConnection="server=localhost;uid=sa;pwd= ;database=database/data_base"
    MyConnection=New SQLConnection(strConnection)
    If Not IsPostBack Then Grid_Bind()
    End Sub
    Sub Grid_Bind()
    Dim SelectCommand As String="select * from kaike_information"
    Dim MyCommand As SQLDataSetCommand=New SQLDataSetCommand(SelectCommand,MyConnection)
    Dim DS As DataSet=New DataSet()
    MyCommand.FillDataSet(DS,"kaike_information")
    MyDataGrid.DataSource=New DataView(DS.Tables("kaike_information"))
    MyDataGrid.DataBind()
    End SubSub Page_Changed(Src As Object,E As DataGridPageChangedEventArgs)
    Grid_Bind()
    End Sub 
    </Script>
    下面是：“kaike_updaterecord.inc”页面
    <script language="vb" runat="server">
    Sub MyDataGrid_Edit(sender As Object.E As DataGridCommandEventArgs)
        MyDataGrid.EditItemIndex=e.Item.ItemIndex
    Grid_Bind
    End Sub
    Sub MyDataGrid_Cancel(sender As Object,e As DataGridCommandEventArgs)
        MyDataGrid.EditItemIndex=-1
    Grid_Bind
    End Sub
    Sub MyDataGrid_Updata(sender As Object,e As DataGridCommandEventArgs)
        Dim UpdataCmd As string="UPDATA kaike_information SET t_id=@t_id,course_id=@course_id,xingzhi=@xingzhi,xueshi=@xueshi,sy_keshi=@sy_keshi,xueqi=@xueqi,class_count=@class_count,renshu=@renshu,institute_id=@institute_id,department_id=@department_id,beizhu1=@beizhu1 WHERE t_id=@t_id"
    Dim MyCommand As SQLCommand=New SQLCommand(UpdataCmd,MyConnection)
    MyCommand.Parameters.Add(New SQLparameter.Add("@t_id",SQLDataType.Int,10))
    MyCommand.Parameters.Add(New SQLparameter.Add("@course_id",SQLDataType.Int,10))
    MyCommand.Parameters.Add(New SQLparameter.Add("@xingzhi",SQLDataType.Int,10))
    MyCommand.Parameters.Add(New SQLparameter.Add("@xueshi",SQLDataType.Int,10))
    MyCommand.Parameters.Add(New SQLparameter.Add("@sy_keshi",SQLDataType.Int,10))
    MyCommand.Parameters.Add(New SQLparameter.Add("@xueqi",SQLDataType.Int,10))
    MyCommand.Parameters.Add(New SQLparameter.Add("@class_count",SQLDataType.Int,10))
    MyCommand.Parameters.Add(New SQLparameter.Add("@renshu",SQLDataType.Int,10))
    MyCommand.Parameters.Add(New SQLparameter.Add("@institute_id",SQLDataType.Int,10))
    MyCommand.Parameters.Add(New SQLparameter.Add("@department_id",SQLDataType.Int,10))
    MyCommand.Parameters.Add(New SQLparameter.Add("@beizhu1",SQLDataType.Int,10))
    MyCommand.Parameters("@t_id").Value=MyDataGrid.DataKey(e.Item.ItemIndex)
    Dim Cols As String()={"@t_id","@course_id","@xingzhi","@xueshi","@sy_keshi","@xueqi","@class_count","@renshu","@institute_id","@department_id","@beizhu1"}
    Dim NumCols As integer=e.Item.Cells.Count
    Dim i As Integer
    For i=1 To NumCols-2
    Dim CurrentTextBox As TextBox
    CurrentTextBox=E.Item.Cells(i).Controls(0)
    Dim ColValue As String=CurrentTextBox.Text
    if i=NumCols-2 And PriceIsNotNumberic(ColValue) Then Exit Sub
    MyCommand.Parameters(Cols(i-1)).Value=ColValue
    Next
    MyCommand.ActiveConnection.Open()
    Try
       MyCommand.ExecuteNonQuery()
       lblMessage.Text="???<b>"&Cint(MyCommand.Parameters("@t_id").Value)&"</b>??????!"
       lblMessage.ForeColor=Color=Color.Green
       MyDataGrid.EditItemIndex=-1
    Catch Exp As SQLException
       lblMessage.Text="??:??????,???????!"
       lblMessage.ForeColor=Color.red
    End Try
       MyCommand.ActiveConnection.Close()
       Grid_Bind()
    End Sub
    </script>