以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何在表达式中使用随机数函数,或者在每个单元格中使用随机数?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=23748)

--  作者:bojdon
--  发布时间:2012/9/18 17:24:00
--  如何在表达式中使用随机数函数,或者在每个单元格中使用随机数?
昨天的问题没有解决,而且急需这个东西,所以继续请教大家,如何在表达式中使用随机数函数,或者在每个单元格中使用随机数?
--  作者:bojdon
--  发布时间:2012/9/18 17:32:00
--  
以下是引用muhua在2012-9-18 17:28:00的发言:

你主要是想做什么功能,倒不如做个例子上来直接给你解决更好。

就想在每个单元格中用表达式生成一个规定范围内的随机数,然后再用EXCEL模板套连,不然使用同一套模板,出来的随机数都是一样的


--  作者:lin_hailun
--  发布时间:2012/9/18 17:33:00
--  
 好像我昨天回答过了。

 你在模板里需要多少个随机数,就在模板里设置多少个标记。

 然后编写事件代码,在生成细节区的时候,替换掉那些标记。

 这个事件 BuildDetail
--  作者:bojdon
--  发布时间:2012/9/18 17:37:00
--  
以下是引用lin_hailun在2012-9-18 17:33:00的发言:
 好像我昨天回答过了。

 你在模板里需要多少个随机数,就在模板里设置多少个标记。

 然后编写事件代码,在生成细节区的时候,替换掉那些标记。

 这个事件 BuildDetail

是的,第一套模板内的随机数没问题,但是由于使用的同一套模板,所以最后生成的批量表单内的随机数都是一样的。所以,问题还是没有解决。不过还是要多谢你。


--  作者:bojdon
--  发布时间:2012/9/18 17:45:00
--  
以下是引用muhua在2012-9-18 17:35:00的发言:

表达式没有随机数,用代码生成吧,生成之后直接套模版。

那样的话,问题仍然没解决


--  作者:狐狸爸爸
--  发布时间:2012/9/18 17:47:00
--  
在等几天,你的问题就不再是问题了。
--  作者:bojdon
--  发布时间:2012/9/18 17:53:00
--  
好吧。只能等了
--  作者:lin_hailun
--  发布时间:2012/9/18 23:46:00
--  
以下是引用bojdon在2012-9-18 17:37:00的发言:

是的,第一套模板内的随机数没问题,但是由于使用的同一套模板,所以最后生成的批量表单内的随机数都是一样的。所以,问题还是没有解决。不过还是要多谢你。


其实我一直搞不懂的是,什么叫【批量生成】?如果是如下面的代码批量,测试正常。

Dim Book As XLS.Book
    Dim fl As String
    For i As Integer = 1 To 5
    book = New XLS.Book(ProjectPath & "Attachments\\Book1.xls")
    fl = ProjectPath & "Reports\\Book" & i & ".xls"
    Book.Build()
    Book.Save(fl)
Next

--  作者:大师别封我号呀
--  发布时间:2016/10/21 14:46:00
--  
试试看
Dim nst As new List(of Integer)
Dim n1,n2 As Integer

Do While nst.count < 10
    n1=Rand.Next(30, 50)
    If nst.Contains(n1)=False Then
        nst.add(n1)
    End If
Loop


For Each r As Row In Tables("表A").Rows
    r("随机数")= nst(n2)
    n2+=1
Next