有没有办法把这次的界面中某些信息记录文本中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有没有办法把这次的界面中某些信息记录文本中

共有4186人关注过本帖树形打印复制链接主题：有没有办法把这次的界面中某些信息记录文本中

ZJZK2018

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

有没有办法把这次的界面中某些信息记录文本中 发帖心情

Post By：2018/7/1 2:11:00 [只看该作者]

老师：

有没有办法在关闭窗口时把这次的界面中某些信息记录文本中以便需要时调用，如某个本文框的值或组合框的值？？谢谢

刘林

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2018/7/1 9:17:00 [只看该作者]

用全局变量来暂存文本框的值

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/1 17:17:00 [只看该作者]

如果永久保存。

1、可以用表格保存数据；

2、可以用saveconfigvalue http://www.foxtable.com/webhelp/scr/1544.htm

ZJZK2018

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

Post By：2018/7/4 15:09:00 [只看该作者]

老师我想用文本来记录如图控件的值，如何处理？谢谢

此主题相关图片如下：qq截图20180704150623.png

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/4 15:45:00 [只看该作者]

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

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

ZJZK2018

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

Post By：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)

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

End If

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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