Private Sub txtRegno_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles txtRegno.TextChanged
lblResult.Text = ""
Dim rs As SqlDataReader
Dim a1, a2, s1, s2, C1, C2, m1, m2 As String
Dim st1, st2 As String
Dim su1, su2 As String
Dim tt1, tt2 As String
Dim tu1, tu2 As String
Dim con As New SqlConnection("database=operation;uid=sa;pwd=;server=lc2000")
Dim Cmd As New SqlCommand("Vessel_View", con)
Cmd.CommandType = CommandType.StoredProcedure
With Cmd.Parameters
.Add("@xRegno", txtRegno.Text)
End With
con.Open()
rs = Cmd.ExecuteReader(CommandBehavior.SingleRow)
Session.LCID = 2057
If rs.Read Then
txtRegno.Text = rs("regno")
txtVessel.Text = rs("vesselname")
txtV2.Text = rs("Berth")
txtV3.Text = rs("VslBerth_dt")
txtV4.Text = rs("VslBerth_Time")
DropImpExp.SelectedValue = rs("Imp_Exp")
a1 = rs("Agent")
a2 = rs("AName")
C1 = rs("Commodity")--Here the Error is Null
C2 = rs("CName")
m1 = rs("Manifest")
m2 = rs("Manifest_wt")
txtShipper.Text = rs("Shipper")
txtConsignee.Text = rs("Consignee")
txtLoad.Text = rs("Loading_port")
txtDis.Text = rs("Discharge_port")
txtv5.Text = rs("Commenced_dt")
txtV6.Text = rs("Commenced_time")
txtV9.Text = rs("Completed_dt")
txtV10.Text = rs("completed_time")
txtV7.Text = rs("Sailed_dt")
txtV8.Text = rs("Sailed_time")
txtCFrom.Text = rs("Cargomove_From")
txtCto.Text = rs("Cargomove_To")
st1 = rs("StevOdoreI")
st2 = rs("SName1")
tt1 = rs("Stevodore_manifest1")
tt2 = rs("Stevodore_manifestwt1")
su1 = rs("StevOdoreII")
su2 = rs("SName2")
tu1 = rs("Stevodore_manifest2")
tu2 = rs("Stevodore_manifestwt2")
End If
' End If
' If C1 = "Null" And C2 = "Null" Then
txtAgent.Text = a1 + "-" + a2
txtStev.Text = s1 + "-" + s2
txtCom.Text = C1 + "-" + C2
txtMani.Text = m1 + "&nbdp;" + m2
txtStev1.Text = st1 + "-" + st2
txtMani1.Text = tt1 + "-" + tt2
txtStev2.Text = su1 + "-" + su2
txtMani2.Text = tu1 + "-" + tu2
' End If
con.Close()
rs.Close()
End Sub
Please solve this Problem
---------------------------------
How much free photo storage do you get? Store your friends n family photos for
FREE with Yahoo! Photos.
http://in.photos.yahoo.com
[Non-text portions of this message have been removed]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspNetAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
