主题：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

 

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

没看懂你要做什么？

 你想做什么？这个意思？

 

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、不理解你说的【显示列变成其它列】的意思，截图说明

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

就是变成这样子。

你可以动态显示和隐藏某些列

感谢