主题：求需求特殊条件控制代码

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

点击浏览该文件:需求条件控制代码.rar

Dim r As Row = Tables("表A").Current

If r("某列") = "值1" OrElse r("某列") = "值2" Then
   
ElseIf  r("某列") = "差分阻抗" OrElse r("某列") = "差模阻抗" Then
    If r.IsNull("蚀刻线间距") Then
        msgbox("不能为空")
        Return
    End If
    If r.IsNull("成品线间距") Then
        msgbox("不能为空")
        Return
    End If
End If

r.save

Dim r As Row = Tables("表A").Current If r("某列") = "值1" OrElse r("某列") = "值2" Then ElseIf r("某列") = "差分阻抗" OrElse r("某列") = "差模阻抗" Then If r.IsNull("蚀刻线间距") Then msgbox("不能为空") Return End If If r.IsNull("成品线间距") Then msgbox("不能为空") Return End If End If r.save

 

以上代码没有包括条件1吗？

 

需求：条件控制代码

说明：条件1 当选择①阻抗类别栏位的“特性阻抗，共模阻抗”时,

                  ②栏位的“蚀刻线间距，成品线间距”不需要输入值就可以保存；

条件2 当选择①阻抗类别栏位的“差分阻抗，差模阻抗”时，

      ②栏位的“蚀刻线间距，成品线间距”必须需要输入值才可以保存；

不需要，就不需要判断。看到代码，改动对应的值。

Dim r As Row = Tables("表A").Current If r("某列") = "值1" OrElse r("某列") = "值2" Then ElseIf r("某列") = "差分阻抗" OrElse r("某列") = "差模阻抗" Then If r.IsNull("蚀刻线间距") Then msgbox("不能为空") Return End If If r.IsNull("成品线间距") Then msgbox("不能为空") Return End If End If r.save

将代码复制到命令窗口显示：

错误所在事件：窗口,工程数据管理,阻抗类别,TextChanged
详细错误信息：
列“某列”不属于表 型号数据表。

你要把某列改为对应的列名

 改成你的列名，改成你的表名啊。

你好，谢谢