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)
---------------------------
确定  
---------------------------

另外比如箱号是

例子A: 15,16,17,20,22,23,24

例子B: 1,2,3,5

例子C：7,8,10,11,12

那么想得到的最终显示效果

例子A： 15~17,20,22~24

例子B： 1~3,5

例子C： 7~8,10~12

我现在的上边代码只能是把所有箱号罗列出来

如A:15,16,17,20,22,23,24

例子B: 1,2,3,5

例子C：7,8,10,11,12

第一个问题解决了，是FOR NEXT多了一行的问题

改成 For i As Integer = 0 To Tol - 1 就好了。下面的几个问题能不能帮助一下

你以前问过问题，上过例子，为什么这次只说不练？

让别人从头做一遍，不是太麻烦，耽误时间吗？