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

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

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

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

参考

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

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文件夹删除后再测试一次。