主题：数据查询

请上传实例测试

 

Dim idxs As String = "-1,"

for each bh as string in DataTables("计划配缸通知单").GetValues("订单明细编号对外")
    Dim drs As List(of DataRow) = DataTables("计划配缸通知单").Select("订单明细编号对外 = '" & bh & "'")
    If drs.count > 0 Then
        Dim tpzl As Double
        Dim jhzl As Double
        For Each dr As DataRow In drs
            tpzl = tpzl + dr("投坯重量")
            jhzl = dr("计划重量")
        Next
        If tpzl/jhzl < 0.96 Then
            idxs &= bh & ","
        End If
    End If
Next
DataTables("计划配缸通知单").loadfilter = "订单明细编号对外 in (" & idxs.trim(",") & ")"
DataTables("计划配缸通知单").load

 

 

这种，是为了生成 数字 类型的条件，最后会得到 -1,2,9,8 之类的数据，作为条件；当没有查到数据的时候，也不至于让数据报错，因为 -1 本身就可以查。

 

你也可以不用-1，最后你判断idxs是不是空值即可。

 

如果是判断字符的，改代码

 

Dim idxs As String = "'',"

for each bh as string in DataTables("计划配缸通知单").GetValues("订单明细编号对外")
    Dim drs As List(of DataRow) = DataTables("计划配缸通知单").Select("订单明细编号对外 = '" & bh & "'")
    If drs.count > 0 Then
        Dim tpzl As Double = 0
        Dim jhzl As Double = 0
        For Each dr As DataRow In drs
            tpzl = tpzl + dr("投坯重量")
            jhzl = dr("计划重量")
        Next
        If tpzl/jhzl < 0.96 Then
            idxs &= "'" & bh & "',"
        End If
    End If
Next
DataTables("计划配缸通知单").loadfilter = "订单明细编号对外 in (" & idxs.trim(",") & ")"
DataTables("计划配缸通知单").load