对不起, 是我上次发贴的时候有点笔误, 在此道歉。
我刚测试通过的, 看看以下的代码:
Sub projectname_ChoiceList(fieldname, choices)
' fieldname As String
' choices As Object
' record type name is Defect
' field name is Projectname
choices.AddItem("a")
choices.AddItem("b")
choices.AddItem("c")
End Sub
Sub catogory_ChoiceList(fieldname, choices)
' fieldname As String
' choices As Object
' record type name is Defect
' field name is catogory
Dim projectname_choice
set projectname_choice = GetFieldValue("Projectname")
value = projectname_choice.GetValue
select case value
case "a"
choices.AddItem("1")
choices.AddItem("2")
choices.AddItem("3")
case "b"
choices.AddItem("4")
choices.AddItem("5")
choices.AddItem("6")
case "c"
choices.AddItem("7")
choices.AddItem("8")
choices.AddItem("9")
end select
End Sub
希望你这次能够成功!!!