主题：[求助]短信猫多用户使用的问题

做个计划，定期10秒钟执行一次：

Dim dt As DataTable = DataTables("xxx")
If dt.DataRows.Count = 0 Then
    dt.LoadFilter = "已发送 = False Or 已发送 Is Null"
    dt.Load()
    For Each dr As DataRow In dt.DataRows
        '发送信息
        dr("已发送") = True
    Next
    dt.Save()
    dt.RemoveFor("True")
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:怎么加载待发送的信息.rar