以下是引用aduydgd在2014-5-7 11:58:00的发言：
我的字段都是英文，提示的内容人家看不懂啊，怎么让提示中文？
Dim s As String
Dim cs As String
For Each r As Row In Tables("表A").Rows
cs = ""
Dim arycs() As String = "date|num|name".Split("|")
Dim arytips() As String = "日期|序号|名称".Split("|")
For i As integer = 0 to arycs.Length - 1
If r.IsNull(arycs(i)) Then
cs + = "【" & arytips(i) & "】列"
End If
Next
If cs > "" Then
s + = "第 " & r.Index + 1 & " 行 " & cs & Vbcrlf
End If
Next
MessageBox.Show(s,"以下各行的几个列值不能为空")
[此贴子已经被作者于2014-5-7 12:54:18编辑过]
加好友 
发短信
Post By：2014/5/7 12:54:00 [显示全部帖子]
