- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]新建记事本名等于当前行第一列的值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186476)
-- 发布时间：2023/5/6 9:34:00
-- [求助]新建记事本名等于当前行第一列的值
[求助]新建记事本名等于当前行第一列的值，记事本录入当前单元格的字符
Dim s As String = CurrentTable.value
Dim str As String = "D:\\" & Tables("表A").Current("第一列") & ".txt"
If FileSys.DirectoryExists(str) = False Then
FileSys.WriteAllText("D:\\记事本名等于表A的第一列值.txt", s, False)
End If
例如当前位置在表A的第一行的第二列（物资部）
第一列 第二列
第一行 记账 物资部
求助，生成
1、 记账.txt
2、 记账.txt 记事本里录入 物资部
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:1.foxdb |
狐表不能升级，高版本打不开，代码辛苦贴出来，感谢
[此贴子已经被作者于2023/5/6 9:37:57编辑过]
-- 发布时间：2023/5/6 9:40:00
--
这些都是最基础的功能，多看看帮助吧http://www.foxtable.com/webhelp/topics/1592.htm
2、FileSys.WriteAllText(str, Tables("表A").Current("第二列"), False)