以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  有没有办法把这次的界面中某些信息记录文本中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121194)

--  作者:ZJZK2018
--  发布时间: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

 


--  作者:ZJZK2018
--  发布时间:2018/7/4 15:09:00
--  
老师我想用文本来记录如图控件的值,如何处理?谢谢


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180704150623.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2018/7/4 15:45:00
--  

你如果绑定了表列,你输入值以后,就保存到表格里面了啊。

 

保存后有什么问题? http://www.foxtable.com/webhelp/scr/2263.htm

 


--  作者:ZJZK2018
--  发布时间: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


--  作者:ZJZK2018
--  发布时间: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
启动计时器

--  作者:ZJZK2018
--  发布时间:2019/3/8 23:03:00
--  
出错是不出错了,但没有达到效果??