以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教下这两段代码怎么会出错，谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98628)
--  作者：yangjing
--  发布时间：2017/4/2 22:58:00
--  请教下这两段代码怎么会出错，谢谢

Dim rq As Date = e.Form.Controls("DateTimePicker1").value

With Tables("营养素作图统计表")

    Dim r As date

    r = .Find( "rq" , .RowSel + 1, "日期", False, False, True)

    If r > - 1 Then 

        .Position = r 

    End If

End With
--  作者：wyz20130512
--  发布时间：2017/4/3 9:54:00
--  
Dim d As Date = e.Form.Controls("DateTimePicker1").Value
With Tables("营养素作图统计表")
    Dim dr As DataRow = .DataTable.Find("日期 = #" & d & "#")
    If dr IsNot Nothing Then
        Dim p As Integer = .FindRow(dr)
        If p > -1 Then
            .Position = p
        End If
    End If
End With
[此贴子已经被作者于2017/4/3 10:28:31编辑过]
--  作者：yangjing
--  发布时间：2017/4/4 10:39:00
--  请教下这两段代码怎么会出错，谢谢
谢谢解答