教你如何强制用户点击添加注释按钮，添加信息，并且不可删除以前的注释

joshfang

鲜花~~~~

1. '第1步:
   
2. 
   
3. '在workfolw中, 声明下列变量
   
4. 
   
5. Dim blnAddCommentClicked
   
6. Dim strCommentBeforeUpdate
   
7. Dim blnUpdateCommentError:blnUpdateCommentError = False
   
8. Dim changed:changed = false
   
9. 
   
10. '第2步:
    
11. 
    
12. Function Defects_ActionCanExecute(ActionName)
    
13. On Error Resume Next
    
14. If ActionName = "BugAddDevCommentsAction1" Then
    
15. blnAddCommentClicked = True
    
16. End If
    
17. Defects_ActionCanExecute = Project_DefaultRes
    
18. On Error GoTo 0
    
19. End Function
    
20. 
    
21. '第3步:
    
22. 
    
23. Function Defects_Bug_FieldCanChange(FieldName, NewValue)
    
24. On Error Resume Next
    
25. if not changed then
    
26. strCommentBeforeUpdate = Bug_Fields("BG_DEV_COMMENTS").Value
    
27. end if
    
28. If FieldName = "BG_DEV_COMMENTS" and blnAddCommentClicked = False Then
    
29. Msgbox "不能更新注释." & Chr(13)& "无法保存更新."&Chr(13)&" 请通过[添加注释]按钮添加注释."
    
30. blnUpdateCommentError = true
    
31. blnAddCommentClicked = False
    
32. changed = true
    
33. End If
    
34. Defects_Bug_FieldCanChange = Project_DefaultRes
    
35. On Error GoTo 0
    
36. End Function
    
37. 
    
38. '第4步:
    
39. 
    
40. Function Defects_Bug_CanPost
    
41. On Error Resume Next
    
42. If blnUpdateCommentError And Not blnAddCommentClicked Then
    
43. Bug_Fields("BG_DEV_COMMENTS").Value = strCommentBeforeUpdate
    
44. blnUpdateCommentError = False
    
45. End If
    
46. blnAddCommentClicked = False
    
47. changed = false
    
48. Defects_Bug_CanPost = Project_DefaultRes
    
49. On Error GoTo 0
    
50. End Function

复制代码

[ 本帖最后由 joshfang 于 2008-5-27 15:32 编辑 ]

joshfang

where is my flowers?

njalic

这段代码有谁参来解释一下，为什么我复制到TD里会提示 ：Function Defects_ActionCanExecute(ActionName) 这句有错误呢？

testye

收藏了，很有用

橙子

wyhwb

没看懂呢！
谁来解释下哇！

chencg_123

点击Add Comment后再删除，还是可删除的