主题：[求助]rediobutton只对状态为confirming有效，其他的为无效为灰色，不可选择

需求明细表你不是已经让我改为红色字体了吗？

 改成这段，那段是Afterload事件的

If Forms("需求明细表").Opened Then
    Forms("需求明细表").Controls("通过").Enabled = e.DataRow("状态") = "confirming"
    Forms("需求明细表").Controls("未过").Enabled = e.DataRow("状态") = "confirming"   
End If

在需求明细表点击第二步提交，报错。估计这段代码还是有问题的。

此主题相关图片如下：报错.png

不好意思，是我自己搞错了。多谢。

发现一个问题。

在临时版本跟踪表中，把新増行（需求编号为20140904）的状态列改为confirming时。

在需求明细表的所有行（需求编号20140904,20140903,20140902,20140901）都对通过，未通2个rediobutton选项是可选的。

查了一下后台的需求明细表，发现只有需求编号为20140904的状态列为confirming，其他3个需求编号状态列都是为空的。

如果都是为空按道理这2个通过，未通rediobutton应该是灰色的，不可选择的。

当我再次把需求编号20140904选择了通过，这2个rediobutton对这4个需求都是灰色的。

所有我觉得好像是某一行的状态会影响这个表的状态似的。

请帮忙看看是咋回事。

 通过你写了什么代码，如果不想影响，参考

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

发现一个问题。

在临时版本跟踪表中，把新増行（需求编号为20140904）的状态列改为confirming时。

在需求明细表的所有行（需求编号20140904,20140903,20140902,20140901）都对通过，未通2个rediobutton选项是可选的。

查了一下后台的需求明细表，发现只有需求编号为20140904的状态列为confirming，其他3个需求编号状态列都是为空的。

如果都是为空按道理这2个通过，未通rediobutton应该是灰色的，不可选择的。

当我再次把需求编号20140904选择了通过，这2个rediobutton对这4个需求都是灰色的。

所有我觉得好像是某一行的状态会影响这个表的状态似的。

请帮忙看看是咋回事。

通过的代码如下,但我觉得应该不是通过代码导致的。毕竟是从临时版本跟踪表某行的状态列变更才导致了需求明细表所有的行对通过和未通可见的。

If e.Sender.Checked Then
    Dim r As Row = Tables("需求明细表").Current
    If r IsNot Nothing Then
        DataTables("临时版本跟踪表").ReplaceFor("状态", "", "需求编号 = '" & r("需求编号") & "'")
        DataTables("临时版本跟踪表").ReplaceFor("已确认可以发布", "True", "需求编号 = '" & r("需求编号") & "'")
        Dim m As New MailSender
        m.Host = "mail.bdcom.com.cn"
        m.Account = "version@bdcom.com.cn"
        m.Password = "version"
        m.From = "version@bdcom.com.cn"
        If r.IsNull("邮件通知") = False Then
            m.AddReceiver(r("邮件通知").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
        End If
        If r.IsNull("研发邮箱") = False Then
            m.AddReceiver(r("研发邮箱").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
        End If
        If r.IsNull("技术支持邮箱") = False Then
            m.AddReceiver(r("技术支持邮箱").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
        End If
        If r.IsNull("退回通知") = False Then
            m.AddReceiver(r("退回通知").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
        End If
        m.Title = "博达软件管理系统= = = = = = =" & "需求编号:" & r("需求编号") &"<= = =>临时版本编号:" & r("临时版本编号") & "======" & "现场确认已通过,请发布版本"
        m.C & r("需求编号") &"<= = =>临时版本编号:" & r("临时版本编号") & "======" & "现场确认已通过,请发布版本"
        m.Send
        MessageBox.show("需求编号:" & r("需求编号") &"<= = =>临时版本编号:" & r("临时版本编号")  & "此版本现场确认通过,测试部将发布!","博达软件管理系统")
        r("状态") = ""
    End If
End If
DataTables.save()

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:临时版本跟踪系统26.rar

 无语，测试没有问题啊，只有状态是confirming的才能操作。

 你自己把状态列显示出来自己看结果。