1.
Dim AA4 As String = "201805"
Dim Products As List(Of String)
Products = DataTables("入库记录表").GetValues("入库单号","入库单号 like " & AA4)
2.
Dim aa4 As String = aa2 & aa3
Dim td1 As Integer
With Tables("入库记录表")
Td1 = .Compute("count(入库单号)" ,"入库单号 like '" & aa4 & "' ")
End With
第一个是错的,不知怎么改,
第二个运行的结果不对,就找不到