在编辑窗口开始录数据的时候，根据主键条件刷新后台主窗口加载数据

来源:www.accessoft.com 点击数:760 评论数:1　评论 | 收藏 | 复制

时　间:2018-12-04 18:28:07
作　者:祝康胜 ID：48957 城市：昆山
摘　要:在编辑窗口开始录数据的时候，根据主键条件刷新后台主窗口加载数据
正　文:

在编辑窗口开始录数据的时候，根据主键条件刷新后台主窗口加载数据

为了达到这个目的，折腾了我将近一个星期。今天终于弄出来，庆祝一下 [haha]

第1步
先在新建模块中设置一个Public文本变量WindowState

第2步
将主窗体Load事件过程改成Public Sub

第3步
在主窗体Load事件过程中增加以下代码：
    If WindowState Like "Select * FROM NC汇总表（门灯横梁）*" Then
        Me.sfrList.Form.RecordSource = WindowState
    Else
        Me.sfrList.Form.RecordSource = "Select NC汇总表（门灯横梁）.* FROM NC汇总表（门灯横梁） Where (((NC汇总表（门灯横梁）.完成日期)<=Date()) AND ((NC汇总表（门灯横梁）.完成日期)>Date()-30))"
    End If
这段代码是防止有很多类似窗口都需要实现这个功能，为防止公共文本变量混乱，所以加了这段代码。

第4步
在编辑窗口需要刷新主窗口的事件代码中增加代码：
WindowState = "Select * FROM NC汇总表（门灯横梁） Where [物料代码/特性值] Like '" & i(0) & "*" & "'"
Call [Form_frmNC汇总(门灯横梁)].Form_Load

OK，目标达成！
每天进步一点，良心好受一点！ [拳头]