Dim dt1 As Date = Date.Today.AddDays(-3)
Dim Arys As List(Of String()) = DataTables("商务通参与邀请").GetValues("日期|姓名","日期 >= #" & dt1 & "# ")
DataTables("客服监测").DeleteFor("[日期] >= #" & dt1 & "#")'删除符合日期的行
Dim dr As DataRow
For Each Ary As String() In Arys
dr = DataTables("客服监测").AddNew
dr("日期") = CDate(Ary(0))
dr("姓名") = CStr(Ary(1))'出错点
'output.show(Ary(0))
output.show(Ary(1))
Next
错误提示：
调用的目标发生了异常。
从字符串“包婧”到类型“Date”的转换无效
加好友 
发短信
Post By：2017/2/26 13:42:00 [显示全部帖子]
