专家坐堂-独立窗口打开后自动移动到指定坐标要怎么写？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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