chn/group-meeting-lottery
1
0
Fork 0
mirror of https://github.com/CHN-beta/group-meeting-lottery.git synced 2024-10-23 03:38:44 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

修一个导出名单的bug

Browse Source
This commit is contained in:
陈浩南 2022-09-12 21:18:51 +08:00
parent 4f9b099e58
commit 022a34a877
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Form1.vb
View File

@ -1,4 +1,6 @@
Public Class Form1 Imports Accessibility
Public Class Form1
Private Students_ As New List(Of List(Of String)) From Private Students_ As New List(Of List(Of String)) From
{ {
New List(Of String) From New List(Of String) From
@ -109,6 +111,11 @@
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim dialog As New SaveFileDialog With {.Filter = "Excel 工作簿|*.xlsx", .Title = "保存为excel", .FileName = "成员名单"} Dim dialog As New SaveFileDialog With {.Filter = "Excel 工作簿|*.xlsx", .Title = "保存为excel", .FileName = "成员名单"}
Dim result = dialog.ShowDialog() Dim result = dialog.ShowDialog()
Dim students As New List(Of List(Of String))
students = Students_
For i As Integer = 0 To 3
students(i).AddRange(StudentsUsed_(i))
Next
If result = DialogResult.OK Then If result = DialogResult.OK Then
Try Try
If FileIO.FileSystem.FileExists(dialog.FileName) Then FileIO.FileSystem.DeleteFile(dialog.FileName) If FileIO.FileSystem.FileExists(dialog.FileName) Then FileIO.FileSystem.DeleteFile(dialog.FileName)
@ -117,8 +124,8 @@
For i As Integer = 0 To 3 For i As Integer = 0 To 3
Dim c = Chr(Asc("A"c) + i) Dim c = Chr(Asc("A"c) + i)
sheet.Cells(c + "1").Value = "第" + Convert.ToString(i + 1) + "小组" sheet.Cells(c + "1").Value = "第" + Convert.ToString(i + 1) + "小组"
For j As Integer = 0 To Students_(i).Count - 1 For j As Integer = 0 To students(i).Count - 1
sheet.Cells(c + Convert.ToString(j + 2)).Value = Students_(i)(j) sheet.Cells(c + Convert.ToString(j + 2)).Value = students(i)(j)
Next Next
Next Next
file.Save() file.Save()