我有两个drop-down list box，
当第一个选择a时，第二个设置为c和d.
当第一个选择b时，第二个设置为e和f.
如何对第二个drop-down list box动态设置？？？

用哪个函数可以实现？？SetFieldChoiceList？

问题已经解决 [打开主题]

本主题的最佳答案为 [ 2 楼].

参考这个帖子：
http://bbs.scmlife.com/viewthread.php?tid=3619

最佳答案

该回答被楼主/管理员列为正解!

Sub project_name_ChoiceList(fieldname, choices)
  ' fieldname As String
  ' choices As Object
  ' record type name is UIS
  ' field name is project_name
  Dim product_name

  product_name = GetFieldValue("product_name").GetValue()
Msgbox "1"

  if product_name = "7130" then
Msgbox "2"
     choices.AddItem("Software")
     choices.AddItem("Hardware")
  end if

End Sub

yunshan : product_name 为7130时，设置project_name为sw,hw.
当我选择7130时，Msgbox 2 没有出来？怎么回事啊？？

当一点submit这个纪录的时候，msgbox 1就出来了，这个choicelist在什么时候运行的？？

[ 本帖最后由 劳动者 于 2007-8-31 17:09 编辑 ]

你在product_name的value change上加上，
SetFieldValue "Project_name", ""

Sub project_name_ChoiceList(fieldname, choices)
  ' fieldname As String
  ' choices As Object
  ' record type name is UIS
  ' field name is project_name

  Dim product_name

  product_name = GetFieldValue("product_name").GetValue()
Msgbox "1"

  if product_name = "7130" then
Msgbox "2"
     choices.additem Software
rem     choices.additem("Firmware")
rem     choices.additem("Hardware")
  else
Msgbox "3"
  end if

End Sub

Sub product_name_ValueChanged(fieldname)
  ' fieldname As String
  ' record type name is UIS
  ' field name is product_name
  
  SetFieldValue "project_name", ""

End Sub


当我选择7130后，出了box1和box3,就是没有2。感觉没有进入if里面。

[ 本帖最后由 劳动者 于 2007-8-31 17:30 编辑 ]

你可以把Msgbox "1"改成
Msgbox "1" & product_name
看看这个product_name是否真是7130

而且，你这句写的也是有问题的，
choices.additem Software

改成这样都不行。
Msgbox "1 &product_name"
Msgbox "1" &product_name
choices.additem("Software")

显示的product_name是多少啊，我觉的你的过程还有问题。

没有值现示 啊！！！

奇怪！我用3楼 的代码，现在又可以了。鬼来了吗？