- 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=24127)
-- 发布时间：2012/10/3 0:17:00
-- 請教錯誤碼
想問這個錯誤代表甚麼?? 我在不同的窗口中打了幾乎相同的代碼, 只是control及table名稱改變了, 但是其中一個窗口卻出現了這個錯誤碼.. >.<
For Each r As Row In Tables("批改作業 - Writing 2 (Document)_Table1").Rows
If r("作業編號") >= 0 Then
r.Checked = True
End If
Next
For Each r As Row In Tables("批改作業 - Writing 2 (Document)_Table1").GetCheckedRows
r.Delete
Next
Tables("作業批改").Current.Delete()
Tables("學生作業").Current("首次批改") = False
e.Form.Close()
此主题相关图片如下：1.png
此主题相关图片如下：1.png-- 发布时间：2012/10/3 11:28:00
--
注意设置窗口的名字。
-- 发布时间：2012/10/3 17:42:00
--
應該是支援空格的, 因為我在另一個form的button也能讀以下的指令：
e.Form.Close()
Dim frm As winform.Form
frm = Forms("批改作業 -Writing2 (Document)")
frm.Open()
不過我把form的名稱換成沒空格的了, 也是不行...
有人能幫我看出其他問題嗎? >.<
-- 发布时间：2012/10/3 17:56:00
--
事件1:
For Each r As Row In Tables("批改作業 - Writing_Table3").Rows
If r("作業編號") >= 0 Then
r.Checked = True
End If
Next
For Each r As Row In Tables("批改作業 - Writing_Table3").GetCheckedRows
r.Delete
Next
Tables("作業批改").Current.Delete()
Tables("學生作業").Current("首次批改") = False
e.Form.Close()
事件2:
For Each r As Row In Tables("批改作業 - Assessment Document_Table3").Rows
If r("作業編號") >= 0 Then
r.Checked = True
End If
Next
For Each r As Row In Tables("批改作業 - Assessment Document_Table3").GetCheckedRows
r.Delete
Next
Tables("作業批改").Current.Delete()
Tables("學生作業").Current("首次批改") = False
e.Form.Close()
為甚麼事件1沒有問題, 事件2就出錯了?