我在“内询价”窗体AFTERLOAD中写如下：

If User.group="销A部" OrElse User.Group="销B部" Then

    e.Form.Controls("Quote").Visible=False

    e.Form.Controls("Button4").Visible=True

    e.Form.Controls("保存与退出").Visible=True

    e.Form.Controls("EditFind").Visible=True

    e.Form.Controls("Row").Visible=True

ElseIf User.Name="开发者" Then

    e.Form.Controls("Quote").Visible=True

    e.Form.Controls("Button4").Visible=True

    e.Form.Controls("保存与退出").Visible=True

    e.Form.Controls("EditFind").Visible=True

    e.Form.Controls("Row").Visible=True

    e.Form.Controls("LinkinForm").Visible=True

Else

    e.Form.Controls("Quote").Visible=True

    e.Form.Controls("Button4").Visible=False

    e.Form.Controls("保存与退出").Visible=False

    e.Form.Controls("EditFind").Visible=False

    e.Form.Controls("Row").Visible=False

End If

If user.group="销A部" OrElse user.group="销B部" OrElse user.name="开发者" Then

    DataTables("SelfInquiry").LoadFilter = ""

Else

    DataTables("SelfInquiry").LoadFilter = "状态 = \'已公示\'"

End If

DataTables("SelfInquiry").Load

 

 

在“SelfInquiry”表的CURRENTCHANGED中写如下：

If Forms("内询价").Opened Then

    If Tables("SelfInquiry").Current("询价状态")= "已公示" AndAlso Tables("SelfInquiry").Current("询价状态")<> Nothing Then

        Forms("内询价").Controls("button4").Enabled = False

        Forms("内询价").Controls("Quote").Enabled = True

        Forms("内询价").Controls("button5").Enabled = True 

Else

        Forms("内询价").Controls("button4").Enabled = True

        Forms("内询价").Controls("Quote").Enabled = False

        Forms("内询价").Controls("button5").Enabled = False 

    End If

End If

出现问题如下：当以“开发者”和“销A部”或“销B部”的用户名登录时，去打开内询价窗体正常。

若以上述之外的用户名登录，去打开内询价窗体则先后出来如下错误提示

.NET Framework 版本：2.0.50727.5477

Foxtable 版本：2014.11.11.1

错误所在事件：加载[SelfInquiry]失败!

详细错误信息：

至少一个参数没有被指定值。

 

 

.NET Framework 版本：2.0.50727.5477

Foxtable 版本：2014.11.11.1

错误所在事件：SelfInquiry,CurrentChanged

详细错误信息：

未将对象引用设置到对象的实例。

请问是代码哪里冲突了？？

我同时发现自己太粗心了。我一个劲的去看代码的逻辑性。哈哈哈。

谢谢了