以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  請教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24241)
--  作者：catyin1989
--  发布时间：2012/10/9 2:04:00
--  請教
想在表中尋找"結束日期"為空的行，但下面的代表出錯了，應該改為甚麼?

If e.Form.Controls("textbox1").Value IsNot Nothing Then

With e.Form.Controls("textbox1")
Dim dr As DataRow
dr = DataTables("學生出席記錄").Find("[學生編號] = \'" & .Value & "\'","課堂日期 Desc", "結束日期 = Nothing")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("學生出席記錄").FindRow(dr)
    If wz >= 0 Then
        Tables("學生出席記錄").Position = wz
    Else 
Messagebox.Show("沒有指定的出席記錄,請重新輸入")
End If
End If
End With
If Tables("學生出席記錄").Current("結束時間") IsNot Nothing Then
Tables("學生出席記錄").Current("結束時間") = Now 
End If
e.Form.Controls("textbox1").Value = " "
End If