[求助]代码中的具体窗口改为当前窗口，哪里错了？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

原代码是在表A中设置的代码，现在想在功能区设置一个共用的按钮，对当前表起作用，我把下划线的两行代码改成了下面的三行斜体字，但没运行，请老师帮忙看看：

Dim clbx1 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")

Dim clbx2 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox2")

For Each j As Integer In clbx2.CheckedIndices

Dim tm As String = ProjectPath & "模板文件\" & clbx2.Items(j) '指定模板文件

For Each i As Integer In clbx1.CheckedIndices

Dim fl As String = ProjectPath & "成品文件\" & clbx1.items(i)("案号") & clbx2.Items(j) '指定目标文件

Dim wrt As New WordReport(Tables("表A"),tm,fl) '定义一个WordReport

Dim dr As DataRow = DataTables("表A").Find("_Identify = '" & clbx1.items(i)("_Identify") & "'")

If dr IsNot Nothing

'Dim nm As String = CurrentTable.Name

'Dim wrt As New WordReport(Tables("nm"),tm,fl) '定义一个WordReport

'Dim dr As DataRow =DataTables("nm").Find("_Identify = '" & clbx1.items(i)("_Identify") & "'")

wrt.BuildOne(dr)

wrt.quit

Dim proc As new Process

proc.File = fl

proc.Start

End If

主题：[求助]代码中的具体窗口改为当前窗口，哪里错了？