[讨论]新的订单转接代码生效不产生效果 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Result As DialogResult

Result = MessageBox.Show("确定将新的订单提交到设计部?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

Dim dt1 As DataTable = DataTables("订单") '指定数据来源

Dim dt2 As DataTable = DataTables("设计部")'指定数据接受表

Dim drs As List(Of DataRow) = dt1.Select("下单设计 = true")'指定数据条件

If drs.Count > 0 Then

Dim dr As DataRow = dt2.AddNew

dr("订单编号") = drs(0)("订单编号")

systemready = False

For i As Integer = 1 To drs.Count - 1

Dim ndr As DataRow = dt2.AddNew

ndr("订单编号") = drs(i)("订单编号")

systemready = True

DataTables("订单").DeleteFor("下单设计 = true") '删除之前的行

End If

DataTables("设计部").Save()

MessageBox.Show("好了,已经将新的订单转交给了设计部.","提示")

Else

MessageBox.Show("好吧,等你准备好.","提示")

End If

颜色这段高手帮我看下那里出来问题不执行剪切的功能。谢谢！

主题：[讨论]新的订单转接代码 生效不产生效果