获取单元格的列名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

巡查显示

目的是按条件区分

此主题相关图片如下：巡查.png

然后把结果，根据水库名称记入巡查表的巡查列，有巡查则1，

下载信息 [文件大小：下载次数： ]
点击浏览该文件:巡查.foxdb

[此贴子已经被作者于2019/12/6 16:10:41编辑过]

有一段经纬度数据，数据量太大，能否截取其只的部分数据

28.712363,120.642688;28.712363,120.642688;28.712363,120.642688;28.712363,120.642688;28.712709,120.655162;28.712709,120.655162;28.728051,120.637537;28.711075,120.654829;28.711075,120.654829;28.711075,120.654829;28.728043,120.637518;28.728043,120.637518;28.712363,120.642688;28.712363,120.642688;28.712363,120.642688;28.712363,120.642688;28.712709,120.655162;28.712709,120.655162;28.728051,120.637537;28.711075,120.654829;28.711075,120.654829;28.711075,120.654829;28.728043,120.637518;28.728043,120.637518;28.712363,120.642688;28.712363,120.642688;28.712363,120.642688;28.712363,120.642688;28.712709,120.655162;28.712709,120.655162;28.728051,120.637537;28.711075,120.654829;28.711075,120.654829;28.711075,120.654829;28.728043,120.637518;28.728043,120.637518;28.712363,120.642688;

能否按“；”字符的位置截取

比如

“；”出现30次就取全部数据

“；”出现60次就取2的倍数，只留红色数据

28.712363,120.642688;28.712709,120.655162;28.711075,120.654829;28.728043,120.637518;28.712363,120.642688;28.712709,120.655162;28.711075,120.654829;28.728043,120.637518;28.712363,120.642688;28.712709,120.655162;28.711075,120.654829;28.728043,120.637518;

“；”出现100次以上就取3的倍数，只留蓝色数据

[此贴子已经被作者于2019/12/10 18:28:54编辑过]

Dim Names As String() = {"零余额账户","(零余额账户)"}

For Each Name As String In Names

Dim s As String = dr("对方户名")

dr("客户名称") = s.Replace(Name,"")

红色代码无效，就解

对方户名= "第五小学（本级）" 或 "第六小学（零余额专户）" 或 "第七小学零余额账户" 或 "第八小学(零余额专户)"

想把红色部份去掉，得到数据：第五小学第六小学第七小学第八小学

用下面的代码，感觉无效，因为括号不一样

Dim Names As String() = {"零余额账户","(零余额账户)"，"（本级）"，“（零余额专户）”}

For Each Name As String In Names

Dim s As String = dr("对方户名")

dr("客户名称") = s.Replace(Name,"")

Syscmd.Project.Update(False,False)

升级完毕会有提示重启项目

升级完毕会这样才能自动打开登入窗口

Dim sj As String = zt_SJ

If sj <> "" And sj <> "无" Then

UpdatePath=sj

try '判断是否执行事件

Syscmd.Project.Update(False,False)

'升级后自动打开程序登入窗口'代码无效

'If Syscmd.Project.Update(False,False) = True Then '如果有升级

'End If

catch '暂停所有事件

MessageBox.Show("升级失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

End try

升级后，自动打开登入窗口

Dim frm As WinForm.Form

Dim File As String = ProjectFile

If Syscmd.Project.Update(False,False) = False Then '如果没有升级

If FileSys.FileExists(File) Then '如果文件已经存在

frm.Open(File) '则打开

End If

升级后自动打开登记窗口，好像无效

Dim ifo As new FileInfo("c:\data\123.xls")

Output.Show("文件创建时间:" & ifo.CreationTime)

得到的结果，为什么是 1601-01-01 08：00：00

原因找到，路径问题

[此贴子已经被作者于2020/3/1 11:43:51编辑过]

有一段经纬度数据，怎样生成百度轨迹API，楼主给个思路

想实现轨迹回放一样的功能

[此贴子已经被作者于2020/3/14 21:04:53编辑过]

主题：获取单元格的列名