主题：提取科目间不重复的值，来设置计算公式

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:科目.foxdb

 

提取科目间不重复的值，来设置计算公式

此主题相关图片如下：qq截图20230712102513.png

 

如何排除重复值，和最后一个科目的不重复值？？？？

原则上小于最后科目的是取前4位，最后科目就是取不重复的

例如：1001至150100030002，就是从1001至1501之前的所有都是取前四位，到了1501这个科目就要取：15010001、1501002、1501003001、1501003002，因为取1501就全部包括了。

 

此主题相关图片如下：qq截图20230712153431.png

此主题相关图片如下：qq截图20230712165837.png

1603是一级科目，统计了一级科目金额，又统计二科目就是重复了，所以只能够统计二级科目

这个应该要分开三个段提取才行，所包括范围前后当前科目要各分一段，因为要视前后科目的长度而定，中间科目直接提取一级科目就行

这个有点难度

此主题相关图片如下：微信截图_20230714100037.png

应该两者结合起来使用会好些

Dim s1 As String = e.Form.Controls("ComboBox1").text
Dim s2 As String = e.Form.Controls("ComboBox2").Text
Dim ss As String = DataTables("表A").SQLGetComboListString("Left(科目,4)", "科目 >'" & s1 & "' and Left(科目," & s1.Length & ") < '" & s2.Substring(0, 4) & "'")

ss = ss & "|" & DataTables("表A").SQLGetComboListString("科目", "科目 >'" & s2.Substring(0, 4) & "' and 科目 <= '" & s2 & "'")

Dim s As String = s2
If ss.Contains(s) = True Then ‘如果不在集合里。(如果在集合里就不需要重复添加了)
ss.Remove(s)
End If

MessageBox.Show(ss)

此主题相关图片如下：qq截图20230714123508.png

移除字符出错了

还是不行，如果科目级数复杂点就不对了

思维有了，现在就是看如何移除了