If e.Col.Name = "窗口" Then
'列出所有窗口作为列内容
Dim s1 As String = ""
For Each frm As WinForm.Form In Forms
s1 &= frm.name & "|"
Next
e.Table.cols("窗口").ComboList = s1.trim("|")
End If
If e.Col.Name = "窗口控件" Then
'列出所有窗口作为列内容
Dim s1 As String = ""
For Each frm As WinForm.Form In Forms
s1 &= frm.name & "|"
Next
e.Table.cols("窗口控件").ComboList = 显示窗口所属的控件名
救助
End If