显示格式问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 显示格式问题

共有1816人关注过本帖树形打印复制链接主题：显示格式问题

刘林

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1942 积分：14943 威望：0 精华：0 注册：2016/4/28 9:58:00

显示格式问题 发帖心情

Post By：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 ,请问是什么原因？

刘林

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1942 积分：14943 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2018/6/14 21:16:00 [显示全部帖子]

没绑定呢，结果就是不行,还有什么可能没得

刘林

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1942 积分：14943 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：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

Dim z As Integer = qs+rs-1

messagebox.show(z)

红色代码出现：算术运算导致溢出。没想通是什么原因

主题：显示格式问题