专家坐堂-甜甜老师，帮看一下IIF函数Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  甜甜老师，帮看一下IIF函数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127213)

--  作者：cyrollin
--  发布时间：2018/11/8 15:12:00
--  甜甜老师，帮看一下IIF函数

Dim dr as datarow
Dim bh As String = dr("编号")
   Dim dr22 As DataRow = e.DataTable.find("编号 = \'" & dr("编号") & "\' and _Identify < " & dr("_Identify"), "_Identify desc")
If dr22 IsNot Nothing Then
dr("次数") = IIF(dr22.isnull("次数"),Nothing,dr22("次数") + 1) \'大多数情况次数能正常+1，有时偶尔会是空白/无任何数值，怎么回事呢？
End If

--  作者：有点甜
--  发布时间：2018/11/8 15:17:00
--

当【次数】的值为空白的时候，你不是赋值为空白了么？

不然你就改成 dr("次数") = dr22("次数") + 1

--  作者：cyrollin
--  发布时间：2018/11/8 15:22:00
--

我想实行的是这样：
有些数据行的次数是空白，如果加载此行时，次数就是空白，
而有些数据行的次数有数值，如果加载此行时，次数就再加1

是不是这句有问题：    Dim dr22 As DataRow = e.DataTable.find("编号 = \'" & dr("编号") & "\' and _Identify < " & dr("_Identify"), "_Identify desc")
因为感觉没找到数据行，所有有时候加载出来的数据行，所有次数都没有数值。

--  作者：有点甜
--  发布时间：2018/11/8 15:26:00
--

实例发上来，说明如何操作后，达到什么样的效果。

--  作者：cyrollin
--  发布时间：2018/11/8 16:28:00
--
在最后一行，如果调出小王，他的次数应该会加1，变成5
如果调出小张，他的次数应该是3
如果调出小李，他的次数为空，没有数值。

谢谢 TIAN
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目1.rar

--  作者：有点甜
--  发布时间：2018/11/8 16:40:00
--

参考

If e.DataCol.Name = "姓名" Then
    Dim dr As DataRow
    dr = DataTables("表B").Find("第一列 = \'" & e.DataRow("姓名") & "\'" )
    If dr IsNot Nothing Then \'如果找到, 则设置各列内容
        systemready = False
        e.DataRow("姓名") = dr("第一列")
        e.DataRow("编号") = dr("第二列")

        Dim bh As String = e.DataRow("编号")
        Dim count = e.DataTable.sqlcompute("count(编号)", "日期 > DateAdd(\'d\', -30, date()) and 编号 = "& bh &" And [_Identify] < " & e.datarow("_Identify"))
        e.DataRow("次数") = count+1


        systemready = True
        DataTables("表A").save
    End If
End If

--  作者：cyrollin
--  发布时间：2018/11/8 17:01:00
--

甜老师，您的代码是依次累计。
而我还是想用 1楼的方法，因为次数可以随意改的，不是依次累计，而是根据编号找到最后一条数据的次数数值，然后再加1或为空。

--  作者：有点甜
--  发布时间：2018/11/8 17:21:00
--

Dim dr22 As DataRow = e.DataTable.find("编号 = \'" & dr("编号") & "\' and _Identify < " & dr("_Identify"), "_Identify desc")

改成

Dim dr22 As DataRow = e.DataTable.find("编号 = \'" & dr("编号") & "\' and _Identify < " & e.datarow("_Identify"), "_Identify desc")

--  作者：cyrollin
--  发布时间：2018/11/8 17:25:00
--
好帅。。。。。。。。。。

--  作者：cyrollin
--  发布时间：2018/11/8 17:26:00
--
还有就是一些代码注释掉了，也还可以执行，为什么呢？是不是要删掉BIN文件夹才行啊？