excel报表根据单元格内容触发其他单元格 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：无标题.png

请老师指教：如图所示，能否判断前一个红框内的字符串的长度大于80，就以逗号分割，依次填入第二个红框内的多个单元格中

不打算在狐表里增加列，能实现么？

请问老师我怎么才能知道选了多少行，例如单元格Sheet(i,m).value里面的i，m怎么通过代码赋值呢

请教老师，我写了如下代码：

放在报表生成按钮里面：

'''

Dim Book As New XLS.Book(ProjectPath & "Attachments\ylgg.xlsx")

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim fl As String = ProjectPath & "Reports\ylgg.xlsx"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Dim i As Integer = Sheet.Rows.Count

For m As Integer = 5 To i

Dim s As String = Sheet(m, 4).Value

If s.Length > 10 Then

Dim Values() As String

Values = s.split("，")

For k As Integer = 11 To Values.Length + 10

Sheet(m, k).Value = Values(k - 11)

Sheet(m, 4).Value = "见附件管号一览表"

End If

Proc.File = fl

Proc.Start()

或者放在报表事件的AfterBuild里面：

Dim Book As New XLS.Book(file)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim i As Integer = Sheet.Rows.Count

For m As Integer = 5 To i

Dim s As String = Sheet(m, 4).Value

If s.Length > 10 Then

Dim Values() As String

Values = s.split("，")

For k As Integer = 11 To Values.Length + 10

Sheet(m, k).Value = Values(k - 11)

Sheet(m, 4).Value = "见附件管号一览表"

End If

无论放在生成报表还是放在报表事件的AfterBuild里面都没效果

[此贴子已经被作者于2021/3/8 10:32:52编辑过]

运行显示“打开存储文件失败”，不知道是什么原因

是的，刚才是后缀名忘了改了。老师现在功能是能实现，但还有个奇怪的问题：

我用的中文逗号，来分割字符串的，但是没用，换成其他分隔符是有用的。代码开头也输入了'''开开启中文标点

[此贴子已经被作者于2021/3/8 11:05:13编辑过]

还是老师有经验，的确如此，原来的数据不是中文逗号

主题：excel报表根据单元格内容触发其他单元格