Hi i am using VS 2010 Vb with sqlServer
I want to update Records from table Cust_Master on CCode (Primary key field)
i retrive data from another aspx form where i used Gridview binded with sqldatasource
i used another form to update records after editing text boxes
but text box value not is that which i have edited to modify but in debug mode it shows old value that is already been entered in database table
follwing is the comple page code
pl. help me
CustCreate.aspx.vb
Imports System.Data.SqlClient
Public Class CustCreate
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim strCCode As String
txtVenCode.Enabled = False
txtCrDate.Enabled = False
ddCat.Enabled = False
txtFirmName.Enabled = False
txtAdd1.Enabled = False
txtAdd2.Enabled = False
ddCity.Enabled = False
ddState.Enabled = False
ddCountry.Enabled = False
txtPin.Enabled = False
txtPh1.Enabled = False
txtPh2.Enabled = False
txtFax.Enabled = False
txtCST.Enabled = False
txtBST.Enabled = False
txtExNo.Enabled = False
txtExRange.Enabled = False
txtExDivision.Enabled = False
txtCP1.Enabled = False
txtCP1_Mob1.Enabled = False
txtCP1_Mob2.Enabled = False
txtCP1_EML1.Enabled = False
txtCP1_EML2.Enabled = False
txtCP2.Enabled = False
txtCP2_Mob1.Enabled = False
txtCP2_Mob2.Enabled = False
txtCP2_EML1.Enabled = False
txtCP2_EML2.Enabled = False
txtCredit.Enabled = False
txtOpBal.Enabled = False
txtTCS.Enabled = False
txtIsValid.Enabled = False
strCCode = CStr(Session("CCode"))
txtCCode.Text = strCCode
If txtCCode.Text = "" Then
btnModify.Visible = False
btnSave.Visible = True
btnUpdate.Visible = False
Else
Call GetRecords()
btnModify.Visible = True
btnSave.Visible = False
btnUpdate.Visible = False
End If
End Sub
Protected Sub GetRecords()
Dim sqlQuery As New SqlCommand("Select * From CUST_MASTER where CCODE = '" + txtCCode.Text + "' and IS_VALID = 1 ")
Dim ResultSet As DataSet
Dim DtCrDate As Date
Dim strCrDate As String
'btnSave.Visible = False
'btnUpdate.visible = True
ResultSet = RunQuery(sqlQuery)
If ResultSet.Tables.Count > 0 Then
If ResultSet.Tables(0).Rows.Count > 0 Then
Dim row As DataRow
For Each row In ResultSet.Tables(0).Rows
txtVenCode.Text = (row("VEN_CODE").ToString())
txtCrDate.Text = (row("CR_DATE").ToString())
DtCrDate = Convert.ToDateTime(txtCrDate.Text)
strCrDate = Format(DtCrDate, "dd/MM/yyyy").ToString
txtCrDate.Text = DtCrDate
'ddCat.SelectedValue = (row("CUST_CAT").ToString())
txtFirmName.Text = (row("FIRM_NAME").ToString())
txtAdd1.Text = (row("ADDRESS1").ToString())
txtAdd2.Text = (row("ADDRESS2").ToString())
'ddCity.SelectedValue = (row("CITY").ToString())
'ddState.SelectedValue = (row("STATE").ToString())
'ddCountry.SelectedValue = (row("COUNTRY").ToString())
txtPin.Text = (row("PINCODE").ToString())
txtPh1.Text = (row("FIRM_PH_NO_1").ToString())
txtPh2.Text = (row("FIRM_PH_NO_2").ToString())
txtFax.Text = (row("FIRM_FAX_NO").ToString())
txtCST.Text = (row("CST_NO").ToString())
txtBST.Text = (row("BST_NO").ToString())
txtExNo.Text = (row("EXCISE_NO").ToString())
txtExRange.Text = (row("EXCISE_RANGE").ToString())
txtExDivision.Text = (row("EXCISE_DIV").ToString())
txtCP1.Text = (row("CONTACT_PER_1").ToString())
txtCP1_Mob1.Text = (row("CP1_MOB_1").ToString())
txtCP1_Mob2.Text = (row("CP1_MOB_2").ToString())
txtCP1_EML1.Text = (row("CP1_EMIAL_1").ToString())
txtCP1_EML2.Text = (row("CP1_EMAIL_2").ToString())
txtCP2.Text = (row("CONTACT_PER_2").ToString())
txtCP2_Mob1.Text = (row("CP2_MOB_1").ToString())
txtCP2_Mob2.Text = (row("CP2_MOB_2").ToString())
txtCP2_EML1.Text = (row("CP2_EMAIL_1").ToString())
txtCP2_EML2.Text = (row("CP2_EMAIL_2").ToString())
txtCredit.Text = (row("CREDIT_DAYS").ToString())
txtOpBal.Text = (row("OPENING_BAL").ToString())
txtTCS.Text = (row("TCS_PER").ToString())
txtIsValid.Text = (row("IS_VALID").ToString())
Next
Else
Response.Write("No Matching Records Found")
txtCCode.Text = ""
End If
Else
Response.Write("No Matching Records Found")
txtCCode.Text = ""
End If
sqlQuery = Nothing
ResultSet = Nothing
End Sub
Function RunQuery(ByVal sqlQuery As SqlCommand) As DataSet
Dim connectionString As String
connectionString = _
ConfigurationManager.ConnectionStrings _
("KCPConnectionString1").ConnectionString
Dim dbConnection As New SqlConnection
dbConnection.ConnectionString = connectionString
Dim dbAdapter As New SqlDataAdapter
dbAdapter.SelectCommand = sqlQuery
sqlQuery.Connection = dbConnection
Dim resultsDataSet As DataSet = New DataSet
Try
dbAdapter.Fill(resultsDataSet)
Catch ex As Exception
Response.Write("Unable to connect to SQL Server.")
End Try
Return resultsDataSet
End Function
Private Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
Dim myConn As SqlConnection
Dim cmd As SqlCommand
Dim sqlstring, strCCode, strCrDate, strVenCode, strCat, strFirm, strAdd1, strAdd2, strCity, strState, strCountry, strPin, strPh1, strPh2, strFax, strCst, strBst, strExcise, strexRange, strExDiv, strCP1, strCP2, strCPE1, strCPE2, strCP2E1, strCP2E2, strTCS, strValid As String
Dim DtCrDate As Date
Dim dblCP1M1, dblCP1M2, dblCP2M1, dblCP2M2, dblCDays, dblOPBal As Double
strCCode = txtCCode.Text
DtCrDate = Convert.ToDateTime(txtCrDate.Text)
strCrDate = Format(DtCrDate, "MM/dd/yyyy").ToString
strVenCode = txtVenCode.Text
strCat = ddCat.SelectedValue
strFirm = txtFirmName.Text
strAdd1 = txtAdd1.Text
strAdd2 = txtAdd2.Text
strCity = ddCity.SelectedValue
strState = ddState.SelectedValue
strCountry = ddCountry.SelectedValue
strPin = Me.txtPin.Text
strPh1 = txtPh1.Text
strPh2 = txtPh2.Text
strFax = txtFax.Text
strCst = txtCST.Text
strBst = Me.txtBST.Text
strExcise = txtExNo.Text
strexRange = txtExRange.Text
strExDiv = txtExDivision.Text
strCP1 = txtCP1.Text
If Not IsNumeric(txtCP1_Mob1.Text) Then txtCP1_Mob1.Text = 0
dblCP1M1 = txtCP1_Mob1.Text
If Not IsNumeric(txtCP1_Mob2.Text) Then txtCP1_Mob2.Text = 0
dblCP1M2 = txtCP1_Mob2.Text
strCPE1 = txtCP1_EML1.Text
strCPE2 = txtCP1_EML2.Text
strCP2 = txtCP2.Text
If Not IsNumeric(txtCP2_Mob1.Text) Then txtCP2_Mob1.Text = 0
dblCP2M1 = txtCP2_Mob1.Text
If Not IsNumeric(txtCP2_Mob2.Text) Then txtCP2_Mob2.Text = 0
dblCP2M2 = txtCP2_Mob2.Text
strCP2E1 = txtCP2_EML1.Text
strCP2E2 = txtCP2_EML2.Text
If Not IsNumeric(txtCredit.Text) Then txtCredit.Text = 0
dblCDays = txtCredit.Text
If Not IsNumeric(txtOpBal.Text) Then txtOpBal.Text = 0
dblOPBal = txtOpBal.Text
strTCS = txtTCS.Text
strValid = 1
myConn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\KCP.mdf;Integrated Security=True;User Instance=True")
myConn.Open()
sqlstring = " Update CUST_MASTER set CR_DATE = '" + strCrDate + "',VEN_CODE = '" + strVenCode + "',CUST_CAT = '" + strCat + "',FIRM_NAME = '" + strFirm + "',ADDRESS1 = '" + strAdd1 + "',ADDRESS2 = '" + strAdd2 + "',CITY = '" + strCity + "',STATE = '" + strState + "',COUNTRY = '" + strCountry + "',PINCODE = '" + strPin + "',FIRM_PH_NO_1 = '" + strPh1 + "',FIRM_PH_NO_2 = '" + strPh2 + "',FIRM_FAX_NO = '" + strFax + "',CST_NO = '" + strCst + "',BST_NO = '" + strBst + "',EXCISE_NO = '" + strExcise + "',EXCISE_RANGE = '" + strexRange + "',EXCISE_DIV = '" + strExDiv + "',CONTACT_PER_1 ='" + strCP1 + "',CP1_MOB_1 = " + dblCP1M1.ToString + ",CP1_MOB_2 = " + dblCP1M2.ToString + ",CP1_EMIAL_1= '" + strCPE1 + "',CP1_EMAIL_2 = '" + strCPE2 + "',CONTACT_PER_2= '" + strCP2 + "',CP2_MOB_1 = " + dblCP2M1.ToString + ",CP2_MOB_2 = " + dblCP2M2.ToString + ",CP2_EMAIL_1 = '" + strCP2E1 + "',CP2_EMAIL_2 = '" + strCP2E2 + "',CREDIT_DAYS = " + dblCDays.ToString + ",OPENING_BAL =" + dblOPBal.ToString + ",TCS_PER = '" + strTCS + "' ,IS_VALID = '" + strValid + "' where CCOde = '" + strCCode + "' "
cmd = New SqlCommand(sqlstring, myConn)
cmd.ExecuteNonQuery()
myConn.Close()
txtVenCode.Text = ""
txtCrDate.Text = ""
ddCat.SelectedIndex = 0
txtFirmName.Text = ""
txtAdd1.Text = ""
txtAdd2.Text = ""
ddCity.SelectedIndex = 0
ddState.SelectedIndex = 0
ddCountry.SelectedIndex = 0
txtPin.Text = ""
txtPh1.Text = ""
txtPh2.Text = ""
txtFax.Text = ""
txtCST.Text = ""
txtBST.Text = ""
txtExNo.Text = ""
txtExRange.Text = ""
txtExDivision.Text = ""
txtCP1.Text = ""
txtCP1_Mob1.Text = ""
txtCP1_Mob2.Text = ""
txtCP1_EML1.Text = ""
txtCP1_EML2.Text = ""
txtCP2.Text = ""
txtCP2_Mob1.Text = ""
txtCP2_Mob2.Text = ""
txtCP2_EML1.Text = ""
txtCP2_EML2.Text = ""
txtCredit.Text = ""
txtOpBal.Text = ""
txtTCS.Text = ""
txtIsValid.Text = ""
strCCode = ""
strCrDate = ""
strVenCode = ""
strCat = ""
strFirm = ""
strAdd1 = ""
strAdd2 = ""
strCity = ""
strState = ""
strCountry = ""
strPin = ""
strPh1 = ""
strPh2 = ""
strFax = ""
strCst = ""
strBst = ""
strExcise = ""
strexRange = ""
strExDiv = ""
strCP1 = ""
strCP2 = ""
strCPE1 = ""
strCPE2 = ""
strCP2E1 = ""
strCP2E2 = ""
strTCS = ""
strValid = ""
Response.Redirect("CustView.aspx", True)
End Sub
Protected Sub btnModify_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnModify.Click
txtVenCode.Enabled = True
txtCrDate.Enabled = True
ddCat.Enabled = True
txtFirmName.Enabled = True
txtAdd1.Enabled = True
txtAdd2.Enabled = True
ddCity.Enabled = True
ddState.Enabled = True
ddCountry.Enabled = True
txtPin.Enabled = True
txtPh1.Enabled = True
txtPh2.Enabled = True
txtFax.Enabled = True
txtCST.Enabled = True
txtBST.Enabled = True
txtExNo.Enabled = True
txtExRange.Enabled = True
txtExDivision.Enabled = True
txtCP1.Enabled = True
txtCP1_Mob1.Enabled = True
txtCP1_Mob2.Enabled = True
txtCP1_EML1.Enabled = True
txtCP1_EML2.Enabled = True
txtCP2.Enabled = True
txtCP2_Mob1.Enabled = True
txtCP2_Mob2.Enabled = True
txtCP2_EML1.Enabled = True
txtCP2_EML2.Enabled = True
txtCredit.Enabled = True
txtOpBal.Enabled = True
txtTCS.Enabled = True
txtIsValid.Enabled = True
btnUpdate.Visible = True
End Sub
End Class
I want to update Records from table Cust_Master on CCode (Primary key field)
i retrive data from another aspx form where i used Gridview binded with sqldatasource
i used another form to update records after editing text boxes
but text box value not is that which i have edited to modify but in debug mode it shows old value that is already been entered in database table
follwing is the comple page code
pl. help me
CustCreate.aspx.vb
Imports System.Data.SqlClient
Public Class CustCreate
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim strCCode As String
txtVenCode.Enabled = False
txtCrDate.Enabled = False
ddCat.Enabled = False
txtFirmName.Enabled = False
txtAdd1.Enabled = False
txtAdd2.Enabled = False
ddCity.Enabled = False
ddState.Enabled = False
ddCountry.Enabled = False
txtPin.Enabled = False
txtPh1.Enabled = False
txtPh2.Enabled = False
txtFax.Enabled = False
txtCST.Enabled = False
txtBST.Enabled = False
txtExNo.Enabled = False
txtExRange.Enabled = False
txtExDivision.Enabled = False
txtCP1.Enabled = False
txtCP1_Mob1.Enabled = False
txtCP1_Mob2.Enabled = False
txtCP1_EML1.Enabled = False
txtCP1_EML2.Enabled = False
txtCP2.Enabled = False
txtCP2_Mob1.Enabled = False
txtCP2_Mob2.Enabled = False
txtCP2_EML1.Enabled = False
txtCP2_EML2.Enabled = False
txtCredit.Enabled = False
txtOpBal.Enabled = False
txtTCS.Enabled = False
txtIsValid.Enabled = False
strCCode = CStr(Session("CCode"))
txtCCode.Text = strCCode
If txtCCode.Text = "" Then
btnModify.Visible = False
btnSave.Visible = True
btnUpdate.Visible = False
Else
Call GetRecords()
btnModify.Visible = True
btnSave.Visible = False
btnUpdate.Visible = False
End If
End Sub
Protected Sub GetRecords()
Dim sqlQuery As New SqlCommand("Select * From CUST_MASTER where CCODE = '" + txtCCode.Text + "' and IS_VALID = 1 ")
Dim ResultSet As DataSet
Dim DtCrDate As Date
Dim strCrDate As String
'btnSave.Visible = False
'btnUpdate.visible = True
ResultSet = RunQuery(sqlQuery)
If ResultSet.Tables.Count > 0 Then
If ResultSet.Tables(0).Rows.Count > 0 Then
Dim row As DataRow
For Each row In ResultSet.Tables(0).Rows
txtVenCode.Text = (row("VEN_CODE").ToString())
txtCrDate.Text = (row("CR_DATE").ToString())
DtCrDate = Convert.ToDateTime(txtCrDate.Text)
strCrDate = Format(DtCrDate, "dd/MM/yyyy").ToString
txtCrDate.Text = DtCrDate
'ddCat.SelectedValue = (row("CUST_CAT").ToString())
txtFirmName.Text = (row("FIRM_NAME").ToString())
txtAdd1.Text = (row("ADDRESS1").ToString())
txtAdd2.Text = (row("ADDRESS2").ToString())
'ddCity.SelectedValue = (row("CITY").ToString())
'ddState.SelectedValue = (row("STATE").ToString())
'ddCountry.SelectedValue = (row("COUNTRY").ToString())
txtPin.Text = (row("PINCODE").ToString())
txtPh1.Text = (row("FIRM_PH_NO_1").ToString())
txtPh2.Text = (row("FIRM_PH_NO_2").ToString())
txtFax.Text = (row("FIRM_FAX_NO").ToString())
txtCST.Text = (row("CST_NO").ToString())
txtBST.Text = (row("BST_NO").ToString())
txtExNo.Text = (row("EXCISE_NO").ToString())
txtExRange.Text = (row("EXCISE_RANGE").ToString())
txtExDivision.Text = (row("EXCISE_DIV").ToString())
txtCP1.Text = (row("CONTACT_PER_1").ToString())
txtCP1_Mob1.Text = (row("CP1_MOB_1").ToString())
txtCP1_Mob2.Text = (row("CP1_MOB_2").ToString())
txtCP1_EML1.Text = (row("CP1_EMIAL_1").ToString())
txtCP1_EML2.Text = (row("CP1_EMAIL_2").ToString())
txtCP2.Text = (row("CONTACT_PER_2").ToString())
txtCP2_Mob1.Text = (row("CP2_MOB_1").ToString())
txtCP2_Mob2.Text = (row("CP2_MOB_2").ToString())
txtCP2_EML1.Text = (row("CP2_EMAIL_1").ToString())
txtCP2_EML2.Text = (row("CP2_EMAIL_2").ToString())
txtCredit.Text = (row("CREDIT_DAYS").ToString())
txtOpBal.Text = (row("OPENING_BAL").ToString())
txtTCS.Text = (row("TCS_PER").ToString())
txtIsValid.Text = (row("IS_VALID").ToString())
Next
Else
Response.Write("No Matching Records Found")
txtCCode.Text = ""
End If
Else
Response.Write("No Matching Records Found")
txtCCode.Text = ""
End If
sqlQuery = Nothing
ResultSet = Nothing
End Sub
Function RunQuery(ByVal sqlQuery As SqlCommand) As DataSet
Dim connectionString As String
connectionString = _
ConfigurationManager.ConnectionStrings _
("KCPConnectionString1").ConnectionString
Dim dbConnection As New SqlConnection
dbConnection.ConnectionString = connectionString
Dim dbAdapter As New SqlDataAdapter
dbAdapter.SelectCommand = sqlQuery
sqlQuery.Connection = dbConnection
Dim resultsDataSet As DataSet = New DataSet
Try
dbAdapter.Fill(resultsDataSet)
Catch ex As Exception
Response.Write("Unable to connect to SQL Server.")
End Try
Return resultsDataSet
End Function
Private Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
Dim myConn As SqlConnection
Dim cmd As SqlCommand
Dim sqlstring, strCCode, strCrDate, strVenCode, strCat, strFirm, strAdd1, strAdd2, strCity, strState, strCountry, strPin, strPh1, strPh2, strFax, strCst, strBst, strExcise, strexRange, strExDiv, strCP1, strCP2, strCPE1, strCPE2, strCP2E1, strCP2E2, strTCS, strValid As String
Dim DtCrDate As Date
Dim dblCP1M1, dblCP1M2, dblCP2M1, dblCP2M2, dblCDays, dblOPBal As Double
strCCode = txtCCode.Text
DtCrDate = Convert.ToDateTime(txtCrDate.Text)
strCrDate = Format(DtCrDate, "MM/dd/yyyy").ToString
strVenCode = txtVenCode.Text
strCat = ddCat.SelectedValue
strFirm = txtFirmName.Text
strAdd1 = txtAdd1.Text
strAdd2 = txtAdd2.Text
strCity = ddCity.SelectedValue
strState = ddState.SelectedValue
strCountry = ddCountry.SelectedValue
strPin = Me.txtPin.Text
strPh1 = txtPh1.Text
strPh2 = txtPh2.Text
strFax = txtFax.Text
strCst = txtCST.Text
strBst = Me.txtBST.Text
strExcise = txtExNo.Text
strexRange = txtExRange.Text
strExDiv = txtExDivision.Text
strCP1 = txtCP1.Text
If Not IsNumeric(txtCP1_Mob1.Text) Then txtCP1_Mob1.Text = 0
dblCP1M1 = txtCP1_Mob1.Text
If Not IsNumeric(txtCP1_Mob2.Text) Then txtCP1_Mob2.Text = 0
dblCP1M2 = txtCP1_Mob2.Text
strCPE1 = txtCP1_EML1.Text
strCPE2 = txtCP1_EML2.Text
strCP2 = txtCP2.Text
If Not IsNumeric(txtCP2_Mob1.Text) Then txtCP2_Mob1.Text = 0
dblCP2M1 = txtCP2_Mob1.Text
If Not IsNumeric(txtCP2_Mob2.Text) Then txtCP2_Mob2.Text = 0
dblCP2M2 = txtCP2_Mob2.Text
strCP2E1 = txtCP2_EML1.Text
strCP2E2 = txtCP2_EML2.Text
If Not IsNumeric(txtCredit.Text) Then txtCredit.Text = 0
dblCDays = txtCredit.Text
If Not IsNumeric(txtOpBal.Text) Then txtOpBal.Text = 0
dblOPBal = txtOpBal.Text
strTCS = txtTCS.Text
strValid = 1
myConn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\KCP.mdf;Integrated Security=True;User Instance=True")
myConn.Open()
sqlstring = " Update CUST_MASTER set CR_DATE = '" + strCrDate + "',VEN_CODE = '" + strVenCode + "',CUST_CAT = '" + strCat + "',FIRM_NAME = '" + strFirm + "',ADDRESS1 = '" + strAdd1 + "',ADDRESS2 = '" + strAdd2 + "',CITY = '" + strCity + "',STATE = '" + strState + "',COUNTRY = '" + strCountry + "',PINCODE = '" + strPin + "',FIRM_PH_NO_1 = '" + strPh1 + "',FIRM_PH_NO_2 = '" + strPh2 + "',FIRM_FAX_NO = '" + strFax + "',CST_NO = '" + strCst + "',BST_NO = '" + strBst + "',EXCISE_NO = '" + strExcise + "',EXCISE_RANGE = '" + strexRange + "',EXCISE_DIV = '" + strExDiv + "',CONTACT_PER_1 ='" + strCP1 + "',CP1_MOB_1 = " + dblCP1M1.ToString + ",CP1_MOB_2 = " + dblCP1M2.ToString + ",CP1_EMIAL_1= '" + strCPE1 + "',CP1_EMAIL_2 = '" + strCPE2 + "',CONTACT_PER_2= '" + strCP2 + "',CP2_MOB_1 = " + dblCP2M1.ToString + ",CP2_MOB_2 = " + dblCP2M2.ToString + ",CP2_EMAIL_1 = '" + strCP2E1 + "',CP2_EMAIL_2 = '" + strCP2E2 + "',CREDIT_DAYS = " + dblCDays.ToString + ",OPENING_BAL =" + dblOPBal.ToString + ",TCS_PER = '" + strTCS + "' ,IS_VALID = '" + strValid + "' where CCOde = '" + strCCode + "' "
cmd = New SqlCommand(sqlstring, myConn)
cmd.ExecuteNonQuery()
myConn.Close()
txtVenCode.Text = ""
txtCrDate.Text = ""
ddCat.SelectedIndex = 0
txtFirmName.Text = ""
txtAdd1.Text = ""
txtAdd2.Text = ""
ddCity.SelectedIndex = 0
ddState.SelectedIndex = 0
ddCountry.SelectedIndex = 0
txtPin.Text = ""
txtPh1.Text = ""
txtPh2.Text = ""
txtFax.Text = ""
txtCST.Text = ""
txtBST.Text = ""
txtExNo.Text = ""
txtExRange.Text = ""
txtExDivision.Text = ""
txtCP1.Text = ""
txtCP1_Mob1.Text = ""
txtCP1_Mob2.Text = ""
txtCP1_EML1.Text = ""
txtCP1_EML2.Text = ""
txtCP2.Text = ""
txtCP2_Mob1.Text = ""
txtCP2_Mob2.Text = ""
txtCP2_EML1.Text = ""
txtCP2_EML2.Text = ""
txtCredit.Text = ""
txtOpBal.Text = ""
txtTCS.Text = ""
txtIsValid.Text = ""
strCCode = ""
strCrDate = ""
strVenCode = ""
strCat = ""
strFirm = ""
strAdd1 = ""
strAdd2 = ""
strCity = ""
strState = ""
strCountry = ""
strPin = ""
strPh1 = ""
strPh2 = ""
strFax = ""
strCst = ""
strBst = ""
strExcise = ""
strexRange = ""
strExDiv = ""
strCP1 = ""
strCP2 = ""
strCPE1 = ""
strCPE2 = ""
strCP2E1 = ""
strCP2E2 = ""
strTCS = ""
strValid = ""
Response.Redirect("CustView.aspx", True)
End Sub
Protected Sub btnModify_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnModify.Click
txtVenCode.Enabled = True
txtCrDate.Enabled = True
ddCat.Enabled = True
txtFirmName.Enabled = True
txtAdd1.Enabled = True
txtAdd2.Enabled = True
ddCity.Enabled = True
ddState.Enabled = True
ddCountry.Enabled = True
txtPin.Enabled = True
txtPh1.Enabled = True
txtPh2.Enabled = True
txtFax.Enabled = True
txtCST.Enabled = True
txtBST.Enabled = True
txtExNo.Enabled = True
txtExRange.Enabled = True
txtExDivision.Enabled = True
txtCP1.Enabled = True
txtCP1_Mob1.Enabled = True
txtCP1_Mob2.Enabled = True
txtCP1_EML1.Enabled = True
txtCP1_EML2.Enabled = True
txtCP2.Enabled = True
txtCP2_Mob1.Enabled = True
txtCP2_Mob2.Enabled = True
txtCP2_EML1.Enabled = True
txtCP2_EML2.Enabled = True
txtCredit.Enabled = True
txtOpBal.Enabled = True
txtTCS.Enabled = True
txtIsValid.Enabled = True
btnUpdate.Visible = True
End Sub
End Class