主题：[求助]任务栏

此主题相关图片如下：任务栏.png
Select Case e.Link.Text
    Case "入库"
        If DataTables.Contains("入库") = False Then  '如果if  数据表DataTables 判断集合中是否包括某个值Contains
            DataTables.Load("入库") '    加载数据Load
        End If                                '结束如果
       MainTable=Tables("入库")
     e.Form.Close

    Case "入库明细"
        If DataTables.Contains("入库明细") = False Then
            DataTables.Load("入库明细")
        End If
        MainTable=Tables("入库明细")
     e.Form.Close
    Case "出库"
        If DataTables.Contains("出库") = False Then
            DataTables.Load("出库")
        End If
        MainTable=Tables("出库")
      e.Form.Close
    Case "出库明细"
        If DataTables.Contains("出库明细") = False Then
            DataTables.Load("出库明细")
        Else
            MainTable=Tables("出库明细")
        End If
        MainTable=Tables("出库明细")
          e.Form.Close
  Case "进销存"
        If DataTables.Contains("进销存") = False Then
            DataTables.Load("进销存")
        End If
        MainTable=Tables("进销存")
  
End Select

为什么为出现这个对话框