Foxtable(狐表)用户栏目专家坐堂 → 請教


  共有8958人关注过本帖树形打印复制链接

主题:請教

美女呀,离线,留言给我吧!
catyin1989
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:165 积分:1647 威望:0 精华:0 注册:2012/9/12 21:46:00
請教  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
muhua
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2012/10/9 8:47:00 [只看该作者]

用户已被锁定

 回到顶部