以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请老师再指点一下,把英吋转为厘米,谢谢!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83759)

--  作者:jackyfashion
--  发布时间:2016/4/15 23:37:00
--  请老师再指点一下,把英吋转为厘米,谢谢!

图片点击可在新窗口打开查看此主题相关图片如下:错误提示.png
图片点击可在新窗口打开查看

--  作者:kylin
--  发布时间:2016/4/16 9:18:00
--  
dim d as string = "3.6/8"
--  作者:jackyfashion
--  发布时间:2016/4/16 14:49:00
--  
谢谢!
--  作者:jackyfashion
--  发布时间:2016/4/16 14:59:00
--  
老师你好!但我是引用其它列的数据
If e.DataCol.Name = "英吋" Then
    If e.DataRow.IsNull("英吋") Then
        e.DataRow("厘米") = Nothing
    Else
        dim t  As String = Eval((e.DataRow("英吋") *2.54),e.DataRow)
         dim d As String = t        
        \'  Dim s() As String = d.split(".")
        \' 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("CM") = J
        \'End If
    End If
End If
请问怎么写代码让(dim d As String = t ) t 加上双旨号,谢谢!

--  作者:jackyfashion
--  发布时间:2016/4/16 15:01:00
--  
老师你好!但我是引用其它列的数据
If e.DataCol.Name = "英吋" Then
    If e.DataRow.IsNull("英吋") Then
        e.DataRow("厘米") = Nothing
    Else
        dim t  As String = Eval((e.DataRow("英吋") *2.54),e.DataRow)
         dim d As String = t        
        \'  Dim s() As String = d.split(".")
        \' 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("厘米") = J
        \'End If
    End If
End If
请问怎么写代码让(dim d As String = t ) t 加上双号,谢谢!

--  作者:Hyphen
--  发布时间:2016/4/16 15:05:00
--  
http://www.foxtable.com/help/topics/1513.htm

cstr(0.256)

--  作者:jackyfashion
--  发布时间:2016/4/16 16:44:00
--  
谢谢!