求助，如何显示当前状态

simple　发表于：2009-05-27 15:56:22 　

复制

如何显示当前状态，请高手帮忙！

详细备注在窗体内

点击下载此附件

Top

豆豆发表于：2009-05-27 17:08:12

不明白[记录填完整]和[记录没填完的]的标准是什么？

Top

simple 发表于：2009-05-27 17:28:02

除了最后三个字段是可选择性填，其他字段全部填完算完整，若有遗漏的字段就是不完整的一条记录

Top

simple 发表于：2009-05-28 09:26:14

Hi chaojiannan:

Can u help me?

Top

沈军发表于：2009-05-30 20:12:47

'可以在成为当前程序过程中加入代码

'如您的窗体中有10个字段,按照输入记录的比例求得它的完整性可否

'10个字段 Zd0.1.......Zd9

Private Sub Form_Current()

    Dim I As Integer
    Dim Ts As Long
    I = 0
    If Not IsNull(Zd0) Then I = 1
    If Not IsNull(Zd1) Then I = I + 1
    If Not IsNull(Zd2) Then I = I + 1
    If Not IsNull(Zd3) Then I = I + 1
    If Not IsNull(Zd4) Then I = I + 1
    If Not IsNull(Zd5) Then I = I + 1
    If Not IsNull(Zd6) Then I = I + 1
    If Not IsNull(Zd7) Then I = I + 1
    If Not IsNull(Zd8) Then I = I + 1
    If Not IsNull(Zd9) Then I = I + 1

    Ts = MsgBox("你当前记录的完整性是" & I / 10 * 100 & "%。", 48, "提示")

End Sub

Top

simple 发表于：2009-05-30 20:52:49

dear shenjun:

能否按我的附件帮我把代码写在里面，因为我不会VBA，还在初学中，可以否？

还有这里Zd是代表什么？

Top

豆豆发表于：2009-05-30 23:01:29

用报表可以实现你的要求。

把其他控件添加到

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
If IsNull(Me![MC#/机器号]) = False And IsNull(Me![Part#/料号]) = False And IsNull(Me![Lot#/批号]) = False 添加其他控件 Then
Me.[Part#/料号].Visible = False
Me![Lot#/批号].Visible = False

添加其他控件

End If

End Sub

点击下载此附件

Top

沈军发表于：2009-05-31 08:51:52

不好意思，我还没有搞明白，你的所问以及所要得到的是当前各机器的生产状态还是记录的记录的完整性？

如果是各生产机器的生产状态的话，您需要设定两个字段来分别进行记录，一是[生产任务量]、二是[已生产成品量]。

如果您只是用来判断整条记录的建立完整性的话，我上述的那个方案供参考。

Top

simple 发表于：2009-05-31 17:56:07

非常感谢你的关注，虽然还没得到我要的效果，但是还是非常的感谢你.