类型不匹配:'RandomNumber'

shuishixingyu

ItemCount  = Window("Flight Reservation").Dialog("Flights Table").WinList("From").GetContent   '  取得航班列表的行数
'SelectItem = RandomNumber(0,ItemCount)  '  随机选取其中一项
'Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select  SelectItem   '  选择航班
用描述性标称语言对随机数进行参数化则报错


测试结果中显示：



在关键字视图编辑中则可以正常运行
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select RandomNumber("p_Offset")

是怎么回事呢？

fengmingbao

'Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select  "#"&SelectItem

试一下看看行不行

kou_dou

'Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select  cint(SelectItem)

snake0620

2楼正解

kuailedelanbeik

哦,这就是随即取下拉列表中的某个item

shuishixingyu

显示为

zhuyuancan

ItemCount  = Window("Flight Reservation").Dialog("Flights Table").WinList("From").GetRoproperty("Items count")
SelectItem = RandomNumber(0,ItemCount-1)
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select  cint(SelectItem)

[ 本帖最后由 zhuyuancan 于 2008-10-11 13:23 编辑 ]

shuishixingyu

谢谢zhuyuancan，可以运行了，也谢谢楼上的各位
请问下，我提交的编码是哪里出问题了呢？

zhuyuancan

1.GetContent 方法是返回列表的中的所有内容，而非行数
2.如果正确返回参数，则ItemCount值是字符串，而randonnumber中参数为整数，所以最好用int将返回的数据转换为整型

shuishixingyu

谢谢zhuyuancan，现在明白了