主题：[求助]任务栏

此主题相关图片如下：任务栏.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

 

为什么为出现这个对话框

 

 

 和代码无关，你看看 maintablechanged 事件，可能是哪里有问题了。

'进销存表统计入库明细?出库明细?期初
If MainTable.Name = "进销存" Then
    'DataTables("进销存").DataCols("商品ID").RaiseDataColChanged
    'DataTables("进销存").DataCols("商品名称").RaiseDataColChanged
    MainTable.StopRedraw
    MainTable.DataTable.DeleteFor("")
   
    For Each dr As DataRow In DataTables("入库明细").Select("入库日期 is not null")
        Dim nr As Row = MainTable.AddNew
        nr("日期") = dr("入库日期")
        nr("客户名称") = dr("供应商_名称")
        nr("商品ID") = dr("商品ID")
        nr("商品名称") = dr("商品名称")
        nr("来源") = dr("来源")
        nr("规格") = dr("规格")
        nr("入库_数量") = dr("入库_数量")
       nr("入库_单价") = dr("入库_单价")
        nr("入库_金额") = dr("金额合计")
    Next

    For Each dr As DataRow In DataTables("出库明细").Select("出库日期 is not null")
        Dim nr As Row = MainTable.AddNew
        nr("日期") = dr("出库日期")
        nr("客户名称") = dr("客户")
        nr("商品ID") = dr("商品ID")
        nr("商品名称") = dr("商品名称")
        nr("来源") = dr( "出库用途")
        nr("规格") = dr("规格")
        nr("出库_数量") = dr("出库_数量")
        nr("出库_单价") = dr("出库_售价")
        nr("出库_金额") = dr("出库_价税合计")
    Next

    For Each dr As DataRow In DataTables("期初").Select("日期 is not null")
        Dim nr As Row = MainTable.AddNew
        nr("日期") = dr("日期")
        nr("商品ID") = dr("商品ID")
        nr("商品名称") = dr("商品名称")
        nr("来源") =  dr("来源")
        nr("规格") =  dr("规格")
        nr("期初_数量") = dr("期初_数量")
        nr("期初_单价") = dr("期初_单价")
        nr("期初_金额") = dr("期初_金额")
    Next
 For Each dr As DataRow In DataTables("退货").Select("退货日期 is not null")
        Dim nr As Row = MainTable.AddNew
        nr("日期") = dr("退货日期")
        nr("客户名称") = dr("退货客户")
        nr("商品ID") = dr("商品ID")
        nr("商品名称") = dr("商品名称")
        nr("来源") =  dr("来源")
        nr("规格") =  dr("规格")
        nr("退货_数量") = dr("退货_数量")
        nr("退货_单价") = dr("退货_单价")
        nr("退货_金额") = dr("退货_金额")
    Next

    Tables("进销存").sort="商品ID,日期"
    MainTable.ResumeRedraw
End If

'进销存窗口筛选代码
If MainTable.Name = "进销存" Then
    Forms("筛选").Show()
Else
    Forms("筛选").Visible = False
End If

'该事件maintablechanged的代码是针对我打开的表。

 出错例子发上。说明哪里出错。

老师，我把窗口类型改为独立就好倒过来改成类型模式不行。

  和你贴出的代码没有任何关系，你先确认哪里出错。