以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48622)
--  作者：liruiji
--  发布时间：2014/4/2 12:28:00
--  [求助]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目新区.rar

请大大帮我看看，项目中实现了自动累计功能，如何保证我筛选到的，全是“是否道路”为“真”的项目，

最好是能提供按钮代码，我的版本过低
--  作者：y2287958
--  发布时间：2014/4/2 13:11:00
--  
这个意思？

MessageBox.show("抽选后的套数为: " & DataTables("新区").Compute("sum(套数)","是否道路=true"))
--  作者：liruiji
--  发布时间：2014/4/2 13:25:00
--  
不是，是在抽取前先判断，是否为真，如果是真，纳入选择
--  作者：有点甜
--  发布时间：2014/4/2 13:33:00
--  

改一下，如下代码

 

Dim c As Integer
Dim ilist As new List(of Integer)
Dim drs As List(Of DataRow) = DataTables("表").Select("是否道路 = true")
Do While c < 2000
    Dim i As Integer = Rand.Next(0,drs.count-1)
    If ilist.Contains(drs(i)("_Identify"))=False AndAlso (c+drs(i)("套数"))<2050 Then
        ilist.Add(drs(i)("_Identify"))
        c= c+drs(i)("套数")
    End If
Loop
Dim ids As String
For Each i As Integer In ilist
    ids = ids & "," & i
Next
Tables("新区").Filter="_Identify in (" & ids.trim(",") & ")"
MessageBox.show("抽选后的套数为: " & Tables("新区").Compute("sum(套数)"))
--  作者：liruiji
--  发布时间：2014/4/2 13:34:00
--  

感谢啊，大大