主题：全局表事件的问题

Dim sbt As String = ClipBoard.GetText.Split(chr(13))(0)
Dim flag As Boolean = True
For Each s As String In sbt.split(chr(9))
    If CurrentTable.cols.Contains(s) = False Then
        flag = False
        Exit For
    End If
Next

If flag Then
    msgbox("有表头")
Else
    msgbox("没表头")
End If