If e.Col.Name = "列名" Then Dim s As String = e.Row("A") If s > "" AndAlso Tables.Contains(s) Then Dim t As Table = Tables(s) s = "" For Each c As Col In t.Cols If c.Visible Then s = s & "|" & c.Name End If Next e.Col.ComboList = s End IfEnd If