在网络环境下复杂编号例程中 

If e.name = "编号" Then
    e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "编号.mdb;Persist Security Info=False"
End If

在网络环下红色部分怎么改？

错误提示，帮忙看一下是怎么回事？

.NET Framework 版本：2.0.50727.6400
Foxtable 版本：2013.4.30.1
错误所在事件：表，动物屠宰检疫，BeforeSaveDataRow
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

其实错误提示已经告诉你是哪一个事件出问题，通常你可以用下面的方法找出到底是哪一行代码出错了：

http://www.foxtable.com/help/topics/1485.htm

然后分析原因，你搞不定的话，贴出动物屠宰检疫表的BeforeSaveDataRow事件代码，告诉我哪一行代码出错，我帮你看看。

BeforeSaveDataRow事件代码:

Dim dr As DataRow = e.DataRow
Dim pf As String
If dr.RowState <> DataRowState.Added Then \'如果不是新增行
    Return \'那么返回
ElseIf dr.IsNull("登记日期") Then \'如果没有输入日期
    e.Cancel = True \'取消保存此行
    MessageBox.Show("必须输入登记日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
Else
    pf = Format(dr("登记日期"),"yyyyMMdd") \'否则获得编号的前缀,两位年,两位月
End If
Dim cmd1 As New SQLCommand
Dim cmd2 As New SQLCommand
Dim Key As Integer
cmd1.C \'设置数据源名称
cmd2.C
cmd1.commandText = "Select Count(*) From [编号] Where [前缀] = \'" & pf & "\'"
If cmd1.ExecuteScalar = 0 Then \'如果编号表不存在前缀的行,那么增加一行
    cmd1.commandtext = "Insert Into 编号 (前缀, 顺序号) Values(\'" & pf & "\',1)"
    cmd1.ExecuteNonQuery
End If
cmd1.commandText = "Select [顺序号] From [编号] Where [前缀] = \'" & pf & "\'"
Do
    Key = cmd1.ExecuteScalar() \'从后台获得顺序号
    cmd2.commandText = "Update [编号] Set [顺序号] = " & (Key + 1) & " Where [顺序号] = " & Key & " And [前缀] = \'" & pf & "\'"
    If cmd2.ExecuteNonQuery() > 0 Then \'更新顺序号
        Exit Do \'更新成功则退出循环
    End If
Loop
e.DataRow("编号") = pf & "-" & Format(Key,"0000")

刚才按照例程重做了一遍，保存后仍然显示不存在名为“编号”的数据源。表或项目事件少东西了？

项目事件：

BeforeConnectOuterDataSource

、AfterOpenProject

表事件：

BeforeSaveDataRow

DataRowAdding

用这个方法：

http://www.foxtable.com/help/topics/1485.htm

看看那一行出错，测试的时候，修改一行数据，然后保存。