主题：问

计划任务，加入代码。

Dim frm = windows.forms.form.activeform
If frm IsNot Nothing Then
    If frm.name = "Class247" Then
        'Dim lstCols = frm.controls("lstCols")
        Dim cmbTables = frm.controls("cmbTables")
        cmbTables.items.clear
        For Each t As DataTable In DataTables
            cmbtables.items.add(t.name)
        Next
    End If
End If