主题：窗口变量填充

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table

怎样满足点击（产品目录表的图号列单元格），打开产品工序窗口，点击（产品工序窗口绑定表的加工提示列单元格），打开产品工艺窗口，点击（产品工艺窗口的 ‘工艺确定，准备下单’按钮），打开生产计划窗口，在此窗口录入（订单号，生产单号，计划数量，计划日期），点击（下达生产计划按钮）：

1．生产计划窗口的（订单号、生产单号、计划数量和计划日期）填充到对应计划目录表填充行的对应列。

2．生产计划窗口的（订单号、生产单号、计划数量）填充到对应计划工序表填充行的对应列。

3．生产计划窗口的（订单号、生产单号、计划数量）填充到对应计划工艺表填充行的对应列。

只填充该按钮条件下填充的数据行，现在是填充不重复值，其实我要求是：数据源与接收表对应列还要加上窗口变量一起比较，其中有一个不一样，认为不重复，重复不填充，而不是数据源与接收表之间判断重复。谢谢

没有加窗口变量时，我设置ExcludeExistValue=True/False，还是不能重复填充，要求这时应能重复填充，如加上窗口变量，再判断是否重复。
思路是：
一个产品可能有多个计划，产品基础数据是一样的，只有加上该计划的数据（即现在的窗口变量），才要求判断唯一性。
是不是有一点绕口阿。

其实还要加上判断来源表数据是否有空，如有空，则提示，而不填充，我怕太多坛友看太多要求就不帮我了。
此按钮整个要求在http://datasoft.com.cn/dispbbs.asp?boardid=2&Id=5133

加在哪里？
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

提示错误，您试试好吗，谢谢

我的思路是：
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
你这个是满足哪一个的，是判断还是填充

基础太差，看不懂，帮忙搞一个示范好吗。

填充OK了，谢谢！！！
但是还有一些条件不能满足
如改变窗口变量时，新重新填充，属于新订单，但是以上是修改原订单。
请测试

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.rar

更新

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.rar

请看更新附件，比如先清空3个计划表中数据，再下达一个图号的计划，订单号和计划单号都为101，数量100，日期2009-11-23，在计划3表中能找到刚下的单，紧接着，把订单号改成其他数据，再点按钮，本来属一个新的计划，也应该填充进去，但是结果不对，是把3表的原订单号进行修改成现在的了，原来的订单找不到了，请下载更新附件试试看。谢谢