主题：[求助]求方法

 

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列提示。

谢谢

 

 

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)

 

红师，msg &= c & " " 这个 我没懂。。。 

msg &= c & " "

 

等同于

 

msg = msg & c & " "

 

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