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

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

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

Fotable

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

加好友

发短信

等级：五尾狐帖子：1015 积分：6979 威望：0 精华：0 注册：2012/8/1 18:41:00

Post By：2012/10/25 13:12:00 [只看该作者]

搞字符串都是不规范的，存储在表里吧

wjl-se

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

加好友

发短信

等级：三尾狐帖子：763 积分：6313 威望：0 精华：0 注册：2011/12/1 14:47:00

Post By：2012/10/25 13:27:00 [只看该作者]

程版的代码改一个地方：

s1 = s1 & s & vbTab

[此贴子已经被作者于2012-10-25 13:28:21编辑过]

狐狸爸爸

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

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

总数 13 上一页 1 2

主题：关于处方