以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85010)
--  作者：jackyfashion
--  发布时间：2016/5/15 17:56:00
--  求助
你好!请求大师帮忙指教!!! 请问怎样把 Dim Multi As String = 50.3/8 变成Dim Multi As String = "50.3/8" 什么代码可以给字符加上双引号?谢谢!
--  作者：jackyfashion
--  发布时间：2016/5/15 18:21:00
--  
你好!请求大师帮忙指教!!! 请问怎样把 Dim Multi As String = 50.3/8 变成Dim Multi As String = "50.3/8" 什么代码可以等同给字符加上双引号?谢谢!
--  作者：大红袍
--  发布时间：2016/5/15 21:35:00
--  
不理解你什么意思，直接说你想做什么功能。
--  作者：Hyphen
--  发布时间：2016/5/16 8:10:00
--  
http://www.foxtable.com/help/topics/1513.htm
--  作者：jackyfashion
--  发布时间：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
    End If
谢谢大家!
--  作者：大红袍
--  发布时间：2016/5/16 14:59:00
--  
什么意思？报什么错？
--  作者：jackyfashion
--  发布时间：2016/5/16 15:04:00
--  
我相有一列的尺寸是CM, 然后有两个复选框,是 英吋  厘米, 这一列有几行都有尺寸,如果我厘米有尺寸,选了英吋就自动把厘米转为英吋   如果我英吋有尺吋,选了厘米就自动把英吋转为厘米.
请大师指教,该怎样的代码???谢谢!
--  作者：大红袍
--  发布时间：2016/5/16 15:09:00
--  
报错还是怎样啊？上传实例说明。