- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口变量填充 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5140)
-- 发布时间：2009/11/25 19:10:00
-- 窗口变量填充
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
怎样满足点击（产品目录表的图号列单元格），打开产品工序窗口，点击（产品工序窗口绑定表的加工提示列单元格），打开产品工艺窗口，点击（产品工艺窗口的 ‘工艺确定，准备下单’按钮），打开生产计划窗口，在此窗口录入（订单号，生产单号，计划数量，计划日期），点击（下达生产计划按钮）：
1．生产计划窗口的（订单号、生产单号、计划数量和计划日期）填充到对应计划目录表填充行的对应列。
2．生产计划窗口的（订单号、生产单号、计划数量）填充到对应计划工序表填充行的对应列。
3．生产计划窗口的（订单号、生产单号、计划数量）填充到对应计划工艺表填充行的对应列。
-- 发布时间：2009/11/25 20:17:00
--
无条件充填吗？？？？？？
-- 发布时间：2009/11/25 20:26:00
--
只填充该按钮条件下填充的数据行，现在是填充不重复值，其实我要求是：数据源与接收表对应列还要加上窗口变量一起比较，其中有一个不一样，认为不重复，重复不填充，而不是数据源与接收表之间判断重复。谢谢
[此贴子已经被作者于2009-11-25 20:26:24编辑过]
-- 发布时间：2009/11/25 20:32:00
--
没有加窗口变量时，我设置ExcludeExistValue=True/False，还是不能重复填充，要求这时应能重复填充，如加上窗口变量，再判断是否重复。
思路是：
一个产品可能有多个计划，产品基础数据是一样的，只有加上该计划的数据（即现在的窗口变量），才要求判断唯一性。
是不是有一点绕口阿。
[此贴子已经被作者于2009-11-25 20:35:03编辑过]
-- 发布时间：2009/11/25 20:39:00
--
其实还要加上判断来源表数据是否有空，如有空，则提示，而不填充，我怕太多坛友看太多要求就不帮我了。
此按钮整个要求在http://datasoft.com.cn/dispbbs.asp?boardid=2&Id=5133
[此贴子已经被作者于2009-11-25 20:39:33编辑过]
-- 发布时间：2009/11/25 20:43:00
--
这样：？ 其他雷同
for n as integer = 0 to tables("计划工艺").count-1
if tables("计划工艺").rows(n)("图号") = tables("产品目录").current("图号")
tables("计划工艺").rows(n)("订单号") = Forms("生产计划").Controls("(订单号)").text
end if
next
-- 发布时间：2009/11/25 20:53:00
--
加在哪里？
Dim Values As String() = {"(订单号:)","(生产单号:)","(计划数量:)","(计划日期:)"}
For Each Va as string In Values
with e.form
if .Controls(va).value Is Nothing then
MessageBox.Show(va &" 资料不全,请录入!", "提示")
end if
end with
Next
Dim dr As DataRow
dr = DataTables("计划目录").Find("[图号] = \'" & currenttable.current("图号") & "\'")
If dr Is Nothing Then
dim f As New Filler
f.SourceTable = DataTables("产品目录") \'指定数据来源
f.SourceCols = "客户,机型,图号,名称,材料,重量,材料费" \'指定数据来源列
f.DataTable = DataTables("计划目录") \'指定数据接收表
f.DataCols = "客户,机型,图号,名称,材料,重量,材料费" \'指定数据接收列
f.Filter = "[图号] = \'" & currenttable.current("图号") & "\'"
f.Fill() \'填充数据
end if
dr = DataTables("计划工序").Find("[图号] = \'" & currenttable.current("图号") & "\'")
If dr Is Nothing Then
dim f As New Filler
f.SourceTable = DataTables("产品工序") \'指定数据来源
f.SourceCols = "图号,名称,序号,工作中心,加工提示,备注" \'指定数据来源列
f.DataTable = DataTables("计划工序") \'指定数据接收表
f.DataCols = "图号,名称,序号,工作中心,加工提示,备注" \'指定数据接收列
f.Filter = "[图号] = \'" & currenttable.current("图号") & "\'"
f.Fill() \'填充数据
end if
dr = DataTables("计划工艺").Find("[图号] = \'" & currenttable.current("图号") & "\'")
If dr Is Nothing Then
dim f As New Filler
f.SourceTable = DataTables("产品工艺") \'指定数据来源
f.SourceCols = "图号,名称,序号,工作中心,工艺序号,加工内容,准备工时,标准工时" \'指定数据来源列
f.DataTable = DataTables("计划工艺") \'指定数据接收表
f.DataCols = "图号,名称,序号,工作中心,工艺序号,加工内容,准备工时,标准工时" \'指定数据接收列
f.Filter = "[图号] = \'" & currenttable.current("图号") & "\'"
f.Fill() \'填充数据
end if
-- 发布时间：2009/11/25 21:02:00
--
最后面啊~
-- 发布时间：2009/11/25 21:07:00
--
提示错误，您试试好吗，谢谢
-- 发布时间：2009/11/25 21:12:00
--
我的思路是：
1.判断窗口变量数据无空值。（4个值已解决）
2.判断来源表数据和窗口变量对比接收表是否重复。（来源表只取图号列，窗口按接收表对应列取，最多4列。我感觉最难搞）
3.判断来源表数据无空值。（需填充列，有空值，提示，不填充，无空值，填充）
4.填充来源表数据和窗口变量数据。（加上窗口变量，还要带上来源表的状态列条件，不知怎么搞）
for n as integer = 0 to tables("计划工艺").count-1
if tables("计划工艺").rows(n)("图号") = tables("产品目录").current("图号")
tables("计划工艺").rows(n)("订单号") = Forms("生产计划").Controls("(订单号)").text
end if
next
你这个是满足哪一个的，是判断还是填充
[此贴子已经被作者于2009-11-25 21:20:19编辑过]