求助:奇怪的“当前不会命中断点,还没有为该文档加载任何符号”错误,不知道为何?
我在调试程序的时候出现了“当前不会命中断点,还没有为该文档加载任何符号”错误。不知道为何?请大家在解决问题的时候步骤详细一点,谢谢!补充一下我出问题的情况(开发环境vb.net2002,操作系统是Win2003 Server Enterprise,经过我仔细的查找发现就是在该页中有两个方法会出现这个错误“GetList”方法和“btnSeek_Click”方法,而其它三个“Page_Load、BindData、GetList”方法中是可以调试的,真不知道为何!首先说明项目配置已经是在Debug了,已经启用了Asn.net调试项,而且从项目中排除后重新添加也试过了,重新启动计算机也试过,换到其它的计算机上有做过,本页中没有引用任何Dll,结果是同样的问题出现)希望知道的朋友告之一下!
现附代码如下:
Imports System.Data
Imports System.Data.SqlClient
Imports Hrm.NormalKit
Imports Hrm.ShareModule
Public Class TalentSeekForm1
Inherits System.Web.UI.Page
Protected WithEvents DropSex As System.Web.UI.WebControls.DropDownList
Protected WithEvents txtHigh As System.Web.UI.WebControls.TextBox
Protected WithEvents txtWorkAge As System.Web.UI.WebControls.TextBox
Protected WithEvents DropDegree As System.Web.UI.WebControls.DropDownList
Protected WithEvents DropRank As System.Web.UI.WebControls.DropDownList
Protected WithEvents btnSeek As System.Web.UI.WebControls.Button
' Protected WithEvents DropJobType As System.Web.UI.WebControls.DropDownList
Protected WithEvents txtMinAge As System.Web.UI.WebControls.TextBox
Protected WithEvents txtMaxAge As System.Web.UI.WebControls.TextBox
'Protected WithEvents DropIdealArea As System.Web.UI.WebControls.DropDownList
'Protected WithEvents ListAvailArea As System.Web.UI.WebControls.ListBox
'Protected WithEvents ListSelArea As System.Web.UI.WebControls.ListBox
Protected WithEvents ListAvailDuty As System.Web.UI.WebControls.ListBox
Protected WithEvents DropDuty As System.Web.UI.WebControls.DropDownList
Protected WithEvents ListSelDuty As System.Web.UI.WebControls.ListBox
'Protected WithEvents ListSelLoc As System.Web.UI.WebControls.ListBox
'Protected WithEvents ListAvailLoc As System.Web.UI.WebControls.ListBox
'Protected WithEvents DropLoc As System.Web.UI.WebControls.DropDownList
Protected WithEvents DropMajor As System.Web.UI.WebControls.DropDownList
' Protected WithEvents DropTalentType As System.Web.UI.WebControls.DropDownList
' Protected WithEvents DropSalary As System.Web.UI.WebControls.DropDownList
Protected WithEvents DropDayCount As System.Web.UI.WebControls.DropDownList
Protected WithEvents ddl_KeyWord As System.Web.UI.WebControls.DropDownList
Protected WithEvents DropLocType As System.Web.UI.WebControls.DropDownList
Protected WithEvents txtLoc As System.Web.UI.WebControls.TextBox
Protected WithEvents txtKeyword As System.Web.UI.WebControls.TextBox
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.InitClient()
If Not Page.IsPostBack Then
Me.BindData()
End If
End Sub
Private Sub BindData()
Dim MyTool As New MiniTool(True, 10, False)
'MyTool.ComboBound(DropIdealArea, "37", "-1", "==请选择==", "")
'MyTool.ComboBound(DropLoc, "37", "-1", "==请选择==", "")
MyTool.ComboBound(DropDuty, "38", "-1", "==请选择==", "")
MyTool.ComboBound(DropMajor, "40", "-1", "==请选择==")
' MyTool.ComboBound(DropTalentType, "42", "-1", "不限")
' MyTool.ComboBound(DropJobType, "41", "01", "")
MyTool.ComboBound(DropSex, "18", "-1", "不限")
MyTool.ComboBound(DropDegree, "04", "-1", "不限")
MyTool.ComboBound(DropRank, "16", "-1", "不限")
' MyTool.ComboBound(DropSalary, "14", "00", "")
MyTool.ComboBound(DropDayCount, "49", "-1", "不限")
MyTool.Free()
End Sub
Public Sub InitClient()
Dim strClientKey As String, strClientValue As String
strClientKey = "Init" + Me.UniqueID
strClientValue = "<script lanaguage=javascript>" + vbCr + "<!--" + vbCr
ShareClass.InitArray(strClientValue, "aryAreaId", "aryAreaLabel", "37")
ShareClass.InitArray(strClientValue, "aryDutyId", "aryDutyLabel", "38")
'ShareClass.InitArray(strClientValue, "aryMajorId", "aryMajorLabel", "40")
strClientValue += vbCr + "//-->" + vbCr + "</script>"
RegisterStartupScript(strClientKey, strClientValue)
'DropIdealArea.Attributes.Add("OnChange", "javascript:ChangeSel(DropIdealArea,ListAvailArea,aryAreaId,aryAreaLabel);")
'DropLoc.Attributes.Add("OnChange", "javascript:ChangeSel(DropLoc,ListAvailLoc,aryAreaId,aryAreaLabel);")
DropDuty.Attributes.Add("OnChange", "javascript:ChangeSel(DropDuty,ListAvailDuty,aryDutyId,aryDutyLabel);")
'DropMajor.Attributes.Add("OnChange", "javascript:ChangeSel(DropMajor,ListAvailMajor,aryMajorId,aryMajorLabel);")
End Sub
Private Function GetList(ByVal curList As ListBox) As String
Dim strBuf As String = Request(curList.ID), strResult As String
Dim aryBuf() As String, OneItem As String
aryBuf = Split(strBuf, ",")
strResult = ""
For Each OneItem In aryBuf
strResult += "#" + OneItem + "#|"
Next
If strResult <> "" Then
strResult = Mid(strResult, 1, Len(strResult) - 1)
End If
Return (strResult)
End Function
Private Sub btnSeek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSeek.Click
Dim strUrl As String = "SearchResult.aspx?Sub_id=ByDetail", strWorkAge As String
strWorkAge = IIf(Trim(txtWorkAge.Text) = "", "0", txtWorkAge.Text)
strUrl += "&Keyword=" + Server.UrlEncode(txtKeyword.Text)
strUrl += "&DayCount=" + DropDayCount.SelectedItem.Value
'strUrl += "&IdealArea=" + Server.UrlEncode(Me.GetList(ListSelArea))
'strUrl += "&LocNow=" + Server.UrlEncode(Me.GetList(ListSelLoc))
strUrl += "&IdealDuty=" + Server.UrlEncode(Me.GetList(ListSelDuty))
strUrl += "&Major=" + DropMajor.SelectedItem.Value
' strUrl += "&TalentType=" + DropTalentType.SelectedItem.Value
strUrl += "&MinAge=" + txtMinAge.Text
strUrl += "&MaxAge=" + txtMaxAge.Text
strUrl += "&Sex=" + DropSex.SelectedItem.Value
strUrl += "&Height=" + txtHigh.Text
strUrl += "°ree=" + DropDegree.SelectedItem.Value
' strUrl += "&JobType=" + DropJobType.SelectedItem.Value
strUrl += "&WorkAge=" + strWorkAge
' strUrl += "&Salary=" + DropSalary.SelectedItem.Value
strUrl += "&Rank=" + DropRank.SelectedItem.Value
strUrl += "&KeywordType=" + ddl_KeyWord.SelectedItem.Value
strUrl += "&LocType=" + DropLocType.SelectedItem.Value + "&Loc=" + txtLoc.Text
Response.Redirect(strUrl, True)
End Sub
End Class