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

共有2985人关注过本帖树形打印复制链接主题：求助

jackyfashion

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

加好友

发短信

等级：三尾狐帖子：668 积分：5184 威望：0 精华：0 注册：2013/10/7 22:27:00

求助

Post By：2016/5/15 17:56:00 [显示全部帖子]

你好!请求大师帮忙指教!!! 请问怎样把 Dim Multi As String = 50.3/8 变成Dim Multi As String = "50.3/8" 什么代码可以给字符加上双引号?谢谢!

jackyfashion

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

加好友

发短信

等级：三尾狐帖子：668 积分：5184 威望：0 精华：0 注册：2013/10/7 22:27:00

Post By：2016/5/15 18:21:00 [显示全部帖子]

你好!请求大师帮忙指教!!! 请问怎样把 Dim Multi As String = 50.3/8 变成Dim Multi As String = "50.3/8" 什么代码可以等同给字符加上双引号?谢谢!

jackyfashion

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

加好友

发短信

等级：三尾狐帖子：668 积分：5184 威望：0 精华：0 注册：2013/10/7 22:27:00

Post By：2016/5/16 14:58:00 [显示全部帖子]

我是引用其它列的数据,那就没有双引号, 有双引号的就不出问题

If e.DataCol.Name = "amkf" Then

If e.DataRow.IsNull("amkf") Then

e.DataRow("mm") = Nothing

Else

Dim n = e.DataRow("amkf")

Dim d As String = n

Dim s() As String = d.split(" ")

Dim k = S(0)*2.54

If s.Length = 1 Then

e.DataRow("mm") = k

Else

Dim a As String = (S(1))

Dim c() As String = a.split("/")

Dim f As Integer = CInt(c(1))

Dim g As Integer = CInt(c(0))

Dim h = (c(0)) / (c(1))

Dim i = (s(0))

Dim j = i+h

e.DataRow("mm") = j*2.54

End If

谢谢大家!

jackyfashion

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

加好友

发短信

等级：三尾狐帖子：668 积分：5184 威望：0 精华：0 注册：2013/10/7 22:27:00

Post By：2016/5/16 15:04:00 [显示全部帖子]

我相有一列的尺寸是CM, 然后有两个复选框,是英吋厘米, 这一列有几行都有尺寸,如果我厘米有尺寸,选了英吋就自动把厘米转为英吋如果我英吋有尺吋,选了厘米就自动把英吋转为厘米.

请大师指教,该怎样的代码???谢谢!

下一主题 >> << 上一主题

主题：求助