老师，您好。

If e.Col.name = "词条4" Then
    Dim pc As List(of String)
    pc.add("\'" & Tables("录入索引(疾病)_table1").Current("词条4") & "\'")
    e.Form.Controls("TextBox1").text.lines = pc
End If

这串代码，写都写的进去， 但是 运行的时候就是会出错，找不出问题在哪。咋办呢。

 你想做什么？这个意思？

If e.Col.name = "词条4" Then
    Forms("窗口1").Controls("TextBox1").text = Tables("录入索引(疾病)_table1").Current("词条4")
End If

我可能没有表达清楚，

此主题相关图片如下：qq截图20170410145607.png

额，老师，还有个问题。
你看，我这个tables 显示的是 症状  症状图片 症状注解， 3个列。

能不能双击tables 症状列后， 将显示列变成， 其他的列呢？

嗯，类似于 目录树这样的。

1、代码

If e.Col.name = "词条4" Then

    Dim txt As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")
    txt.text = txt.Text & iif(txt.Text > "", vbcrlf, "") & e.Row("词条4")
End If

2、不理解你说的【显示列变成其它列】的意思，截图说明