以下是引用有点色在2017/4/12 21:15:00的发言:
1、可以直接用addnew
2、如果你执行了save代码,就会保存到sqlserver数据库
你之前写的逻辑判断都不需要去掉。
那再问一下,之前写的一些 datatables().find和 datatables().compute,例如下面的:
Dim phtotle, llsl As Integer
Dim drr As DataRow
drr = DataTables("外星轮类生产汇总表").Find("[生产批号] = '" & e.DataRow("生产批号") &"'")
phtotle = drr("计划生产数量")
llsl = DataTables("外星轮类生产点检记录").Compute("Sum(加工数量)", "生产批号 = '" & e.DataRow("生产批号") & "' And 道序编码 = '005'")
以及类似于这种生成目录树的语句都不需要更改吗?
tb.SourceTable = DataTables("外星轮类毛坯数据表") '指定目录树表
tb.TreeCols = "毛坯生产批号|毛坯炉号" '指定用于生成目录树的列
tb.SourceCols = "毛坯生产批号|毛坯炉号" '指定数据来源列
tb.ReceiveCols = "毛坯生产批号|毛坯炉号" '指定数据接收列
tb.TreeFilter = "[库存状态] = True And " & "[毛坯规格] = '" & mpge & "'"
Tables("外星轮类生产汇总表").Cols("毛坯生产批号").DropTree = tb.Build()
End If
Else
MessageBox.Show("输入的生产批号有误,该项号零件不存在", "提示")
e.Cancel = True
End If