| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 将窗口表导出为文本 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=170143) |
| -- 作者：czy66ds -- 发布时间：2021/7/13 15:33:00 -- 将窗口表导出为文本 在窗口中，放置一个按钮，执行命令Syscmd.Project.ImportFromText() 希望将窗口表导出为文本，如何才能成功导出？
|
| -- 作者：有点蓝 -- 发布时间：2021/7/13 15:41:00 -- 表格导出txt参考，下面改为从窗口表取数据即可 Dim s As String For Each dc As DataCol In DataTables("表A").DataCols s = s & vbtab & dc.Name Next s = s.TrimStart(vbtab) FileSys.WriteAllText("D:\\问题\\表A.txt",s & vbcrlf,False) For Each dr As DataRow In DataTables("表A").DataRows s = "" For Each dc As DataCol In DataTables("表A").DataCols If s > "" Then s = s & vbtab If dr.IsNull(dc.Name) = False Then s = s & dr(dc.Name) End If Next FileSys.WriteAllText("D:\\问题\\表A.txt",s & vbcrlf ,True) Next |
| -- 作者：czy66ds -- 发布时间：2021/7/13 15:44:00 -- 谢谢， 可选分隔符吗？我希望用逗号分隔
|
| -- 作者：有点蓝 -- 发布时间：2021/7/13 15:54:00 -- vbtab改为逗号即可 |