主题：[求助]表达式列提取字符串

wh是列名  下面这段代码 是放在DataColChanged中实现的  如果想放在按钮里 该怎么实现

Dim T As String=e.DataRow("wh")

 

Dim ecLs As New List(Of String)

Dim i,n, n1,n2 As Integer

n = T.Length - T.Replace("]","").length

For i  = 0 To n-1

    n1 = T.Indexof("]",n2)

    n2 = T.Indexof("号",n1)

    ecLs.Add (T.SubString(n1+1,n2-n1-1))

Next

output.show(ecLs(0))

Dim cd As WinForm.ComboBox = Forms("查询").Controls("ComboBox1")

cd.value=ecLs(0)