主题：[求助]计划管理代码出错（已解决）

这是appendload的说明：
http://www.foxtable.com/help/topics/2276.htm

 
其中重要说明有两点：
1、必须确保即将追载的行，并不存在于表中，也就是这些行之前并未加载，否则将报错。
2、AppendLoad适合追载少量数据，大量数据一般用Load重新加载。
 
你的问题就出在第一点。 

单独操作可以，是因为你单独的时候，你将新追载的数据用代码设置的接受时间，这样下次就不会追载这些数据了，而你的计划缺少了这关键的一步。

你接收按钮的代码是怎么写的,计划的代码就怎么写.

大概如此,自行调整:

Dim sql As String
Dim drs As List(Of DataRow)
sql = "Seelect Count(*) From {网内通讯的后台名称} Where 接收者 = '" & _UserName & "' Or 接收者 = '" & _UserGroup & "' And 接收时间 Is Null"
Dim cmd As new SQLCommand
cmd.CommandText= sql
cmd.Connection Name = "数据源名称"
Dim cnt As Integer = cmd.ExecuteScalar
If cnt > 0 Then
    Dim btn As RibbonMenu.Button '点击网络短信按钮
    btn = RibbonTabs("系统菜单").Groups("用户").Items("网络短信")
    btn.PerformClick()
End If

只是提供一个思路，可能有些手误，细节你要自己调整：

Dim sql As String
Dim drs As List(Of DataRow)
sql = "Select Count(*) From {网内通讯} Where 接收者 = '" & _UserName & "' Or 接收者 = '" & _UserGroup & "' And 接收时间 Is Null"
Dim cmd As new SQLCommand
cmd.CommandText= sql
cmd.C '外部数据源
Dim cnt As Integer = cmd.ExecuteScalar
If cnt > 0 Then
    Dim btn As RibbonMenu.Button '点击网络短信按钮
    btn = RibbonTabs("系统菜单").Groups("用户").Items("网络短信")
    btn.PerformClick()
End If