想在表中尋找"結束日期"為空的行，但下面的代表出錯了，應該改為甚麼?
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
加好友 
发短信
Post By：2012/10/9 2:04:00 [显示全部帖子]
