大师：您好！请求指教！万分感谢！！！

Dim t As Table = Tables("qrymyf.qraaan.ddwxnyfgge")
Dim d As Col = t.Cols(t.ColSel)   \' 这选定列的名称是“ntdc3

Dim n  = (d.Name)
Dim h As String = n
Dim z() As String = h.ToString().split("c")
Dim b = z(1) + 1
Dim f = z(0) & "c" & b    \'这显示是nydc4
Dim g = (Col.Name = f)   

我的表Cols Name 有“nydc1"至"nydc18"希望动态选定列后，可以获取左边一列 = 选定列 + 某列  右边1列 = 选定列 - 某列     请大师指点！谢谢！

大师：你好！动态生成TextBox是可以了代码是：

For Each r As Row In Tables("qrymyf").rows
    Dim txt As WinForm.TextBox
    txt = e.Form.CreateControl("TextBox" & r.index, ControlTypeEnum.TextBox)
    txt.Left = 100*r.index + 100
    txt.Top = 50
    e.Form.AddControl(txt)
Next.

请大师指点一下动太邦定表的某列的代码！

Dim s As String = e.Form.Controls("TextBox3").BindingField
If s > "" Then
    Dim p As Integer = s.LastIndexOf(".")
    Dim t As String = s.SubString(0, p)
    Dim c As String = s.SubString(p + 1)
    MessageBox.Show("qrymyf: " & t & " ffikgn: " & c)
End If

求求大师指点！！！动太生成TexrBox,同时动太绑定qrymyf表的ffikgn列。请求大师指教！！！谢谢！！！