主题：求助代码

请教高手，我想在炉次表的日期、设备等列有任何一个为空值时，炉次编号则为空，否则由日期、设备等列组合生成炉次编号，为什么我的代码放在DataColChanged中不能即时更新，需要重置后才能变化。请问此代码放在哪个事件可随相关列的变而改变。

 

在生成炉次编号后，在片号表的炉次片号列如何按炉次编号+两位(01-19)生成19个流水编号，请教代码。

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

点击浏览该文件:项目aa.table

已上传例子，请教如何触发事件完成计算。

不会吧，看上传的文件中炉次表事件

我是每次在炉次表中生成一个炉次编号，则在片号表中自动生成19个炉次片号(炉次编号+01~19)，以前是在易表中用通过填写投入片数后，点击导到每片逻辑列打勾后，用循环的方法生成19个炉次片号的。

foxtable的代码如何完成。谢谢!

看这个填写数据的表。

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

点击浏览该文件:项目aa.table

简化代码

dim drw as datarow=e.datarow
If e.datacol.Name = "日期" or  e.datacol.Name = "设备" or  e.datacol.Name = "作业" or  e.datacol.Name = "波长" or  e.datacol.Name = "衬底" or  e.datacol.Name = "尺寸" or  e.datacol.Name = "工艺" or  e.datacol.Name = "炉次" then
    If drw.IsNull("日期") OrElse drw.IsNull("设备") OrElse drw.IsNull("作业") OrElse drw.IsNull("波长") OrElse drw.IsNull("衬底") OrElse drw.IsNull("尺寸") OrElse drw.IsNull("工艺") OrElse drw.IsNull("炉次") Then
       drw("炉次编号") = Nothing
    Else
       dim m as string
        dim dr as byte=cbyte(format(drw("日期"),"MM"))
        if dr=10 then
           m="X"
         elseif dr=11 then
            m="Y"
         elseif dr=12 then
            m="Z"
         else
            m=right(format(drw("日期"),"MM"),1)
         end if
 
       drw("炉次编号")= drw("设备") & drw("作业") & drw("波长") & drw("衬底") & drw("尺寸") & drw("工艺") & right(format(drw("日期"),"yyy"),1) & m & format(drw("日期"),"dd") & drw("炉次")
    end if
end if
If e.DataCol.Name = "导到每片" Then
    If e.NewValue = True Then
        Tables("炉次.片号").AddNew( CurrentTable.Current("投入片数"))
         for i as integer = 0 to tables("炉次.片号").count-1
            if i < 9
                tables("炉次.片号")(i,"炉次片号") = tables("炉次.片号")(i,"炉次编号") & "0" & i+1
            else
                tables("炉次.片号")(i,"炉次片号") = tables("炉次.片号")(i,"炉次编号") & i+1
            end if
        next
            e.DataRow.Locked = True '那么锁定此行
    End If
End If

谢谢!