主题：甜甜老师，帮看一下IIF函数

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

 

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

有些数据行的次数是空白， 如果加载此行时，次数就是空白， 

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

在最后一行，如果调出小王， 他的次数应该会加1，变成5

参考

 

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

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

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")

  好帅。。。。。。。。。。

还有就是一些代码注释掉了，也还可以执行，为什么呢？是不是要删掉BIN文件夹才行啊？