主题：应为语句结束，错在哪里呢？

Dim Cols1() As String = {"Identify","供方确认到货日期"}

Dim Cols2() As String = {"_Identify","orderSupDhTime"}

For Each dr1 As DataRow In DataTables("供方到货日期确认窗口_Table1").Select("供方确认到货日期 Is not null")

    Dim nr As Date = dr1(Cols1("供方确认到货日期"))

    Dim xh As Integer = dr1("Identify") 

    Dim dr As DataRow

    dr = DataTables("orderList").Find("[_Identify] = '" & xh & "'")

    dr("orderSupDhTime") = nr

    DataTables("orderList").Find("[_Identify] = '" & xh & "'")Cols(orderSupDhTime) = nr

Next

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2014.10.23.1

错误所在事件：窗口,供方到货日期确认窗口,Button2,Click

详细错误信息：

从字符串“供方确认到货日期”到类型“Integer”的转换无效。

输入字符串的格式不正确。