- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论]新的订单转接代码 生效不产生效果 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69588)
-- 发布时间：2015/6/7 20:40:00
-- [讨论]新的订单转接代码 生效不产生效果
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)("订单编号")
Next
systemready = True
DataTables("订单").DeleteFor("下单设计 = true") \'删除之前的行
End If
DataTables("设计部").Save()
MessageBox.Show("好了,已经将新的订单转交给了设计部.","提示")
Else
MessageBox.Show("好吧,等你准备好.","提示")
End If
颜色这段 高手帮我看下 那里出来问题 不执行剪切的功能。谢谢！
-- 发布时间：2015/6/7 20:42:00
--
ndr("订单编号") = drs(0)("订单编号")
-- 发布时间：2015/6/7 20:51:00
--
在设计部表格还是没有数据
-- 发布时间：2015/6/7 20:53:00
--
代码没有问题，没有数据，说明，没有符合条件的行；
-- 发布时间：2015/6/7 21:01:00
--
条件存在的
此主题相关图片如下：qq截图20150607210002.png
此主题相关图片如下：qq截图20150607210023.png
[此贴子已经被作者于2015/6/7 21:06:07编辑过]
-- 发布时间：2015/6/7 21:05:00
--
代码没有错，肯定没有对应条件的数据 （下单设计 = true）
-- 发布时间：2015/6/7 21:07:00
--
gif
此主题相关图片如下：ccc.gif
335779866 能远程帮我看看吗 老师
[此贴子已经被作者于2015/6/7 21:08:07编辑过]
-- 发布时间：2015/6/7 21:09:00
--
代码没有任何问题啊，你有执行代码了吗？在哪里执行啊？
-- 发布时间：2015/6/7 21:11:00
--
我是设置的按钮执行的 有执行代码
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)("产品名称")
dr("产品编号") = drs(0)("产品编号")
dr("产品小计") = drs(0)("产品小计")
dr("产品规格_长") = drs(0)("产品规格_长")
dr("产品规格_宽") = drs(0)("产品规格_宽")
dr("产品规格_高") = drs(0)("产品规格_高")
dr("产品规格_单位") = drs(0)("产品规格_单位")
dr("产品规格_数量") = drs(0)("产品规格_数量")
dr("产品备注") = drs(0)("产品备注")
dr("订单编号") = drs(0)("订单编号")
dr("产品类别") = drs(0)("产品类别")
dr("使用区域") = drs(0)("使用区域")
systemready = False
For i As Integer = 1 To drs.Count - 1
Dim ndr As DataRow = dt2.AddNew
ndr("产品类别") = drs(i)("产品类别")
ndr("使用区域") = drs(i)("使用区域")
ndr("产品名称") = drs(i)("产品名称")
ndr("产品编号") = drs(i)("产品编号")
ndr("产品小计") = drs(i)("产品小计")
ndr("XT_日期") = dr("XT_日期")
ndr("产品规格_长") = drs(i)("产品规格_长")
ndr("产品规格_宽") = drs(i)("产品规格_宽")
ndr("产品规格_高") = drs(i)("产品规格_高")
ndr("产品规格_单位") = drs(i)("产品规格_单位")
ndr("产品规格_数量") = drs(i)("产品规格_数量")
ndr("产品备注") = drs(i)("产品备注")
ndr("制造编号") = dr("制造编号")
ndr("订单编号") = drs(i)("订单编号")
Next
systemready = True
DataTables("订单明细").DeleteFor("确认下单 = true")
End If
DataTables("产品制造跟踪").Save()
MessageBox.Show("好了,已经将新的订单转交给了制造部.","提示")
Else
MessageBox.Show("好吧,等你准备好.","提示")
End If
这个是执行的 但是不懂有颜色的地方舍意思，
[此贴子已经被作者于2015/6/7 21:13:03编辑过]
-- 发布时间：2015/6/7 21:20:00
--
那现在你想说什么？
ndr("XT_日期") = dr("XT_日期") 取第一行的日期值
ndr("制造编号") = dr("制造编号")
取第一行的制造编号