主题：动态数据提取

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。

 

TextChanged Dim txt1 As String = e.sender.Text Dim txt2 As String = e.Form.Controls("TextBox2").text if txt2.contains("包括") txt2 = txt2.trim("。") & "," & txt1  & "。" else txt2 As String = "包括：" & txt1 & "。" end if e.Form.Controls("TextBox2").text = txt2

当我重启项目时，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

DataTables("目录树过滤")查询的结果会有多行？那么区取哪一行的"过滤条件"？

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

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

那用find，不要使用select：http://www.foxtable.com/webhelp/topics/0396.htm

已解决