甜老师，我下面的代码错在哪里？
无法保存，提示应为语句结束。把Dim dr As DataRow 下面的2行注释掉后又存在：从字符串“供方确认到货日期”到类型“Integer”的转换无效。这个错误。
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
谢谢！
[此贴子已经被作者于2014-11-28 12:56:04编辑过]
加好友 
发短信
Post By：2014/11/28 12:07:00 [只看该作者]
