- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89489)
-- 发布时间：2016/8/23 9:57:00
-- [求助]
如何在 订单Table1 中 调用 发货table1里的值
-- 发布时间：2016/8/23 9:58:00
--
查询
http://www.foxtable.com/webhelp/scr/0396.htm
http://www.foxtable.com/webhelp/scr/1451.htm
-- 发布时间：2016/8/23 10:06:00
--
这是啥情况？？？
Dim dele As String = Tables("圆片订单列表_Table1").Current("订单编号")
Dim dr As Row
dr = Tables("圆片送货单列表_Table1").Find("产品编号 = \'dele \'") \'找出编号为03的产品
If dr = dele Then
MessageBox.Show("对不起,已有送货单,无法修改!")
Else
Forms("圆片修改订单编辑").Open
End If
此主题相关图片如下：_}ef3%ds0v2l}t%}c{((9.png
-- 发布时间：2016/8/23 10:17:00
--
Dim dele As String = Tables("圆片订单列表_Table1").Current("订单编号")
Dim dr As DataRow
dr = Tables("圆片送货单列表_Table1").DataTable.Find("产品编号 = \'" & dele & "\'") \'找出编号为03的产品
If dr IsNot Nothing Then
MessageBox.Show("对不起,已有送货单,无法修改!")
Else
Forms("圆片修改订单编辑").Open
End If
[此贴子已经被作者于2016/8/23 10:16:58编辑过]
-- 发布时间：2016/8/23 10:23:00
--
此主题相关图片如下：`c2mp8y}$02rdo6)}5dd.png
}5DD.png)
这是什么情况啊？？？此主题相关图片如下：{ojm3}sp$owpx%yul4@mj09.png
-- 发布时间：2016/8/23 10:27:00
--
你的 圆片送货单列表 窗口必须打开，才会存在表 圆片送货单列表_Table1，否则肯定报错。
-- 发布时间：2016/8/23 10:28:00
--
圆片送货单的窗体如果不打开的情况下 能判断么？？
-- 发布时间：2016/8/23 10:44:00
--
If Forms("圆片送货单列表").Opened then
Dim dele As String = Tables("圆片订单列表_Table1").Current("订单编号")
Dim dr As DataRow
dr = Tables("圆片送货单列表_Table1").DataTable.Find("产品编号 = \'" & dele & "\'") \'找出编号为03的产品
If dr IsNot Nothing Then
MessageBox.Show("对不起,已有送货单,无法修改!")
Else
Forms("圆片修改订单编辑").Open
End If
End If
-- 发布时间：2016/8/23 10:47:00
--
点击 修改订单为什么没有反应啊
-- 发布时间：2016/8/23 10:48:00
--
If Forms("圆片送货单列表").Opened then
Dim dele As String = Tables("圆片订单列表_Table1").Current("订单编号")
Dim dr As DataRow
dr = Tables("圆片送货单列表_Table1").DataTable.Find("产品编号 = \'" & dele & "\'") \'找出编号为03的产品
If dr IsNot Nothing Then
MessageBox.Show("对不起,已有送货单,无法修改!")
Else
Forms("圆片修改订单编辑").Open
End If
Else
MsgBox("圆片送货单列表 窗口没打开")
End If