Foxtable(狐表)用户栏目专家坐堂 → 代码错误问题


  共有1318人关注过本帖树形打印复制链接

主题:代码错误问题

帅哥哟,离线,有人找我吗?
benwong2013
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:4069 威望:0 精华:0 注册:2015/12/16 8:22:00
代码错误问题  发帖心情 Post By:2017/9/15 13:02:00 [只看该作者]

以下单位出现错误,请问如何处理:
.NET Framework 版本:2.0.50727.8669
Foxtable 版本:2017.8.19.1
错误所在事件:
详细错误信息:
对于造型说明无效的字符值

Dim d As Date = e.Form.Controls("取件日期").Value
Dim t As Date = e.Form.Controls("取件时间").Value
Dim re As String = e.Form.Controls("取件人").Value
Dim dw As String = e.Form.Controls("取件单位").Value
For Each dr As DataRow In DataTables("取件登记_Table1").dataRows
    If dr("快递编号") > "" Then
MessageBox.Show(dr("快递编号"))
        Dim fr As DataRow = DataTables("T_Express").SQLFind("快递编号 = '" & dr("快递编号") & "'")
        If fr IsNot Nothing Then
            fr("取件日期") = d
            fr("取件时间") = t
            fr("取件人") = re
            fr("收件单位") = dw
            fr.save
        Else
            MessageBox.show("所登记快递编号为【" & dr("快递编号") & "】未找到收件登记信息,请确认,谢谢!")
        End If
    End If
Next
MessageBox.Show("登记的快递编号已经保存,点击【确定】之后将关闭窗口")
e.Form.close


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/15 14:16:00 [只看该作者]

测试了一下,你1楼的代码不应该报错才对的,没有报错的可能。

 

报错,是你没有给日期列赋值造成的

 

至少要赋值,如 dr("日期列") = Nothing


 回到顶部