想达到每一列左对齐,请老师指教! - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 想达到每一列左对齐,请老师指教!

共有1358人关注过本帖平板打印复制链接主题：想达到每一列左对齐,请老师指教!

xxfoxtable

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1696 积分：15819 威望：0 精华：0 注册：2017/6/1 23:12:00

想达到每一列左对齐,请老师指教! 发帖心情

Post By：2023/5/31 0:47:00 [只看该作者]

想达到每一列左对齐,请老师指教!

Dim Multi As String = "旋复花10g,前胡10g,荆芥穗15g,麻黄10g,赤芍30g,炙干草10g,姜半夏10g,桔梗15g,陈皮10g,白前2g,百部20g"

Dim ss As String

Dim Values() As String

Values = Multi.split(",")

Dim js As Integer = 1

For Index As Integer = 0 To Values.Length - 1

ss = ss & Values(Index).PadRight(12)

If js Mod 4 = 0 Then

ss = ss & vbcrlf

End If

js = js + 1

output.show(ss)

主题：想达到每一列左对齐,请老师指教!