主题：合并导入，没有实现自动+1

Dim dr As DataRow = DataTables("租金支付基础信息").sqlfind("店铺名称 = '" & e.DataRow("店铺名称") & "' "  , " _identify Desc "  )

改成

Dim dr As DataRow = DataTables("租金支付基础信息").find("店铺名称 = '" & e.DataRow("店铺名称") & "' "  , " _identify Desc "  )

If dr Is Nothing Then dr = DataTables("租金支付基础信息").sqlfind("店铺名称 = '" & e.DataRow("店铺名称") & "' "  , " _identify Desc "  )