下面是原代码
Private Sub cmbPageCount_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbPageCount.SelectedIndexChanged
Try
Dim iSelectCount As Integer = 0
For iRow As Integer = 0 To FpSpread1.Sheets(0).RowCount - 1 Step 1
If Me.cmbPageCount.SelectedValue = FpSpread1.Sheets(0).Cells(iRow, 0).Value Then
iSelectCount = iRow
Exit For
End If
Next
FpSpread1.Sheets(0).TopRow = iSelectCount
Dim strScript1 As String = ScriptHelper.GetBetweenScriptTag("{0}")
strScript1 = String.Format(strScript1, "GetHiddenValue();")
ClientScript.RegisterStartupScript(Page.GetType(), "DataChengeCheck", strScript1)
Catch ex As Exception
ClsLogControl.OutPutLog(ClsLogControl.ERR_LOG, strWindowID, "cmbPageCount_SelectedIndexChanged", ex.ToString)
DisplayErrorPage(strWindowID, MyBase.getMessage("9999"), ex)
End Try
End Sub
function GetHiddenValue()
{
if(typeof(window.document.forms[0].txtChengeData) =='object')
{
ChengeData=window.document.forms[0].txtChengeData.value;
}
} |