主题：窗口变量填充

将Dim dr As DataRow　改为;Dim dr,dr1,dr2 as datarow 不同的行用不同的变量，DIM F．．．同理，不用的变量用不同的值，如F1,F2,F3试试

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

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

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表的原订单号进行修改成现在的了，原来的订单找不到了，请下载更新附件试试看。谢谢