以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 请老师再指点一下,把英吋转为厘米,谢谢! (http://foxtable.net/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 -- 谢谢! |