- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助按分数区间调用某列的内容的公式 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161527)
-- 发布时间：2021/3/20 18:49:00
-- 求助按分数区间调用某列的内容的公式
根据设定的分数区间来引用“院校投档表”中“院校名称A”列的内容，在此区间的被调用，不在此区间的，不被调用。这里的公式如何来写？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:2021年8省联考院校定位表.table |
谢谢老师！
-- 发布时间：2021/3/21 21:12:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:2021年8省联考院校定位表.zip |
-- 发布时间：2021/3/22 9:33:00
--
谢谢老师！一楼我没有表达清楚，根据设定的分数区间、根据文理分科、根据省份，来引用“院校投档表”中“院校名称A”列的内容。并且我在“统计表”是同时设定的高分与低分列，这个高分与低分列是设定的分数区间。老师您再给看下。这个公式如何写。万分感谢！！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新修改2021年8省联考院校定位表.rar |
-- 发布时间：2021/3/22 9:38:00
--
自己加上文理分科、根据省份做条件即可
-- 发布时间：2021/3/22 9:45:00
--
不好意思老师。怎么加？没弄懂。高分与低分放到了统计表中。已经不在原来的表中了。这个如何表达？
[此贴子已经被作者于2021/3/22 9:54:14编辑过]
-- 发布时间：2021/3/22 9:56:00
--
比如一个条件
Dim Filter As String = "[品名] = \'" & e.DataRow("品名") & "\'"
Dim drs As List(Of DataRow) = DataTables("订单").Select(Filter)
Dim drs As List(Of DataRow) = DataTables("订单").Select(Filter)
两个条件：
Dim Filter As String = "[品名] = \'" & e.DataRow("品名") & "\' And 已付款 = False"
DataTables("订单").ReplaceFor("单价", e.NewValue, Filter)
DataTables("订单").ReplaceFor("单价", e.NewValue, Filter)
更多条件：
filter = "品名 = \'" & dr("品名") & "\' And 型号 = \'" & dr("型号") & "\' And 规格 = \'" & dr("规格") & "\'"
pr = DataTables("产品").Find(filter)
pr = DataTables("产品").Find(filter)
-- 发布时间：2021/3/22 11:20:00
--
没写对，老师帮忙写一下吧。谢谢！（三楼的文件与一楼的文件有些区别）
[此贴子已经被作者于2021/3/22 11:20:38编辑过]
-- 发布时间：2021/3/22 11:30:00
--
写了什么代码发上来看看
-- 发布时间：2021/3/22 13:26:00
--
If e.DataCol.Name = "分数区间"
If e.DataRow.IsNull("分数区间") Then
e.DataRow("定位院校") = Nothing
Else
Dim ar() As String =
e.DataRow("分数区间").split("-")
If ar.Length =2
e.DataRow("定位院校") = DataTables("院校投档表").GetComboListString("院校名称A","低分 >= " &
val(ar(1)) & " and 高分 <= " & val(ar(0))
).replace("|","")
Else
Dim filter As String = "文理分科 = \'" & dr("文理分科") & "\' and 录取年度 = \'"
& dr("录取年度") & "\' and 省份 = \'" &
dr("省份") &
"\'"
pr = DataTables("院校投档表").Find(filter)
e.DataRow("定位院校") = Nothing
End If
End If
End
If
没搞懂。
-- 发布时间：2021/3/22 14:16:00
--
《Foxtable编程》这章内容还是花时间好好看看吧
Select Case e.DataCol.Name
Case "高分","低分","省份","文理分科","录取年度"
If e.DataRow.Isnull("高分") OrElse e.DataRow.Isnull("低分") Then
e.DataRow("定位院校") = Nothing
Else
Dim dr As DataRow = e.DataRow
Dim filter As String = "文理分科 = \'" & dr("文理分科") & "\' and 录取年度 = \'" & dr("录取年度") & "\' and 省份 = \'" & dr("省份") & "\' and 最低分 >= " & dr("低分") & " and 最低分 <= " & dr("高分")
e.DataRow("定位院校") = DataTables("院校投档表").GetComboListString("院校名称A",filter )
End If
End Select