以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]帮忙审查一下代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31615)
--  作者：谢天钰
--  发布时间：2013/4/18 0:26:00
--  [求助]帮忙审查一下代码
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
    Next
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)
--  作者：程兴刚
--  发布时间：2013/4/18 0:47:00
--  
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
    Next
End If
--  作者：客家阿哥
--  发布时间：2013/4/18 1:22:00
--  
看了半天，没看出来哪里不同？
--  作者：客家阿哥
--  发布时间：2013/4/18 1:25:00
--  
少了个“”
昏死