[求助]帮忙审查一下代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If Forms("个人信息").opened Then

Dim xdh As Row = e.Table.Current

Dim s As String = "住院治疗情况,主要用药情况,非免疫规划预防接种史,健康评价

For i As Integer = 0 To 3

With DataTables(s.split(",")(i))

.LoadFilter="档案编号='" & xdh("档案编号") & "' and 随访日期=#" & xdh("体检日期") & "#"

.Loadtop=""

.Load()

End With

End If

.NET Framework 版本：2.0.50727.5466

Foxtable 版本：2012.11.29.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 Ol1l10O1)

主题：[求助]帮忙审查一下代码