主题：[求助]

专家，您好！

我有一个表，是“生产安排表”，是计划性质的。为了安排一个新的合同的生产，我需要在给“生产安排表”输入新数据前，查看准备排产的设备使用情况，即在窗口中输入起始日期、终止日期和工位，然后查询该工位在这段时间内是否安排了生产，如果没有安排，进行安排。

“生产安排表”如下：

此主题相关图片如下：11117.bmp

查询窗口如下：

此主题相关图片如下：11116.bmp

由于是新手，在《使用指南》没有找到如何编码的办法，请指导，当按下“开始查询”按钮时，这样才能弹出一个窗口，显示我要查询的内容？

参考

 

http://www.foxtable.com/help/topics/1058.htm

 

谢谢，找了一天，没有找对地方。您的答案正是我要的。再次谢谢！

专家您好，前面的问题基本解决，但我想在筛选后，将筛选结果通过窗口显示出来，目前只能把筛选的主表显示出来，想输入新的内容，就必须关掉此表。我要保留筛选结果的窗口，在输入新的内容时，可以随时对比筛选结果

筛选控件的编码如下：

Dim Filter As String
With e.Form.Controls("选择工位栏")
    If .Value IsNot Nothing Then
        Filter = "工位 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("起始日期栏")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter =Filter & " And "
        End If
        Filter =Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("终止日期栏")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("生产安排表").Filter = Filter
End If

我想把棕色编码部分改成用弹出独立窗口显示筛选结果，窗口如下（窗口的table属于“生产安排表”），该如何编码？

此主题相关图片如下：11118.bmp

窗口的弄成副本表 http://www.foxtable.com/help/topics/1906.htm

 

然后写代码

 

If Filter > "" Then

    Forms("窗口1").Open
    Tables("窗口1_Table1").Filter = Filter
End If

问题解决，谢谢专家！

请教专家，排产窗口中，希望点击“工位”列的单元格，不需要手工输入，电脑直接输入“浸漆”。窗口中的表属于“生产安排表”，是该表的副本。我在该副本的click事件中编码如下：

If e.Form.Controls("生产安排").DataRows(). IsNull("工位") Then
e.Row("工位")="浸漆"
End If

结果显示：未找到类型“Table”的公共成员“DataRows”的错误。

请问专家怎样修改编码？

 

If e.Row.IsNull("工位") Then
    e.Row("工位")="浸漆"
End If

谢谢