[求助]如何同代码实现多条件同时判断？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

现在的表格是这样的：

品名规格警戒库存量标准库存量当前库存量补货数量

A A1 10 17 11

A A2 5 12 3

B B1 10 34 30

B B2 20 28 25

C C1 30 46 58

C C2 40 58 17

想要实现：品名相同的产品，任一规格[当前库存量] < [警戒库存量] ，则该品名相同的产品的所有规格都补货至[标准库存量]

比如：

品名规格警戒库存量标准库存量当前库存量补货数量

A A1 10 17 11 6

A A2 5 12 3 9

因为品名A 的规格 A2，当前库存是3，低于警戒库存量5，所有同品名的规格A1、规格A2都补货至标准库存量。

而在品名B 中，因为规格B1、规格B2的当前库存量都高于警戒库存量，所以这两个都不补货。

且在品名C 中，因为规格C2的当前库存量低于警戒库存量，所以规格C1、C2都补货至标准库存量，规格C1的当前库存量又大于标准库存量，所以C1补货数量为0。

比如：

品名规格警戒库存量标准库存量当前库存量补货数量

A A1 10 17 11 6

A A2 5 12 3 9

B B1 10 34 30 0

B B2 20 28 25 0

C C1 30 46 58 0

C C2 40 58 17 41

这个因为用什么办法实现呢？

感谢老师！

[此贴子已经被作者于2017/7/24 18:58:03编辑过]

DataTables("表格").ReplaceFor("补货数量",0)

For Each s As String In DataTables("表格").GetValues("品名")

If DataTables("表格").Find("当前库存量 < 警戒库存量 and 品名='" & s & "'") IsNot Nothing Then

For Each dr As DataRow In DataTables("表格").Select("品名='" & s & "'")

If dr("标准库存量") > dr("当前库存量") Then

dr("补货数量") = dr("标准库存量") - dr("当前库存量")

End If

感谢老师，用老师的方法已经成功实现了

还有一个问题，程序在运行的时候很流畅，但是在保存环节很慢。这个表是外部表，如果用这种方式来保存的话可以吗？原表数据保存回原表？

Dim tran As System.Data.SqlClient.SqlTransaction

try

Dim conn As new System.Data.SqlClient.SqlConnection("*****") '改为自己数据库的连接字符串

conn.Open() '打开链接

tran = conn.BeginTransaction()

Dim mapping1 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("序", "序") '改为自己的列名,有多少列就增加多少个

Dim mapping2 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("编号", "编号")

Dim mapping3 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("名称", "名称")

Dim mapping4 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("规格", "规格")

Dim mapping5 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("单位", "单位")

Dim mapping6 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("数量", "数量")

Dim mapping7 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("仓库", "仓库")

Dim mapping8 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("货位", "货位")

Dim mapping9 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("货位备注", "货位备注")

Dim copy As new System.Data.SqlClient.SqlBulkCopy(conn, System.Data.SqlClient.SqlBulkCopyOptions.Default, tran)

Copy.ColumnMappings.Add(mapping1)

Copy.ColumnMappings.Add(mapping2)

Copy.ColumnMappings.Add(mapping3)

Copy.ColumnMappings.Add(mapping4)

Copy.ColumnMappings.Add(mapping5)

Copy.ColumnMappings.Add(mapping6)

Copy.ColumnMappings.Add(mapping7)

Copy.ColumnMappings.Add(mapping8)

Copy.ColumnMappings.Add(mapping9)

copy.Destinati '指定服务器上目标表的名称

copy.BatchSize = 1000

copy.WriteToServer(DataTables("导入待入库审核").basetable) '你的datatable名字,执行把DataTable中的数据写入DB

tran.Commit() '提交事务

msgbox("导入成功!")

catch ex As exception

msgbox(ex.message)

tran.Rollback() '返回False 执行失败!

试验了一下，提醒cmd.c错误

具体错误贴上来看看

可能是没有连接到正确的数据源。另外不能使用在关联表中

以下是引用magus1123在2017/7/24 23:32:00的发言：
试验了一下，提醒cmd.c错误

1、数据源名没写对；

2、如果是sqlserver数据库，你要把内部函数的#号搞成'号

3、具体的报错，截图上来看看。

主题：[求助]如何同代码实现多条件同时判断？