Dim result As String
For i1 As Integer = 0 To i
Dim str1 As String = "壹贰叁肆伍陆柒捌玖仟佰拾零"
Dim str2 As String = "一二三四五六七八九千百十〇"
result = CUNumBer(i1 + 1)
For j1 As Integer = 0 To str1.Length - 1
result = result.Replace(str1(j1), str2(j1))
Next
If i1 + 1 < 20 AndAlso result.StartsWith("一十") Then
result = result.SubString(1)
End If
output.show(result)
Next
同时记录下，自己原来踩过的一个坑及老师指导下的解决方法，
Output.Show(wenben)
输出无重复值
Dim s22 As String = wenben
FileSys.WriteAllText(ProjectPath & "/Reports/wenben" & time & ".txt", s22, True, Encoding.UTF8)
Dim s111 As String = FileSys.ReadAllText(ProjectPath & "/Reports/wenben" & time & ".txt")
写入与读取都无重复值
Dim tm As String = ProjectPath & "Attachments\评查活动报告模板.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\" & "评查活动报告模板" & time & ".doc" '指定目标文件
Dim wrt As New WordReport(tm, fl) '注意这里无需指定表名
wrt.AddDataTable("评查活动", "主数据源", "S e l e c t * from {评查活动}")
wrt.Replace("[统计报告]", s111) '替换模板中的合计标记
wrt.Build() '生成报表
wrt.Quit() '退出
生成报表有重复值，
经老师指导，如下得以解决：
Dim wrt As New WordReport("表A", tm, fl) ' 这里填入表名，哪怕是一个不相干的表名都可以
’wrt.AddDataTable("评查活动", "主数据源", "S e l e c t * from {评查活动}") 注释掉这
加好友 
发短信
Post By：2023/11/21 6:02:00 [只看该作者]
