主题：请老师再指点一下,把英吋转为厘米,谢谢!

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