format属于代码,不能再select语句中使用。
Dim s As String
Dim drs As List(Of DataRow) =e.form.controls("Table1").Table.DataTable.Select("")
For Each dr As DataRow In drs
s=""
Dim val = math.Round(dr("采购金额"),2)
Dim dcs As List(Of DataRow) = DataTables("入库单").Select("对来货单号 = False and 试剂 = False and round(采购金额,2)=" & val)