如何让当前的某部分不对应的号码成灰色？

goto2008

请看图片说明。。。。。

我想实现的是：让当前的某部分不对应的号码成灰色？

比如：

goto2008

请教各位朋友。。。帮忙一下，看这个问题如何解决。。。

因为有时指令根本没有的号码，但子窗体还可以录入。这样不好。。。

如果让子窗体自动随着顶端的号码。。。变化而变化。。。

灵活地设成灰色。。那就不会出现自相矛盾的问题了。。

goto2008

在线期盼高手解答。。。谢谢。。

wanshan

在子窗体的成为当前时间中加：

Private Sub Form_Current()
  Me.[39].Locked = IsNull(Forms![鞋底36-47号窗]![39])
End Sub


即可

goto2008

cuxun大哥。。

好像还有点不太对劲。。

[此贴子已经被作者于2007-6-13 15:27:01编辑过]

goto2008

以下是引用wanshan在2007-6-13 11:33:00的发言：


在子窗体的成为当前时间中加：

Private Sub Form_Current()
  Me.[39].Locked = IsNull(Forms![鞋底36-47号窗]![39])
End Sub


即可

谢谢万山大哥。。。用你这方法可以了！

goto2008

呵呵，能不能再多问个问题。。。

顶端指令有的号码，，，子窗体会显示出来号码，

顶端指令没有的号码，，，子窗体不会显示出来没有的号码，

例如：顶端指令是36号。37号。38号。39号。40号有数据。

那么下面子窗体的字段，只有显示36号。37号。38号。39号。40，

像41号，42。43。44。45号。。等会自动隐蒇。。。



这样是不是更完美些了了？嘿嘿。。

goto2008

或者是万山大哥那个方法延续下去。。。

让不对应的号码，整竖都成其它颜色。。加以区别。。

goto2008

又搞定了，再次谢谢万山大哥的指点。。
[ 本帖最后由 goto2008 于 2008-4-10 17:02 编辑 ]

eyewitnes

'隐藏没有的号数

dim ctl as control

for each ctl in me

    if ctl.name>35 and ctl.name<47 then

         if isnull(ctl) or ctl = "" then

            me.鞋底收发查询子窗体.form.36.columnhide=true

         else

            me.鞋底收发查询子窗体.form.36.columnhide=false

         end if

      end if      

next   

大概就这样

[此贴子已经被作者于2007-6-13 16:03:38编辑过]