i have a workshop project in which i had used .aspx+vb code and sql database. to edit a form i had used list card the code is given below
Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
listCard()
End Sub
Private Sub listCard()
Dim Repair_Card_no As String = DropDownList1.SelectedValue
Dim con As New SqlConnection(Str)
Dim cmd As New SqlCommand("SELECT_CARD_BY_NUMBER", con)
cmd.CommandType = Data.CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@Repair_Card_no", Repair_Card_no)
Dim rdr As SqlDataReader
Try
con.Open()
rdr = cmd.ExecuteReader()
While (rdr.Read())
txtRepairCardNo.Text = FixNull(rdr("Repair_Card_no"))
txtRegdNo.Text = FixNull(rdr("RegdNo"))
txtEqpt.Text = FixNull(rdr("Eqpt"))
txtfirm.Text = FixNull(rdr("Unit"))
lblWksp.Text = FixNull(rdr("Workshop"))
lblBn.Text = FixNull(rdr("EMEBn"))
txtWoNoDt.Text = FixNull(rdr("WonoDt"))
If Not FixNull(rdr("DTInitialIssue")).ToString = "" Then
txtDt_Initial_Issue.Text = ChangeDateFormatIndia(FixNull(rdr("DTInitialIssue")).ToString)
Else
txtDt_Initial_Issue.Text = FixNull(rdr("DTInitialIssue"))
End If
txtKMIn.Text = FixNull(rdr("KM_In"))
txtKMOut.Text = FixNull(rdr("KM_Out"))
If Not FixNull(rdr("dtLstOverhold")).ToString = "" Then
txtDtLastOH.Text = ChangeDateFormatIndia(FixNull(rdr("dtLstOverhold")).ToString)
Else
txtDtLastOH.Text = FixNull(rdr("dtLstOverhold"))
End If
txtOilCondition.Text = FixNull(rdr("oil_condition"))
txtFuelIn.Text = FixNull(rdr("Fuel_In"))
txtFuelOut.Text = FixNull(rdr("Fuel_Out"))
txtLabour.Text = FixNull(rdr("Labour_Spares"))
txtHoliday.Text = FixNull(rdr("Holiday"))
txtClasification.Text = FixNull(rdr("Classification"))
If Not FixNull(rdr("dtReceived")).ToString = "" Then
txtDateRecd.Text = ChangeDateFormatIndia(FixNull(rdr("dtReceived")).ToString)
Else
txtDateRecd.Text = FixNull(rdr("dtReceived"))
End If
If Not FixNull(rdr("dtComplete")).ToString = "" Then
txtDateCompleted.Text = ChangeDateFormatIndia((rdr("dtComplete")).ToString)
Else
txtDateCompleted.Text = FixNull(rdr("dtComplete"))
End If
txtOutInspector.Text = FixNull(rdr("Out_Inspector"))
txtFinalRemark.Text = FixNull(rdr("Remarks"))
cboWorkOrderStatus.SelectedValue = FixNull(rdr("Work_Order_Status"))
If Not FixNull(rdr("stDt")).ToString = "" Then
txtStatusDate.Text = ChangeDateFormatIndia(FixNull(rdr("stDt")).ToString)
Else
txtStatusDate.Text = FixNull(rdr("stDt"))
End If
txtSpecialInfo.Text = FixNull(rdr("Special_Info_Eqpt"))
txtAgeatRepair.Text = FixNull(rdr("Age_At_Repair"))
If Not FixNull(rdr("lstdtReported")).ToString = "" Then
txtLastDtRepair.Text = ChangeDateFormatIndia(FixNull(rdr("lstdtReported")).ToString)
Else
txtLastDtRepair.Text = FixNull(rdr("lstdtReported"))
End If
If Not FixNull(rdr("dtIn")).ToString = "" Then
txtDateIn.Text = ChangeDateFormatIndia(FixNull(rdr("dtIn")).ToString)
Else
txtDateIn.Text = FixNull(rdr("dtIn"))
End If
txtInInspestor.Text = FixNull(rdr("In_Insp"))
txtLastKMRepair.Text = FixNull(rdr("Last_KM_reported"))
End While
Catch ex As Exception
Response.Write(Err.Description)
Finally
con.Close()
End Try
End Sub
The problem is when there is only one card registered it is not able to edit the dropdownlist is not able to operate. when there is more than one in dropdownlist it works fine.