主题：[求助]问一个afterload的错误提示

这个是写的代码

Dim dqh As Row = Tables("仓库商品.装箱单").Current
Dim wbxh As WinForm.Label = e.Form.Controls("箱号")
Dim a As String = Tables("仓库商品.装箱单").Compute("min(纸箱号)")
Dim b As String = Tables("仓库商品.装箱单").Compute("max(纸箱号)")
Dim Tol As String = Tables("仓库商品.装箱单").Compute("count(纸箱号)")

If Tables("仓库商品.装箱单").Compute("count(纸箱号)") = 1 Then
        wbxh.Text = a
Else

If Tables("仓库商品.装箱单").Compute("count(纸箱号)") <> b -a + 1 Then
        For i As Integer = 0 To Tol
        Dim dr As DataRow
        dr = DataTables("装箱单").Find("定单号 = '" & dqh("定单号") & "'","纸箱号 DESC",i)
        wbxh.text = dr("纸箱号") & wbxh.text
        Next
   
Else
        wbxh.Text = a & "~" & b

    End If
End If

 

 

只要加上wbxh.text = dr("纸箱号") & wbxh.text 载入窗口的时候出来错误信息

但是按下确定以后窗口中的值的计算是正确的，求助一下这个是什么原因，我哪句代码有问题

另外载入窗口的时候能否直接复制一个值，就是和Ctrl + C一样的效果。

要复制的值就是wbxh.text = dr("纸箱号") & wbxh.text 这个值

 

---------------------------
版本:2013.6.28.1
---------------------------
错误代码位置：窗口,核对信息,AfterLoad

 

System.NullReferenceException: Object reference not set to an instance of an object.

   at UserCode.AfterLoad_94a9af71(FormEventArgs e)
---------------------------
确定  
---------------------------