主题：[求助]

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目新区.rar

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

最好是能提供按钮代码，我的版本过低

这个意思？

不是，是在抽取前先判断，是否为真，如果是真，纳入选择

改一下，如下代码

 

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(套数)"))

感谢啊，大大