- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 同行比对最小值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116809)
-- 发布时间：2018/3/31 16:22:00
-- 同行比对最小值
此主题相关图片如下：360截图20180331161221669.jpg
-- 发布时间：2018/3/31 16:55:00
--
表datacolchanged事件
select case e.datacol.name
case "公司_公司1","公司_公司2","公司_公司3"
Dim min As Integer = e.datarow("公司_公司1")
if e.datarow("公司_公司2") < min then min = e.datarow("公司_公司2")
if e.datarow("公司_公司3") < min then min = e.datarow("公司_公司3")
e.datarow("最小值") = min
end select
-- 发布时间：2018/3/31 17:25:00
--
此主题相关图片如下：360截图20180331162654011.jpg
大神我在请教一个问题 如果我想让最后的（公司名称）也显示最小值的公司 需要怎么做
-- 发布时间：2018/3/31 17:33:00
--
Select Case e.DataCol.name
Case "公司_公司1","公司_公司2","公司_公司3"
Dim min As Integer = e.DataRow("公司_公司1")
Dim name As String = "公司_公司1"
If e.DataRow("公司_公司2") < min Then
min = e.DataRow("公司_公司2")
name = "公司_公司2"
End If
If e.DataRow("公司_公司3") < min Then
min = e.DataRow("公司_公司3")
name = "公司_公司3"
End If
e.DataRow("最小值") = min
e.DataRow("公司名称") = name
End Select