拋出異常：一個字符串轉換爲當 ：將字符串轉換成日期時間時分析該字符串將每個可變進DateTime對象

Question

Private Sub btnOpen_Click(sender As Object, e As EventArgs) Handles btnOpen.Click 

' Get the date that the Order Date displays 
Dim tmeToday As DateTime = Me.dtpOrderDate.Value   
Dim day As Integer = tmeToday.Day   
Dim month As Integer = tmeToday.Month   
Dim year As Integer = tmeToday.Year   
Dim strMonth() As String = {"Jan", "Feb", "Mar", "Apr", _ 
           "May", "Jun", "Jul", "Aug", _ 
           "Sep", "Oct", "Nov", "Dec"}   
Dim strFilename As String = CStr(day) & strMonth(month - 1) & _ 
        CStr(year) & ".xml" 


' If the file exists already, open it   
If File.Exists(strFilename) Then    
' Empty the local data set of any data. This is required if    
' we want the user to be able to open different daily sets of repairs    
Me.dsWorkorders.Clear() 

' Open the set of orders placed on the day selected 

dsWorkorders.ReadXml(strFilename) 

這裏之前採取的日期是錯誤（錯誤出現在最後一行）日期時間分析該字符串將每個可變進DateTime對象

<Workorder> 
<CustomerName>Jonathan</CustomerName> 
<Address>gdfsg</Address> 
<City>ga</City> 
<State>gas</State> 
<ZipCode>gaf</ZipCode> 
<Make>gadfs</Make> 
<Model>ags</Model> 
<CarYear>gfad</CarYear> 
<Problem>gfasd</Problem> 
<PartName1>gfdag</PartName1> 
<UnitPrice1>123</UnitPrice1> 
<Quantity1>4</Quantity1> 
<SubTotal1>492</SubTotal1> 
<PartName2 /> 
<UnitPrice2>0</UnitPrice2> 
<Quantity2>0</Quantity2> 
<SubTotal2>0</SubTotal2> 
<PartName3 /> 
<UnitPrice3>0</UnitPrice3> 
<Quantity3>0</Quantity3> 
<SubTotal3>0</SubTotal3> 
<PartName4 /> 
<UnitPrice4>0</UnitPrice4> 
<Quantity4>0</Quantity4> 
<SubTotal4>0</SubTotal4> 
<PartName5 /> 
<UnitPrice5>0</UnitPrice5> 
<Quantity5>0</Quantity5> 
<SubTotal5>0</SubTotal5> 
<JobPerformed1 /> 
<JobPrice1>0</JobPrice1> 
<JobPerformed2 /> 
<JobPrice2>0</JobPrice2> 
<JobPerformed3 /> 
<JobPrice3>0</JobPrice3> 
<JobPerformed4 /> 
<JobPrice4>0</JobPrice4> 
<JobPerformed5 /> 
<JobPrice5>0</JobPrice5> 
<TotalParts>492</TotalParts> 
<TotalLabor>0</TotalLabor> 
<TaxRate>7.75</TaxRate> 
<TaxAmount>0</TaxAmount> 
<TotalOrder>492</TotalOrder> 
<Recommendations /> 

之前採取的時間那裏有一個示例XML文件數據

Answer 1

這個代碼工作正常

Private Sub btnOpen_Click(sender As Object, e As EventArgs) Handles btnOpen.Click 

' Get the date that the Order Date displays 
Dim tmeToday As DateTime = DateTime.Now   
Dim day As Integer = tmeToday.Day   
Dim month As Integer = tmeToday.Month   
Dim year As Integer = tmeToday.Year   
Dim strMonth() As String = {"Jan", "Feb", "Mar", "Apr", _ 
           "May", "Jun", "Jul", "Aug", _ 
           "Sep", "Oct", "Nov", "Dec"}   
Dim strFilename As String = CStr(day) & strMonth(month - 1) & _ 
        CStr(year) & ".xml" 

所以....以下行應該是

CdateDim tmeToday As DateTime = CDate(Me.dtpOrderDate.Value) 'otherwise its a string cant asign string to a date 

，這是假設列出的DTP不是實際的DateTimePicker作爲DateTimePicker.Value回報下一個DateTime對象。