以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  最大取值问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180011)

--  作者:wukangppbb
--  发布时间:2022/9/23 10:08:00
--  最大取值问题
老师:
      我想问一下,ReplaceFor这个代码的作用能解释一下吗?

Select Case e.DataCol.Name
    Case "A列","B列"
        If e.DataRow.IsNull("A列") OrElse e.DataRow.IsNull("B列")  Then
        Else
            e.DataTable.ReplaceFor("C列",Nothing,"A列=\'" & e.DataRow("A列") & "\'")
            Dim dr As DataRow = e.DataTable.Find("A列=\'" & e.DataRow("A列") & "\'","B列 desc")
            If dr IsNot Nothing Then
                dr("C列") = "正确"
            End If
        End If
End Select

图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/9/23 10:11:00
--  
http://www.foxtable.com/webhelp/topics/1532.htm
--  作者:wukangppbb
--  发布时间:2022/9/23 10:33:00
--  回复:(有点蓝)http://www.foxtable.com/webhelp/to...

老是:
      这句代码是怎么把最大值找出来的?如果我要把C列  替换成找到的最大值,怎么修改的?

Dim dr As DataRow = e.DataTable.Find("A列=\'" & e.DataRow("A列") & "\'","B列 desc")

--  作者:有点蓝
--  发布时间:2022/9/23 10:43:00
--  
"B列 desc"指的是按B列从大到小排序,那么取第一个查到的结果,就是最大值
--  作者:wukangppbb
--  发布时间:2022/9/23 10:59:00
--  回复:(有点蓝)"B列 desc"指的是按B列从大到小排序,...

如果出现了这种重复值的情况,所有重复的最大值都要标记出来,这个判断要怎么修改的?

图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/9/23 11:00:00
--  
改为使用select查询:http://www.foxtable.com/webhelp/topics/0400.htm