- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 有没有办法把这次的界面中某些信息记录文本中 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121194)
-- 发布时间：2018/7/1 2:11:00
-- 有没有办法把这次的界面中某些信息记录文本中
老师：
有没有办法在关闭窗口时把这次的界面中某些信息记录文本中以便需要时调用，如某个本文框的值或组合框的值？？谢谢
-- 发布时间：2018/7/1 9:17:00
--
用全局变量来暂存文本框的值
-- 发布时间：2018/7/1 17:17:00
--
如果永久保存。
1、可以用表格保存数据；
2、可以用saveconfigvalue http://www.foxtable.com/webhelp/scr/1544.htm
-- 发布时间：2018/7/4 15:09:00
--
老师我想用文本来记录如图控件的值，如何处理？谢谢
此主题相关图片如下：qq截图20180704150623.png
-- 发布时间：2018/7/4 15:45:00
--
你如果绑定了表列，你输入值以后，就保存到表格里面了啊。
保存后有什么问题？ http://www.foxtable.com/webhelp/scr/2263.htm
-- 发布时间：2018/8/30 17:02:00
--
老师下面代码为什么不能提取相关数据？
保存
Dim pth As String = ProjectPath & "Syscm\\用户设置\\" \'设置保存路径
If FileSys.DirectoryExists(pth) = False Then
FileSys.CreateDirectory(pth)
Else
Dim nms() As String = {"TextBox1","TextBox2","ComboBox1"}
Dim cvs As String = ""
For Each nm As String In nms
cvs &= e.Form.Controls(nm).value & chr(11)
Next
Dim form As String = e.Form.name
Dim dd As String = pth & form & ".txt"
FileSys.WriteAllText(dd, cvs.trim(chr(11)), False, Encoding.Default)
End If
提取
Dim pth As String = ProjectPath & "Syscm\\用户设置\\" \'设置保存路径
If FileSys.DirectoryExists(pth) = False Then
FileSys.CreateDirectory(pth)
Else
Dim form As String = e.Form.Name
Dim dd As String = pth & Form & ".txt"
Dim cvs() As String = FileSys.ReadAllText(dd,Encoding.Default).split(chr(11))
Dim nms() As String = {"TextBox1","TextBox2","ComboBox1"}
If cvs.length = nms.length Then
For i As Integer = 0 To nms.length - 1
e.Form.Controls(nms(i)).value
e.Form.Controls(nms(i)).WriteValue
Next
End If
End If
-- 发布时间：2018/8/30 17:19:00
--
Dim pth As String = ProjectPath & "Syscm\\用户设置\\" \'设置保存路径
If FileSys.DirectoryExists(pth) = False Then
FileSys.CreateDirectory(pth)
Else
Dim form As String = e.Form.Name
Dim dd As String = pth & Form & ".txt"
Dim cvs() As String = FileSys.ReadAllText(dd,Encoding.Default).split(chr(11))
Dim nms() As String = {"TextBox1","TextBox2","ComboBox1"}
If cvs.length = nms.length Then
For i As Integer = 0 To nms.length - 1
e.Form.Controls(nms(i)).value = cvs(i)
e.Form.Controls(nms(i)).WriteValue
Next
End If
End If
-- 发布时间：2019/3/8 21:47:00
--
不绑定到数据表时，不会出错，如果窗口控件绑定到表列时，就出现下面错误提示，但我的需求是：窗口控件绑定到表列，并提取上一次保存时控件的值？
.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,窗口1,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:界面信息.table |
-- 发布时间：2019/3/8 22:20:00
--
代码放到TimerTick事件，最后加一句：e.Form.TimerEnabled = False
启动计时器
-- 发布时间：2019/3/8 23:03:00
--
出错是不出错了，但没有达到效果？？