主题：[求助]怎样通过代码转换格式的问题

Dim t1 As Table =Tables("表A") 

Dim v As Double 

Dim r1 As Row =t1.Current 

If r1 IsNot Nothing AndAlso r1("第一列") > "" Then 

    For Each c As Col In t1.Cols 

         s1=r1(c.name) s2=s1.replace(".","") 

         If Double.TryParse(s1,v) Then '如果转换成功 

              Dim n1 As Integer = s2.Length 

              s3 = s3 & Format(val(s2),New String("0",iif(n1 <6,5,n1))) 

         Else 

              s3 = s3 & s1 

         End If 

    Next 

    Output.Show(s3) 

End If