关于处方 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于处方

共有9739人关注过本帖树形打印复制链接主题：关于处方

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/10/25 11:07:00 [显示全部帖子]

Dim Multi As String = "党参10克,当归10克,茯苓10克,白术10克,干姜6克,甘草3克"
Dim ss As String
Dim Values() As String
Values = Multi.split(",")
For Index As Integer = 0 To Values.Length - 1
    ss = ss & Values(Index) & ","
    If Index > 0 And Index Mod 2 = 1 Then
        ss= ss.Trim(",") & vbcrlf
    End If
Next
output.show(ss.trim(","))

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/10/25 14:20:00 [显示全部帖子]

Dim Multi As String = "党参10克,当归10克,茯苓10克,白术10克,干姜6克,甘草3克"
Dim ss As String
Dim Values() As String
Values = Multi.split(",")
For Index As Integer = 0 To Values.Length - 1
    ss = ss & Values(Index).PadRight(12)
    If Index > 0 And Index Mod 2 = 1 Then
        ss= ss & vbcrlf
    End If
Next
output.show(ss)

下一主题 >> << 上一主题

主题：关于处方