If Forms ("过程记录").opened andalso S2 > "" Then
Dim t1 As Table = Tables("过程记录_Table10") Dim S1 As String = t1.Current(t1.ColS("目录树生成列"))