gridview编辑框

    Public Sub InsertGvFWID(ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs)

< asp:ObjectDataSource ID = " objDSTest " runat = " server " OldValuesParameterFormatString = " original_{0} " SelectMethod = " GetFWXXAndTXPic " TypeName = " DataSorFWXX " UpdateMethod = " UpdateFWXX " >
< SelectParameters >
< asp:QueryStringParameter DefaultValue = "" Name = " strYWH " QueryStringField = " YWH "
Type = " String " />
</ SelectParameters >
< UpdateParameters >
< asp:CookieParameter CookieName = " YWH " DefaultValue = "" Name = " YWH " Type = " String " />
< asp:Parameter Name = " XH " Type = " String " />
< asp:Parameter Name = " ZH " Type = " String " />
< asp:Parameter Name = " FAH " Type = " String " />
< asp:Parameter Name = " SFCT " Type = " String " />
< asp:Parameter Name = " JG " Type = " String " />
< asp:Parameter Name = " ZCS " Type = " String " />
< asp:Parameter Name = " CH " Type = " String " />
< asp:Parameter Name = " JCNF " Type = " String " />
< asp:Parameter Name = " YT " Type = " String " />
< asp:Parameter Name = " JZMJ " Type = " Double " />
< asp:Parameter Name = " TNMJ " Type = " Double " />
< asp:Parameter Name = " CQMJ " Type = " Double " />
< asp:Parameter Name = " WZMJ " Type = " Double " />
< asp:Parameter Name = " FWID " Type = " String " />
< asp:Parameter Name = " FWZL " Type = " String " />
< asp:Parameter Name = " QT " Type = " String " />
< asp:Parameter Name = " TXQZDY " Type = " String " DefaultValue = " TRUE " />
</ UpdateParameters >




</ asp:ObjectDataSource >



< asp:GridView ID = " gvFWID " runat = " server " Font - Size = " 11px " Font - Strikeout = " False " DataSourceID = " objDSTest " Width = " 1089px " AutoGenerateColumns = " False " AutoGenerateEditButton = " True " AutoGenerateSelectButton = " True " CssClass = " ListCss " >
< Columns >
< asp:TemplateField HeaderText = " 选择 " >
< ItemTemplate >
< asp:CheckBox ID = " cbSEL " runat = " server " />
< asp:HiddenField ID = " hfFWID " runat = " server " Value = ' <%# Bind("FWID") %>' />
< asp:HiddenField ID = " hfDYFWID " runat = " server " Value = ' <%# Bind("DYFWID") %>' />
</ ItemTemplate >
</ asp:TemplateField >
< asp:TemplateField HeaderText = " 序号 " >
< EditItemTemplate >
< asp:TextBox ID = " TextBox1 " runat = " server " Text = ' <%# Bind("XH") %>' Width="24px"></asp:TextBox>
</ EditItemTemplate >
< ItemTemplate >
< asp:Label ID = " Label3 " runat = " server " Text = ' <%# Bind("XH") %>'></asp:Label>
</ ItemTemplate >
</ asp:TemplateField >
< asp:TemplateField HeaderText = " 幢号 " >
< EditItemTemplate >
< asp:TextBox ID = " TextBox2 " runat = " server " Text = ' <%# Bind("ZH") %>' Width="24px"></asp:TextBox>
</ EditItemTemplate >
< ItemTemplate >
< asp:Label ID = " Label4 " runat = " server " Text = ' <%# Bind("ZH") %>'></asp:Label>
</ ItemTemplate >
</ asp:TemplateField >
< asp:TemplateField HeaderText = " 房号 " >
< EditItemTemplate >
< asp:TextBox ID = " TextBox3 " runat = " server " Text = ' <%# Bind("FAH") %>' Width="40px"></asp:TextBox>
</ EditItemTemplate >
< ItemTemplate >
< asp:Label ID = " Label5 " runat = " server " Text = ' <%# Bind("FAH") %>'></asp:Label>
</ ItemTemplate >
</ asp:TemplateField >
< asp:CheckBoxField DataField = " SFCT " HeaderText = " 成套 " SortExpression = " SFCT " />
< asp:TemplateField HeaderText = " 结构 " >
< EditItemTemplate >
& nbsp; < asp:DropDownList ID = " DropDownList2 " runat = " server " DataSourceID = " objDSBMB_FWJG " DataValueField = " MC " DataTextField = " MC " SelectedValue = ' <%# Bind("JG") %>' Height="8px" Width="64px">
</ asp:DropDownList >
</ EditItemTemplate >
< ItemTemplate >
< asp:Label ID = " Label2 " runat = " server " Text = ' <%# Bind("JG") %>'></asp:Label>
</ ItemTemplate >
</ asp:TemplateField >
< asp:TemplateField HeaderText = " 总层数 " >
< EditItemTemplate >
< asp:TextBox ID = " TextBox4 " runat = " server " Text = ' <%# Bind("ZCS") %>' Width="24px"></asp:TextBox>
</ EditItemTemplate >
< ItemTemplate >
< asp:Label ID = " Label6 " runat = " server " Text = ' <%# Bind("ZCS") %>'></asp:Label>
</ ItemTemplate >
</ asp:TemplateField >
< asp:TemplateField HeaderText = " 层次 " >
< EditItemTemplate >
< asp:TextBox ID = " TextBox5 " runat = " server " Text = ' <%# Bind("CH") %>' Width="24px"></asp:TextBox>
</ EditItemTemplate >
< ItemTemplate >
< asp:Label ID = " Label7 " runat = " server " Text = ' <%# Bind("CH") %>'></asp:Label>
</ ItemTemplate >
</ asp:TemplateField >
< asp:TemplateField HeaderText = " 建成年份 " >
< EditItemTemplate >
< asp:TextBox ID = " TextBox6 " runat = " server " Text = ' <%# Bind("JCNF") %>' Width="48px"></asp:TextBox>
</ EditItemTemplate >
< ItemTemplate >
< asp:Label ID = " Label8 " runat = " server " Text = ' <%# Bind("JCNF") %>'></asp:Label>
</ ItemTemplate >
</ asp:TemplateField >
< asp:TemplateField HeaderText = " 规划用途 " >
< EditItemTemplate >
< asp:DropDownList ID = " DropDownList1 " runat = " server " DataSourceID = " objDSBMB_FWYT " AppendDataBoundItems = " True " DataValueField = " MC " DataTextField = " MC " SelectedValue = ' <%# Bind("YT") %>' Width="64px">
</ asp:DropDownList >
</ EditItemTemplate >
< ItemTemplate >
< asp:Label ID = " Label1 " runat = " server " Text = ' <%# Bind("YT") %>'></asp:Label>
</ ItemTemplate >
</ asp:TemplateField >
< asp:TemplateField HeaderText = " 建筑面积 " >
< EditItemTemplate >
< asp:TextBox ID = " TextBox7 " runat = " server " Text = ' <%# Bind("JZMJ") %>' Width="48px"></asp:TextBox>
</ EditItemTemplate >
< ItemTemplate >
< asp:Label ID = " lbJZMJ " runat = " server " Text = ' <%# Bind("JZMJ") %>'></asp:Label>
</ ItemTemplate >
</ asp:TemplateField >
< asp:TemplateField HeaderText = " 套内面积 " >
< EditItemTemplate >
< asp:TextBox ID = " TextBox8 " runat = " server " Text = ' <%# Bind("TNMJ") %>' Width="48px"></asp:TextBox>
</ EditItemTemplate >
< ItemTemplate >
< asp:Label ID = " lbTNMJ " runat = " server " Text = ' <%# Bind("TNMJ") %>'></asp:Label>
</ ItemTemplate >
</ asp:TemplateField >
< asp:TemplateField HeaderText = " 产权面积 " >
< EditItemTemplate >
< asp:TextBox ID = " TextBox9 " runat = " server " Text = ' <%# Bind("CQMJ") %>' Width="64px"></asp:TextBox>
</ EditItemTemplate >
< ItemTemplate >
< asp:Label ID = " lbCQMJ " runat = " server " Text = ' <%# Bind("CQMJ") %>'></asp:Label>
</ ItemTemplate >
</ asp:TemplateField >
< asp:TemplateField HeaderText = " 违章面积 " >
< EditItemTemplate >
< asp:TextBox ID = " TextBox10 " runat = " server " Text = ' <%# Bind("WZMJ") %>' Width="48px"></asp:TextBox>
</ EditItemTemplate >
< ItemTemplate >
< asp:Label ID = " lbWZMJ " runat = " server " Text = ' <%# Bind("WZMJ") %>'></asp:Label>
</ ItemTemplate >
</ asp:TemplateField >
< asp:BoundField DataField = " FWZL " HeaderText = " 房屋坐落 " SortExpression = " FWZL " />
< asp:CheckBoxField DataField = " TXQZDY " HeaderText = " 在他项权证上打印 " SortExpression = " TXQZDY " />
< asp:TemplateField HeaderText = " 其他 " >
< EditItemTemplate >
< asp:TextBox ID = " TextBox12 " runat = " server " Text = ' <%# Bind("QT") %>' Width="48px"></asp:TextBox>
</ EditItemTemplate >
< ItemTemplate >
< asp:Label ID = " lbQT " runat = " server " Text = ' <%# Bind("QT") %>'></asp:Label>
</ ItemTemplate >
</ asp:TemplateField >
< asp:TemplateField >
< ItemTemplate >
< asp:label runat = " server " ID = " fwtxx " onclick = " javascript:ShowFWPic(this); " aa = ' <%# me.ResolveUrl(Eval("FILENAME")) %>' Text="户室图形" style="cursor:hand;" Width="50px" />
</ ItemTemplate >
</ asp:TemplateField >
</ Columns >
< SelectedRowStyle CssClass = " ListCssC " />
< HeaderStyle CssClass = " ListCssTop " />
</ asp:GridView >

 

 

 

 

 

 

 

更新前的操作

Protected Sub gvDYFWID_RowUpdating( ByVal sender As Object , ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles gvDYFWID.RowUpdating
If Not SouthHIS.CheckData.CheckAndResetData(e.NewValues.Item( " JZMJ " ), CheckData.chkDataType.数字, 10 ) Then
Msg( " 要求建筑面积输入内容为数字。 " , Page)
e.Cancel = True
End If
If Not String .IsNullOrEmpty(e.NewValues.Item( " TNMJ " )) AndAlso Not SouthHIS.CheckData.CheckAndResetData(e.NewValues.Item( " TNMJ " ), CheckData.chkDataType.数字, 10 ) Then
Msg( " 要求套内面积输入内容为数字。 " , Page)
e.Cancel = True
End If

If Not String .IsNullOrEmpty(e.NewValues.Item( " TNMJ " )) Then
Dim dJZMJ As Decimal = e.NewValues.Item( " JZMJ " )
Dim dTNMJ As Decimal = e.NewValues.Item( " TNMJ " )
If dTNMJ > dJZMJ Then
Msg( " 套内面积不能大于建筑面积。 " , Page)
e.Cancel = True
End If
End If
InsertGvDYFWID(e)
End Sub

 

        If e.Cancel = False Then
            Dim strFWID As String = CType(gvFWID.Rows(e.RowIndex).Cells(INT_gvFWID_CurSelIndex).FindControl("hfFWID"), HiddenField).Value

            InsertGVLog(Me.gvFWID, e, strFWID, Me.m_strYWH, "修改基本房屋属性:FWID=", 1)
        End If
    End Sub
Public Sub InsertGVLog(ByVal gvID As System.Web.UI.WebControls.GridView, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs, ByVal sFWID As String, ByVal sYWH As String, ByVal str As String, ByVal iStart As Integer)
        Dim iRowIndex As Integer = e.RowIndex
        Dim iColumn As Integer = e.OldValues.Count - 1
        Dim strTemp As String = "{0}由{1}改为{2};"
        Dim strChange As String = String.Empty
        For i As Integer = 1 To iColumn
            If Not String.Equals(e.NewValues(i), e.OldValues(i)) Then
                strChange &= String.Format(strTemp, gvID.Columns(i - iStart).HeaderText, ChangeToString(e.OldValues(i)), ChangeToString(e.NewValues(i)))
            End If
        Next
        If Not String.IsNullOrEmpty(strChange) Then
            strChange = String.Format("{1}{0}:", sFWID, str) & strChange
            InsertLog(sYWH, strChange)
        End If

    End Sub

转载于:https://www.cnblogs.com/xulei123/archive/2011/05/12/2044874.html