以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]求方法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79086)
--  作者：jncoser
--  发布时间：2015/12/23 23:28:00
--  [求助]求方法

 

 a     b   c     d    e  f    g   
                           

 

没e,f,g列的事。

 

如果 a,b,c,d列为空 那么 MessageBox(a列名 & B列名 & c列名 & d列名)

 

如果 a列为空 那么MessageBox（a列名）

如果a列和b列为空 那么 MessageBox (a列名 & b列名)

如果a列和c列为空 那么 MessageBox (a列名 & c列名)

如果a列和d列为空 那么 MessageBox (a列名 & d列名)

 

如果b列为空 那么 MessageBox (b列名)

如果b列和c列为空 那么 MessageBox (b列名 & c列名)

如果b列和d列为空 那么 MessageBox (b列名 & d列名)

 

如果c列为空 那么 MessageBox (c列名)

如果c列和d列为空 那么 MessageBox (c列名 & d列名)

 

如果d列为空 那么 MessageBox (d列名)

 

实上我的表列更多，用if有点多，用 foreach messagebos（dc.name）是一个一个的提示而且有e,f，g列提示。

谢谢

 

 
--  作者：大红袍
--  发布时间：2015/12/24 0:58:00
--  
Dim cs() As String = {"第一列","第二列"}
Dim msg As String = ""
For Each c As String In cs
    If Tables("表A").current.isnull(c) Then
        msg &= c & " "
    End If
Next
msgbox(msg)

 
--  作者：jncoser
--  发布时间：2015/12/24 9:12:00
--  
红师，msg &= c & " " 这个 我没懂。。。 

大概明白这句意思

这个表达式的 方法  能告诉我去哪里可以查阅到吗

[此贴子已经被作者于2015/12/24 9:20:07编辑过]
--  作者：大红袍
--  发布时间：2015/12/24 9:20:00
--  

msg &= c & " "

 

等同于

 

msg = msg & c & " "

 

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