以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  父表与子表同步加载错误提示  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28988)

--  作者:冰31脚
--  发布时间:2013/2/25 11:15:00
--  父表与子表同步加载错误提示

帮看下这段代码有什么问题,参照的是 父表与子表同步加载

 

If DataTables("综管").DataRows.Count = 0 Then \'如果订单表没有数据
    DataTables("执行单").LoadFilter = "申请号 Is Null" \'不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("综管").DataRows
        ids = ids & "," & dr("服务执行单据记录表_申请号")
    Next
    ids= ids.Trim(",")
    DataTables("执行单").LoadFilter = "申请号 In (" & ids & ")"
End If
DataTables("执行单").Load()

 

综管表的关联列是 服务执行单据记录表_申请号

执行单表的关联列是 申请号

 

错误提示

.NET Framework 版本:2.0.50727.5466
Foxtable 版本:2012.11.28.1
错误所在事件:
详细错误信息:
System.Data.OleDb.OleDbException: 至少一个参数没有被指定值。
   在 System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(OleDbHResult hr)
   在 System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult)
   在 System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult)
   在 System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult)
   在 System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method)
   在 System.Data.OleDb.OleDbCommand.ExecuteReader(CommandBehavior behavior)
   在 System.Data.OleDb.OleDbCommand.System.Data.IDbCommand.ExecuteReader(CommandBehavior behavior)
   在 System.Data.Common.DbDataAdapter.FillInternal(DataSet dataset, DataTable[] datatables, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior)
   在 System.Data.Common.DbDataAdapter.Fill(DataTable[] dataTables, Int32 startRecord, Int32 maxRecords, IDbCommand command, CommandBehavior behavior)
   在 System.Data.Common.DbDataAdapter.Fill(DataTable dataTable)
   在 Foxtable.DataTable.Load(Boolean OO000l1l)

 

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下:12.png
图片点击可在新窗口打开查看

 

 


 


--  作者:lin_hailun
--  发布时间:2013/2/25 12:18:00
--  
要么是列名 申请号 不存在数据库的表。

要么是 申请号 是字符串类型,要改一下代码

For Each dr As DataRow In DataTables("综管").DataRows
    ids = ids & "\'" & dr("服务执行单据记录表_申请号") & "\',"
Next