主题：[求助]我怎样才能让他不执行清空啊。气死了

Dim 编码 As WinForm.TextBox = e.Form.Controls("编码")

If e.keycode = keys.enter Then

    

    Dim 数 As Integer=0

    

    For Each dr As DataRow In DataTables("万里牛WMS订单").sqlSelect("[运单号] = '" & e.sender.text & "'")

        数 =数 +1

        Dim 行 As Row=Tables("主页面_Table1").AddNew()

        行("快递单号")=e.sender.text

        行("备注")="线上订单号:"& dr("线上订单号")

        行("是否原单")= True

        行("商品编码")=dr("商品编码")

        行("商品名称")=dr("商品名称")

        行("商品数量")=dr("数量")

        行("原有数量")=dr("数量")

        行("货主")=dr("货主")

        行("日期")=Date.Now

    Next

    If 数=0 Then

        Output.Show("如果是0:"&数)

        编码 .Select

        编码 .SelectAll

    Else

        Output.Show("如果不是0"&数)

        e.sender.text= ""

        e.cancel = True

        e.sender.Select()

        

    End If

    Output.Show("完成了"&数)

    

End If