- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 动态数据提取 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193194)
-- 发布时间：2024/8/26 8:30:00
-- 动态数据提取
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。
-- 发布时间：2024/8/26 8:53:00
--
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 |
-- 发布时间：2024/8/26 13:50:00
--
当我重启项目时，TextBox2的数据被清空了，如何让数据得以保留？
-- 发布时间：2024/8/26 13:57:00
--
窗口控件值是无法保留的。要么窗口打开时重新给控件赋值；要么控件绑定表格，把值存入表格中
-- 发布时间：2024/8/26 15:45:00
--
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
-- 发布时间：2024/8/26 15:54:00
--
DataTables("目录树过滤")查询的结果会有多行？那么区取哪一行的"过滤条件"？
-- 发布时间：2024/8/26 15:56:00
--
符合"[表名] = \'工艺内容\' AND [列名] = \'加工人\'"只有一行
-- 发布时间：2024/8/26 15:58:00
--
一般只存在一行，如果存在多行，就选最后一行，代码如何修改？
-- 发布时间：2024/8/26 15:58:00
--
那用find，不要使用select：http://www.foxtable.com/webhelp/topics/0396.htm
-- 发布时间：2024/8/26 16:35:00
--
已解决