主题：4.18的appendload有问题，暂时不要升级

以下内容为程序代码:

1 Dim 查询 As String = Args(0)
2 If DataTables.Contains(CurrentTableName) Then
3 Dim frm As WinForm.Form =Forms(CurrentTableName.split("_")(0))
4 If frm IsNot Nothing Then
5 With DataTables(CurrentTableName)
6 .LoadFilter = Tables(CurrentTableName).Grid.Tag(6) & 查询
7 'Output.Show(.LoadFilter & ":" & CurrentTableName & ":" & Tables(CurrentTableName).Grid.Tag(2) )
8 frm.ResumeRedraw
9 If Forms("数据加载中").Opened = False Then
10 Forms("数据加载中").show
11 End If
12 frm.StopRedraw
13 Dim t1 As New System.Threading.Thread(AddressOf 刷新表数据)
14 t1.Start()
15 frm.ResumeRedraw
16 End With
17 End If
18 End If