需求:当选择A字段某个值时,设置B字段的列表值根据A字段的值来判断读取不同的列表值,如当运行省份的值已更改, 运行地区的选择列表将更改。
在脚本编辑器新建一个函数UserFuntion_Bug_ProjectArea,然后编写脚本如下:
Sub UserFuntion_Bug_ProjectArea
Select Case Bug_Fields("BG_USER_15").Value
Case "01.广东"
Bug_Fields("BG_USER_13").List = Lists("广东地区列表")
Case "02.江苏"
Bug_Fields("BG_USER_13").List = Lists("江苏地区列表")
Case "03.浙江"
Bug_Fields("BG_USER_13").List = Lists("浙江地区列表")
Case "04.江西"
Bug_Fields("BG_USER_13").List = Lists("江西地区列表")
Case "05.广西"
Bug_Fields("BG_USER_13").List = Lists("广西地区列表")
Case "06.福建"
Bug_Fields("BG_USER_13").List = Lists("福建地区列表")
Case "07.四川"
Bug_Fields("BG_USER_13").List = Lists("四川地区列表")
Case "08.贵州"
Bug_Fields("BG_USER_13").List = Lists("贵州地区列表")
Case "09.湖北"
Bug_Fields("BG_USER_13").List = Lists("湖北地区列表")
Case "10.湖南"
Bug_Fields("BG_USER_13").List = Lists("湖南地区列表")
Case "11.安徽"
Bug_Fields("BG_USER_13").List = Lists("安徽地区列表")
Case "12.河北"
Bug_Fields("BG_USER_13").List = Lists("河北地区列表")
Case "13.河南"
Bug_Fields("BG_USER_13").List = Lists("河南地区列表")
Case "14.内蒙古"
Bug_Fields("BG_USER_13").List = Lists("内蒙古地区列表")
Case "15.甘肃"
Bug_Fields("BG_USER_13").List = Lists("甘肃地区列表")
Case Else
Bug_Fields("BG_USER_13").List = Lists("甘肃地区列表")
End Select
End Sub
注意:由于该函数需要在缺陷字段发送变化时引用,所以需要在Defects_Bug_FieldChange函数中加入引用:
Sub Defects_Bug_FieldChange(FieldName)
UserFuntion_Bug_ProjectArea
End Sub
以上只是列举其中一个例子和用法, 不详细列举所有用法,希望大家能够举一反三。