以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  显示格式问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120418)
--  作者：刘林
--  发布时间：2018/6/14 18:06:00
--  显示格式问题
dim xhm as intger = 340100056 
Dim xhm1 As String = Format(xhm,"0000000000")
        messagebox.show(xhm1)
        e.Form.Controls("textbox2").text= xhm1
show(xhm1)为0340100056
但在textbox2里显示不能为0340100056而是340100056 ,请问是什么原因？
--  作者：有点甜
--  发布时间：2018/6/14 18:24:00
--  
代码没问题。textbox2不绑定表列的话，肯定没问题。
--  作者：刘林
--  发布时间：2018/6/14 21:16:00
--  
没绑定呢，结果就是不行,还有什么可能没得
--  作者：有点甜
--  发布时间：2018/6/14 21:28:00
--  
以下是引用刘林在2018/6/14 21:16:00的发言：
没绑定呢，结果就是不行,还有什么可能没得

 

不，可，能，上传实例说明。
--  作者：刘林
--  发布时间：2018/6/14 22:22:00
--  
Dim tb As Table =Tables("高中报名_table2")
Dim tbcd As Table=Tables("高中报名_table4")
Dim qs As Integer = e.Form.Controls("textbox2").value
Dim rs As Integer = e.Form.Controls("textbox3").value
Dim c3 As WinForm.ComboBox=e.Form.controls("combobox3")
Dim c5 As WinForm.ComboBox=e.Form.controls("combobox5")
Dim c2 As String=e.Form.controls("combobox2").value
Dim c8 As String=e.Form.controls("combobox8").value

If str(qs).length = 10
    If c2 IsNot Nothing And c8 IsNot Nothing
        For Each r As Row In tbcd
            If r("场地")=c5.text And r("考试室")<>c3.text
                messagebox.show("该考试场地已作安排")
                Return
            End If
        Next
        Dim z As Integer = qs+rs-1
         messagebox.show(z)
红色代码出现：算术运算导致溢出。没想通是什么原因
--  作者：有点甜
--  发布时间：2018/6/14 22:56:00
--  

比如

 

Dim qs As Integer = 1
Dim rs As Integer = 2147483647
Dim z As Integer = qs+rs

 

 

[此贴子已经被作者于2018/6/14 22:56:23编辑过]
--  作者：有点甜
--  发布时间：2018/6/14 22:57:00
--  

改成这样

 

Dim qs As Integer = 1
Dim rs As Integer = 2147483647
Dim z As Long = cdbl(qs)+rs