| 以文本方式查看主题 - 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=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 |