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

也就是说什么截图excel表的结果和您三天内没有巡查就标注红色的这个问题没有什么关系了。

那么这个“三天内没有巡查就标注红色”的逻辑再问问：

4日15~17日，只要有1天巡查，那么这3天都不标注红色，是这个意思吧？假设15日、20日有巡查，那么这个3天内是指：4日15~17日算一个3天，4日18~20日算另外一个3天呢，只需判断2个3天？还是说4日15~17日算一个3天，4日16~18日也算一个3天，4日17~19日也算一个3天？

老师你理解对的

4日15~17日算一个3天，4日16~18日也算一个3天，4日17~19日也算一个3天？

[此贴子已经被作者于2019/12/6 15:07:46编辑过]

不要拿我问的问题来回答我，没有意义。自己组织语言回答。

或者直接在38楼的实例里截图手工标注一下，哪一个数据应该是标注红色的？

巡查显示

目的是按条件区分

此主题相关图片如下：巡查.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 s As String = ".......xxxx......"

Dim arr() As String = s.Split(";")

If arr.Length <= 30

For i As Integer = 0 To arr.Length - 1

Output.Show(arr(i))

ElseIf arr.Length <= 60

For i As Integer = 0 To arr.Length - 1 Step 2

Output.Show(arr(i))

Else

For i As Integer = 0 To arr.Length - 1 Step 3

Output.Show(arr(i))

End If

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("对方户名")

msgbox(s)

msgbox(dr("客户名称"))

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

msgbox(dr("客户名称")) ‘都提示什么内容？

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

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

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

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

For Each Name As String In Names

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

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

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

主题：获取单元格的列名