断点不起作用 [英] breakpoints not working
本文介绍了断点不起作用的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
你好朋友,我在asp.net窗口应用程序中遇到非常不寻常的问题.当我运行此应用程序时,它可以识别所有断点,但是当我对其进行一些更改时,突然开始忽略它们.
我几乎完成了所有工作,重新启动了应用程序,修复了Visual Studio,但没有任何效果.
请帮帮我.
这是示例按钮的代码,如果我在其中进行了一些更改,调试器将再次开始忽略我的断点.请帮助我.
hello friends i am facing very unusual issue in asp.net window application.When i am running this application it is identifying all breakpoints but when i am making some changes into it , suddenly it starts ignoring them .
I have almost done everything for that , i have restarted my application ,repair my visual studio , but nothing is working .
Please help me .
Here is the code of a button for exaple, if i make some changes in it debugger will again start ignoring my breakpoints.Please help me.
Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
objSearchCustomer.PUserName = txtSearch.Text.Trim
'dsSearch = objSearchCustomer.SearchCustomer
dsSearch = objSearchCustomer.SearchCust()
Dim dr As DataRow = dsSearch.Tables(0).NewRow()
dr("custuserid") = "Select User"
dr("custid") = 0
dsSearch.Tables(0).Rows.InsertAt(dr, 0)
'Dim myrow As System.Data.DataRow
'myrow = dsSearch.Tables(0).NewRow
'myrow.Item(1) = "Select One"
'dsSearch.Tables(0).Rows.InsertAt(myrow, 0)
ddlUser.DropDownStyle = ComboBoxStyle.DropDownList
ddlUser.DataSource = dsSearch.Tables(0).DefaultView
ddlUser.DisplayMember = "custuserid"
ddlUser.ValueMember = "custid"
If ddlUser.Items.Count > 0 Then
ddlUser.SelectedIndex = 0
End If
If Not ddlUser.SelectedIndex < 1 Then
btnarea.Visible = True
UserID = ddlUser.SelectedValue
objSelectUser.PCustID = ddlUser.SelectedValue
dsSelectUser = objSelectUser.SelectCustomer
If dsSelectUser.Tables(0).Rows.Count > 0 Then
lblphone.Text = dsSelectUser.Tables(0).Rows(0)("custphone")
Dim FirstName As String = dsSelectUser.Tables(0).Rows(0)("custfname")
Dim MiddleName As String = dsSelectUser.Tables(0).Rows(0)("custmname")
Dim LastName As String = dsSelectUser.Tables(0).Rows(0)("custlname")
currentPlanID = dsSelectUser.Tables(0).Rows(0)("planid1")
If MiddleName = "NA" Then
txtCustomerName.Text = FirstName & " " & LastName
Else
txtCustomerName.Text = FirstName & " " & MiddleName & " " & LastName
End If
txtAddress.Text = dsSelectUser.Tables(0).Rows(0)("custaddress1") & " " & dsSelectUser.Tables(0).Rows(0)("custaddress2")
txtarea.Text = dsSelectUser.Tables(0).Rows(0)("areaName")
txtPackage.Text = dsSelectUser.Tables(0).Rows(0)("planname")
MonthlyPlan = CInt(dsSelectUser.Tables(0).Rows(0)("plancharges"))
MonthlyPlan2 = CInt(dsSelectUser.Tables(0).Rows(0)("plancharges"))
txtSubCharges.Text = CInt(dsSelectUser.Tables(0).Rows(0)("plancharges"))
'txtSubCharges2.Text = CInt(dsSelectUser.Tables(0).Rows(0)("plancharges"))
'txtTotalCharges.Text = CInt(dsSelectUser.Tables(0).Rows(0)("plancharges"))
txtLastBalance.Text = 0
Button5.Enabled = True
dsSelectBillNo = objSelectBillNo.SelectBillNo()
If dsSelectBillNo.Tables(0).Rows.Count > 0 Then
txtBillNo.Text = dsSelectBillNo.Tables(0).Rows(0)("cbillno")
Else
objUpdateBillNo.PbillNo = 0
objUpdateBillNo.UpdateBillNo()
dsSelectBillNo = objSelectBillNo.SelectBillNo
If dsSelectBillNo.Tables(0).Rows.Count > 0 Then
txtBillNo.Text = dsSelectBillNo.Tables(0).Rows(0)("cbillno")
End If
End If
End If
'objSelectBillByUser.PUserName = ddlUser.Text
'dsSelectBillByUser = objSelectBillByUser.SelectBillByUserID
'If dsSelectBillByUser.Tables(0).Rows.Count > 0 Then
' Label31.Text = "From " & dsSelectBillByUser.Tables(0).Rows(0)("dfromdate") & " To " & dsSelectBillByUser.Tables(0).Rows(0)("dtodate")
' Label32.Text = dsSelectBillByUser.Tables(0).Rows(0)("lamountbeforeduedate")
'Else
' Label31.Text = "No Bill"
' Label32.Text = "0.00"
' Label33.Text = "0.00"
'End If
Dim PaymentDate As DateTime = DateTime.Now
objSelectLastPaymentDetails.PUserName = ddlUser.Text
dsSelectLastPaymentDetails = objSelectLastPaymentDetails.SelectLastPaymentDetails
If dsSelectLastPaymentDetails.Tables(0).Rows.Count > 0 Then
PaymentDate = dsSelectLastPaymentDetails.Tables(0).Rows(0)("dpaymentdate")
End If
'****************************************************
Dim BillDueDate As DateTime = DateTime.Now
objSelectBillByUser.PUserName = ddlUser.Text
dsSelectBillByUser = objSelectBillByUser.SelectBillByUserID
If dsSelectBillByUser.Tables(0).Rows.Count > 0 Then
BillDueDate = dsSelectBillByUser.Tables(0).Rows(0)("dduedate")
If BillDueDate.Date >= PaymentDate.Date Then
Label32.Text = dsSelectBillByUser.Tables(0).Rows(0)("lamountbeforeduedate")
Else
Label32.Text = dsSelectBillByUser.Tables(0).Rows(0)("lamountafterduedate")
txtAdjustment.Text = dsSelectBillByUser.Tables(0).Rows(0)("lamountafterduedate") - dsSelectBillByUser.Tables(0).Rows(0)("lamountbeforeduedate")
ddlAddSub.SelectedItem = "-"
End If
Label31.Text = "From " & GetDate3(dsSelectBillByUser.Tables(0).Rows(0)("dfromdate")) & " To " & GetDate3(dsSelectBillByUser.Tables(0).Rows(0)("dtodate"))
Else
Label31.Text = "No Bill"
Label32.Text = "0.00"
Label33.Text = "0.00"
End If
'*********************************
objSelectLastBalance.PUserName = ddlUser.Text
objSelectLastBalance.PpaymentDate = PaymentDate
dsSelectLastBalance = objSelectLastBalance.SelectLastBalanceUser
If dsSelectLastBalance.Tables(0).Rows.Count > 0 Then
If Not IsDBNull(dsSelectLastBalance.Tables(0).Rows(0)(0)) Then
Label33.Text = dsSelectLastBalance.Tables(0).Rows(0)(0) & ".00"
txtLastBalance.Text = dsSelectLastBalance.Tables(0).Rows(0)(0)
Else
Label33.Text = "0.00"
End If
End If
Button4.Visible = True
ddlPackage.Visible = False
txtPackage.Visible = True
End If
LastPaymentDetails()
AdjustMent(NullValue(txtAdjustment.Text), NullValue(txtCurrentCharges.Text))
End Sub
推荐答案
我希望您先在项目运行"模式下进行检查,以确保您停止调试模式,然后按Shift + F5或Cntl + Alt + Break,然后再尝试.可能有帮助...
I hope Your in Project Running mode check first make sure you are stop debugging mode use key Shift+F5 or Cntl+Alt+Break After Try it. its may helps...
这篇关于断点不起作用的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文