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


  共有4244人关注过本帖树形打印复制链接

主题:有没有办法把这次的界面中某些信息记录文本中

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部