 加好友  发短信
等级：MVP荣誉狐
帖子：5154
积分：31434
威望：0
精华：8
注册：2008/9/8 12:27:00
|
 Post By：2009/11/26 10:58:00 [显示全部帖子]
楼主怪怪的啊～ 同一个项目的控件名称在提问时也要变动， 不知为何，难为我等吗？？？"(订单号)" 和 "(订单号:)" 是不同的呀～～～
其实你的原代码只要加上条件就可以了，看清下面黄底的代码，需要什么条件就加上去吧！！！
Dim dd As WinForm.TextBox = Forms("生产计划").Controls("(订单号:)")
'-------------------------------------------
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("图号") & "' and [订单号] = '" & dd.text & "'")
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("图号") & "' and [订单号] = '" & dd.text & "'")
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("图号") & "'and [订单号] = '" & dd.text & "'")
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
for n as integer = 0 to tables("计划工艺").count-1
if tables("计划工艺").rows(n)("图号") = tables("产品目录").current("图号") and tables("计划工艺").rows(n)("订单号")= "" ' 或这样更规范：and tables("计划工艺").rows(n).isnull("订单号")
tables("计划工艺").rows(n)("订单号") = Forms("生产计划").Controls("(订单号:)").text
end if
next
[此贴子已经被作者于2009-11-26 11:25:15编辑过]
|
|
