Dim x As Integer = DataTables("进仓单").SQLCompute("Count(_Identify)","进仓单号 = '" & xxxx & "'")If x > 0 then'不新增行Else'执行新增行代码End if