用open方法打开，用.opened=false 判断不到，会打开好多个
Dim rw As Row = e.Table.Current
If rw Is Nothing Then
Return
End If
Vars("str_TB_AL_ALFM_当前表名") = "vw_船移交记录_订单唯一码_订单明细_订单"
Vars("int_TB_AL_ALFM_窗口宽度") = 450
Vars("int_TB_AL_ALFM_窗口高度") = 700
Vars("int_TB_AL_ALFM_窗口X坐标") = 1850
Vars("int_TB_AL_ALFM_窗口Y坐标") = 600
Dim dw As Integer = Date.Today.DayOfWeek
Dim 几天 As Integer = -3
If dw = 1 OrElse dw = 2 Then
几天 = -5
End If
Dim db As DataTable = DataTables("vw_船移交记录_订单唯一码_订单明细_订单")
If e.Table.DataTable.Name = "vw_生产任务超期统计" AndAlso rw("原因") Like "*审核*" Then
Vars("str_TB_AL_ALFM_当前列名") = "唯一码|60|变动时间|80|客户所在国家|120"
db.LoadFilter = "移交后部门='" & rw("组别") & "' and 变动时间<'" & Date.Today.AddDays(几天) & "' and 审核结果 is null and 移交后部门<>'质检包装组'"
ElseIf e.Table.DataTable.Name = "vw_生产任务超期统计" AndAlso rw("原因") Like "*移交*" Then
Vars("str_TB_AL_ALFM_当前列名") = "唯一码|60|记录生成日期|80|客户所在国家|120"
ElseIf e.Table.DataTable.Name = "vw_生产任务超期统计" AndAlso rw("原因") Like "*入库*" Then
Vars("str_TB_AL_ALFM_当前列名") = "唯一码|60|变动时间|80|客户所在国家|120"
db.LoadFilter = "移交后部门='" & rw("组别") & "' and 变动时间<='" & Date.Today.AddDays(几天) & "' and 审核结果 is null and 移交后部门='质检包装组' and 产品名称='" & rw("产品名称") & "'"
ElseIf e.Table.DataTable.Name = "vw_各组单日生产量统计" AndAlso rw("移交原因") Like "*审核*" Then
Vars("str_TB_AL_ALFM_当前列名") = "唯一码|60|变动时间|80"
ElseIf e.Table.DataTable.Name = "vw_各组单日生产量统计" AndAlso rw("移交原因") Like "*审核*" Then
Vars("str_TB_AL_ALFM_当前列名") = "唯一码|60|变动时间|80"
ElseIf e.Table.DataTable.Name = "vw_各组单日生产量统计" Then
Vars("str_TB_AL_ALFM_当前列名") = "唯一码|60|变动时间|80"
End If
db.Load
If Forms("数据展示窗口（靠右）").Opened = False Then
' Forms("数据展示窗口（靠右）").open(Vars("int_TB_AL_ALFM_窗口X坐标"), Vars("int_TB_AL_ALFM_窗口Y坐标"))
Forms("数据展示窗口（靠右）").Show
End If
在另一窗口中一个表的currentChange事件中的代码，这样会打开很多个数据展示窗口，才改成show
但不想用户手动去拖一下窗口，所以希望显示在指定位置
一个窗口不可能会打开好多个的。没打开之前，opened肯定是false的