主题：[求助]下拉窗口选择数据报错

好奇怪，当初写代码的时候写完试运行没问题，现在发布项目出来，下拉窗口第一次选中记录不会报错，但是第二次选中就开始报错了，求助。下拉窗口的代码是参考文档写的。
此主题相关图片如下：1.jpg


此主题相关图片如下：2.jpg


此主题相关图片如下：3.jpg

我看了下报错的提示，好像是说我赋值的字段超出字符类型的长度，这个要怎么解决呢，数据类型好像改不了，只能字符型，单纯设置“位数”好像不起作用。

With Tables("预算使用申请表").Current
'    Dim r As Row = Tables("预算使用申请表").Current
    If .IsNull("预算编号") = False Then
        Dim r As Row = Tables("预算使用申请表").Current
        Dim dr As DataRow
        Dim dr1 As DataRow
        dr = DataTables("基础预算表").Find("[预算编号] = '" & Tables("预算使用申请表").Current("预算编号") & "'")
        r("预算项目名称") = dr("项目名称")
        r("预算金额") = dr("预算金额")
        dr1 = DataTables("预算使用情况汇总表").Find("[预算编号] = '" & Tables("预算使用申请表").Current("预算编号") & "'")
        r("已使用金额") = dr1("预算发生数")
        r("已使用占比") = dr1("预算完成率")
        r("预算使用说明") = dr1("预算使用说明")
        r("一级科目") = dr1("一级科目")
        r("二级科目") = dr1("二级科目")
        r("三级科目") = dr1("三级科目")
        r("四级科目") = dr1("四级科目")
        r("五级科目") = dr1("五级科目")
    End If

end with

 

是不是我在每一次赋值前要先加判断，还是说在 = 后面直接加上表达式就行了呢

谢谢老师，还有个疑问，我行有数据，但是部分列是空的，这个时候赋值的话一样会报错，是不是每条表达式都要加判断当前行某一列的值是否为空呀

老师，我想问一下，是不是位数也要一样呢？因为我看了每个表的表结构，数据类型基本上都是字符型的，唯一的区别就是16位，32位的区别，不知道为什么会报错

字母占用4个字符是吧？然后我想问，字符型最长是可以放多少个字母加多少个数字。