主题：请大师指教！谢谢！

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

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列 = 选定列 - 某列     请大师指点！谢谢！