-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: Am2pm4
Message 3 in Discussion
I am just fetching the Text Value from the DateTime Picker and just trying to convert
it inot string and then changing the format Below is the Code Please Help
Private Sub dtpShipmentDate_ValueChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles dtpShipmentDate.ValueChanged
Try
Dim strShipmentDate As String
Dim dtShipmentDate As DateTime
Dim drPartsSupplier As DataRow
dtShipmentDate = Date.Parse(dtpShipmentDate.Text)
strShipmentDate = dtShipmentDate.ToString("dd/MM/yyyy")
m_objASFDataSet = m_objRemoteInventory.GetINVListByShipmentDate(strShipmentDate)
If (m_objASFDataSet Is Nothing) Or m_objASFDataSet.IsSuccess = False Then
MessageBox.Show("Error While Loading Data")
If Not m_objASFDataSet Is Nothing Then
Logger.LogTraceError("INV", "InventoryAdjustment", "InventoryAdjustment_Load", "",
m_objASFDataSet.ErrorMessage)
End If
Exit Sub
End If
dsInventoryListByShipmentDate = CType(m_objASFDataSet.ListDataSet, DataSet)
'--------------------------Clearing the List Items and ArrayList Items
lstParts.Items.Clear()
m_arrayInvDetails.Clear()
For Each drPartsSupplier In dsInventoryListByShipmentDate.Tables(0).Rows
Dim strPartsSupplier = drPartsSupplier("Part_Number") & "/" &
drPartsSupplier("Supplier_Code")
m_objInvDetails = New Inventory
m_objInvDetails.InvSerialNbr = drPartsSupplier("Inventory_Serial_Number")
m_objInvDetails.PartNumber = drPartsSupplier("Part_Number")
m_objInvDetails.RecievedQuantity = drPartsSupplier("Inventory_Quantity")
m_objInvDetails.RemainingQuantity = drPartsSupplier("Inventory_Ship_Quantity")
m_objInvDetails.SupplierCode = drPartsSupplier("Supplier_Code")
m_objInvDetails.ShipmentDate = dtpShipmentDate.Text
m_arrayInvDetails.Add(m_objInvDetails)
lstParts.Items.Add(strPartsSupplier)
Next
MessageBox.Show(m_arrayInvDetails.Count.ToString())
Catch ex As Exception
MessageBox.Show("Error while getting the Data" & ex.Message)
Logger.LogTraceError("INV", "InventoryAdjustment", "dtpShipmentDate_ValueChanged", "",
ex.Message.ToString())
End Try
End Sub
I am not changing any thing as such
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/BDotNet/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you received
this message by mistake, please click the "Remove" link below. On the pre-addressed
e-mail message that opens, simply click "Send". Your e-mail address will be deleted
from this group's mailing list.
mailto:[EMAIL PROTECTED]
