主题：关于处方

处方打印中如：党参10克，当归10克，茯苓10克，白术10克，干姜6克，甘草3克，如何能排列成三行两列

看了好久报表的知识，也同样没有头绪，只知道如何将处方中每种药分成一组，总共分成六组

 

提问时请附带文件，省得浪费精力而不能实际解决问题！

 

Dim Multi As String = "党参10克，当归10克，茯苓10克，白术10克，干姜6克，甘草3克"
Dim Values() as String
Values = Multi.split("，")
For Index As Integer = 0 To Values.Length - 1
    Output.Show(Values(Index))
Next

 

党参10克
当归10克
茯苓10克
白术10克
干姜6克
甘草3克

 

能分成两列就可以了

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(","))

 

那还用写代码？手工就可以了！

 

这样：

 

Dim Multi As String = "党参10克,当归10克,茯苓10克,白术10克,干姜6克,甘草3克"
Dim Values() As String
Values = Multi.split(",")
Dim s,s1 As String
For Index As Integer = 0 To Values.Length - 1
    s = Values(Index)
    If s.Length = 4
        s = s.Insert(2," ")
    End If
    s1 = s1 & s & "   "
     If Index > 0
        If Index Mod 2 = 1
            Output.Show(s1)
            s1 = Nothing
        End If
    End If
Next

此主题相关图片如下：12345.jpg

 

 

Dim Multi As String = "大叶金钱草50克,潞党参10克,当归10克,茯苓10克,白术10克,干姜6克,甘草3克"
Dim Values() As String
Values = Multi.split(",")
Dim s,s1 As String
For Index As Integer = 0 To Values.Length - 1
    s = Values(Index)
    If s.Length = 4
        s = s.Insert(2," ")
    End If
    s1 = s1 & s & "   "
     If Index > 0
        If Index Mod 2 = 1
            Output.Show(s1)
            s1 = Nothing
        End If
    End If
Next

 

结果如下

大叶金钱草50克   潞党参10克  
当归10克   茯苓10克  
白术10克   干姜 6克  

 

实际需要的结果是（靠左对齐的两列）：

大叶金钱草50克      潞党参10克  
当归10克              茯苓10克  
白术10克              干姜 6克

 

 

 

两列之间插入两个Tba比较理想