Expand|Select|Wrap|Line Numbers
- Dim output = (From tlb In obj.SelectRecordAll_SalesInquiryRegister _
- Join tlb1 In LatestPOs On tlb.SIR_OfferNo Equals tlb1.OfferNo _
- And tlb.SIR_AlterationNo Equals tlb1.PORevNo _
- Order By tlb.SIR_Flag _
- Select _
- SIRID = tlb.Marketing_SalesInquiryRegister_ID, _
- poaltno = tlb.SIR_AlterationNo, _
- OfferNo = tlb.SIR_OfferNo, _
- PONo = tlb.SIR_Flag, _
- poStatus = GetPOStatus(tlb.SIR_OfferNo, tlb.SIR_AlterationNo), _
- Consignee = tlb.Marketing_Inquiry_Detail.Company_Master.Company_Name, _
- ProductName = tlb.Marketing_Inquiry_Detail.QC_Product_Master.Product_Name, _
- CreditPeriods = tlb.SIR_CreditPeriodDays, _
- POAmount = Decimal.Round(tlb.Marketing_OfferPackingQuantity_Detail.Offer_Quantity * tlb.Marketing_OfferPrice_Detail.Offer_PricePerUnit, 2, MidpointRounding.AwayFromZero), _
- Details1 = (From t In obj.SelectRecordAll_OfferDeliverySchedule _
- Where t.DeliverySchedule_SIRID = tlb.Marketing_SalesInquiryRegister_ID _
- Select SheduleDate = t.DeliverySchedule_Date, _
- id = t.Marketing_OfferDeliverySchedule_Details_ID), _
- Details4 = (From t In obj.SelectRecordAll_OfferDeliverySchedule _
- Where t.DeliverySchedule_SIRID = tlb.Marketing_SalesInquiryRegister_ID _
- Select SheduleQty = t.DeliverySchedule_Quantity, _
- id = t.Marketing_OfferDeliverySchedule_Details_ID), _
- Company = tlb.Marketing_Offer_Detail.Offer_CompanyID).ToList
- lsvReport.DataSource = output
- lsvReport.DataBind()
- dim i as integer = 0
- for each item in output
- dim adddt =DateAdd("d", CType(output(i).CreditPeriods, Integer), DateTime.Parse(output(i).Details1(i).SheduleDate))
- i=i+1
- next
How to I solve this error?
how to convert string into date