Foxtable(狐表)用户栏目专家坐堂 → 字符转数值,再转字符 ,帮我看看,这代码错在哪里?


  共有1938人关注过本帖平板打印复制链接

主题:字符转数值,再转字符 ,帮我看看,这代码错在哪里?

帅哥哟,离线,有人找我吗?
hongyefor
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3676 威望:0 精华:0 注册:2012/7/27 10:28:00
字符转数值,再转字符 ,帮我看看,这代码错在哪里?  发帖心情 Post By:2016/8/3 15:57:00 [只看该作者]

Dim mx11 As WinForm.TextBox = e.Form.Controls("TBMX01")
Dim mx12 As WinForm.TextBox = e.Form.Controls("TBMX02")
Dim mx16 As WinForm.TextBox = e.Form.Controls("TBMX06")
Dim Multi As String = mx11.text
Dim pars() As String = Multi.Split("-")
Dim e1 As Double = Val(pars(0))
Dim e2 As Double = Val(pars(1))
Dim Multi1 As String = mx12.text
Dim pars1() As String = Multi1.Split("-")
Dim c1 As Double = Val(pars1(0))
Dim c2 As Double = Val(pars1(1))
Dim z1 As Double
Dim z2 As Double
z1 = e1 + c1
z2 = e2 + c2
Dim y As String
Dim y1 As String
y = z1
y1 = z2
mx16.text = y + "-" + y1

 字符转数值,再转字符 ,帮我看看,这代码错在哪里?

 


图片点击可在新窗口打开查看此主题相关图片如下:cw.jpg
图片点击可在新窗口打开查看

 


 


 回到顶部