主题：动态数据提取

TextChanged

Dim txt1 As String = e.Form.Controls("TextBox1").Text
Dim txt2 As String = "包括：" & txt1 & "。"
e.Form.Controls("TextBox2").text = txt2

  按上述代码，当我在TextBox1输入A时，TextBox2的数据是包括：A。当我再次在TextBox1输入B时，TextBox2的数据是包括：B。

希望以下效果，当我在TextBox1输入A时，TextBox2的数据是包括：A。当我再次在TextBox1输入B时，TextBox2的数据是包括：A，B。

 

当我重启项目时，TextBox2的数据被清空了，如何让数据得以保留？

DropDownOpening

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim Filter As String = "[表名] = '工艺内容' AND [列名] = '加工人'"
Dim drs As List(Of DataRow) = DataTables("目录树过滤").Select(Filter)
For Each dr As DataRow In drs
    Dim txt2 As String = dr("过滤条件")
Next
trv.BuildTree("工艺内容", "加工人", "加工人 Not In (''" & txt2 & ")")

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

 符合"[表名] = '工艺内容' AND [列名] = '加工人'"只有一行

一般只存在一行，如果存在多行，就选最后一行，代码如何修改？

已解决

.NET Framework 版本：4.0.30319.1
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,工艺内容/加工人,TreeView1,NodeMouseDoubleClick
详细错误信息：
Column '过滤条件' does not belong to table 工艺内容.

 

If e.Node.Level = 0 Then '如果单击的是第二层节点 
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
Dim dr1 As DataRow
With DataTables("目录树过滤")
dr1 = .Find("表名 = '工艺内容' AND 列名 = '加工人'", "", 0)
End With
Dim txt2 As String = dr("过滤条件")
Dim txt1 As String = dr("加工人")
txt1 = ",'" & txt1 & "'"
txt2 = txt2 & txt1
dr("过滤条件") = txt2 
End If