把10m3 或100m3还原成m3 用下列代码可以用,如果要是个或吨或公里等 用下列代码提示从字符串“”到类型“Double”的转换无效。求教各位老师如果修改下列代码。
'还原单位
If e.DataCol.Name = "单位" Then'如果变动列为成本名称
Dim dl As DataRow = e.DataRow'定义ds为行
If e.DataRow("单位") <> Nothing Then
Dim s As String = e.DataRow("单位")
Dim p As String = "[a-zA-Z]+"
Dim r As New System.Text.RegularExpressions.Regex(p)
Dim str = r.Split(s)
Dim k As String = s.Substring(str(0).Length)
dl("单位复原") = k
End If
End If