老师帮忙看看下面代码中标红部分，我想让文件在循环时文件名一个一个的显示在文本框内（即处理哪一个就显示出哪个）可实际上却是所有的循环都执行完了文件名才一起显示出来。
For Each file As String In FileSys.GetFiles(path)
Dim txt1 As WinForm.TextBox = Forms("窗口1").Controls("TextBox3")
txt1.Text &= vbcrlf & file & vbcrlf
Dim Book1 As New XLS.Book(file)
Dim Sheet1 = Book1.Sheets(0)
For i As Integer = 0 To Sheet1.Rows.Count-1
For j As Integer = 0 To Sheet1.Cols.Count -1
If Sheet1(i, j).Text > "" AndAlso dic.ContainsKey(Sheet1(i, j).Text) Then
'Output.Show(Sheet1(i, j).Text & vbcrlf & dic(Sheet1(i, j).Text))
Sheet1(i, j).value = Sheet1(i, j).Text & "|" & dic(Sheet1(i, j).Text)
End If
Next
Next
'//保存
Book1.Save(file)
Next
For Each p As String In FileSys.GetDirectories(path)
Functions.Execute("递归", p)
Next
'Catch ex As Exception
'messagebox.show("当前文件发生错误,请检查!")
End try
[此贴子已经被作者于2015/4/1 16:08:13编辑过]
加好友 
发短信
Post By：2015/4/1 1:28:00 [显示全部帖子]
