主题：lines 的问题

  老师，您好。

 

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

 

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

我可能没有表达清楚，

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

就是这个意思。

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

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

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

 

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

就是变成这样子。

感谢