主题：对象名 'ProductID' 无效。ProductID为自动增量型主键

  关联子表新增行保存后，出现如下提示：

---------------------------

错误

---------------------------

System.Data.OleDb.OleDbException: 对象名 'ProductID' 无效。

   at System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method)

   at System.Data.OleDb.OleDbCommand.ExecuteNonQuery()

   at Foxtable.SQLCommand.ExecuteNonQuery()

---------------------------

确定  

---------------------------

 

ProductID为主键，自动增量型

 

 

请问是哪里出现了问题？

 

打开时按CTRL,开发者密码888

，详情可以看附件中的示意图片

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

点击浏览该文件:班组端软件.foxdb

此主题相关图片如下：a.jpg

外部SQLserver2000数据库，表Tab_P_Product，结构如下

3 ProductID int 4 0
0 ProductNo nvarchar 30 0
0 ProductName nvarchar 30 0
0 ProductDetail nvarchar 50 1
0 ExchangeNo nvarchar 30 1
0 OrderNo nvarchar 30 1
0 Mount int 4 1
0 BargainingDateTime datetime 8 1
0 CurrDateTime datetime 8 0
0 ProductFlag int 4 1
0 ProductTypeNo nvarchar 20 1
0 _Locked bit 1 1
0 _SortKey numeric 13 1
0 CardIssued bit 1 1

 

---------------------------

提示

---------------------------

无法定向表"_Tab_P_ProductOS，没有找到可用的关键列！

---------------------------

确定  

---------------------------

 

 

BeforeSaveDataRow

Dim dr As DataRow = e.DataRow
Dim pf As String
If dr.RowState <> DataRowState.Added Then '如果不是新增行
    Return '那么返回
Elseif dr.IsNull("CurrDateTime") Then '如果没有输入日期
    e.Cancel = True '取消保存此行
    MessageBox.Show("必须输入日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
Else
    pf = Format(dr("CurrDateTime"),"yyMM") '否则获得编号的前缀,两位年,两位月
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 [_Tab_P_SerialNumbers] Where [Prefix] = '" & pf & "'"
If cmd1.ExecuteScalar = 0 Then '如果编号表不存在前缀的行,那么增加一行
    cmd1.commandtext = "Insert Into _Tab_P_SerialNumbers (Prefix, SequentialNumber) Values('" & pf & "',1)"
    cmd1.ExecuteNonQuery
End If
cmd1.commandText = "Select [SequentialNumber] From [_Tab_P_SerialNumbers] Where [Prefix] = '" & pf & "'"
Do
    Key = cmd1.ExecuteScalar() '从后台获得顺序号
    cmd2.commandText = "Update [ProductID] Set [SequentialNumber] = " & (Key + 1) & " Where [SequentialNumber] = " & Key & " And [Prefix] = '" & pf & "'"
    If cmd2.ExecuteNonQuery() > 0 Then '更新顺序号
        Exit Do '更新成功则退出循环
    End If
Loop
e.DataRow("ProductID") = pf & "-" & Format(Key,"0000")

 

DataRowAdding

'生成临时编号
Static Index As Integer = 9999
e.DataRow("ProductID") = Format(Date.Today(),"yyMM") & "-" & Index
Index = Index - 1

 

 

 

想把数据库表格重定向到ACCESS中，显示

---------------------------

提示

---------------------------

无法定向表"_Tab_P_ProductOS，没有找到可用的关键列！

---------------------------

确定  

---------------------------

 

用SQLSERVER导出方式，转换成ACCESS

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

点击浏览该文件:db1.rar

我试着将Update [ProductID]改为Update [_Tab_P_ProductOS']，现在显示

---------------------------
错误
---------------------------
System.Data.OleDb.OleDbException: 对象名 '_Tab_P_ProductOS' 无效。

   at System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method)

   at System.Data.OleDb.OleDbCommand.ExecuteNonQuery()

   at Foxtable.SQLCommand.ExecuteNonQuery()
---------------------------
确定  
---------------------------

      的确是表名错了，应该是数据库表名，而不是foxtable表名，'符号，是我在回帖的时候粘贴错误，实际到没有用这个'号。

     现在有一个问题：
     BeforeSaveDataRow

     .............
     e.DataRow("ProductID") = pf & Format(Key,"0000")

    这个得到的是字符，而ProductID是整数型，怎样转化为整数型（特意将e.DataRow("ProductID") = pf & "-" & Format(Key,"0000")中的"-" 去掉，以取数字）。

    我用e.DataRow("ProductID") = val(pf & Format(Key,"0000")),测试不行

附件为测试小样及access数据库文件，这样应该可以了吧

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

点击浏览该文件:网络环境下的复杂编号（按时期开发版）.rar