以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求需求特殊条件控制代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88725)
--  作者：butler9912
--  发布时间：2016/8/8 16:14:00
--  求需求特殊条件控制代码
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:需求条件控制代码.rar
--  作者：大红袍
--  发布时间：2016/8/8 16:33:00
--  

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
--  作者：butler9912
--  发布时间：2016/8/8 16:38:00
--  

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 当选择①阻抗类别栏位的“差分阻抗，差模阻抗”时，

      ②栏位的“蚀刻线间距，成品线间距”必须需要输入值才可以保存；
--  作者：大红袍
--  发布时间：2016/8/8 16:57:00
--  
不需要，就不需要判断。看到代码，改动对应的值。
--  作者：butler9912
--  发布时间：2016/8/8 17:18:00
--  

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
详细错误信息：
列“某列”不属于表 型号数据表。
--  作者：cd_tdh
--  发布时间：2016/8/8 17:34:00
--  
你要把某列改为对应的列名
--  作者：大红袍
--  发布时间：2016/8/8 17:34:00
--  
 改成你的列名，改成你的表名啊。
--  作者：butler9912
--  发布时间：2016/8/8 17:38:00
--  

你好，谢谢