一、先在项目事件AfterOpenProject中设置如下代码：

Tables("执行").Cols("零件图号").Combolist = DataTables("工序表").GetComboListString("零件图号")

二、在执行表的PrepareEdit事件中输入如下代码：

If e.IsFocusCell Then \'如果是焦点所在单元格

    If e.Col.Name = "工序" Then \'如果正在编辑的是工序列

        \'从工序表提取该图号的工序作为列表项目

        e.Col.Combolist = DataTables("工序表").GetComboListString("工序", "[零件图号] = \'" & e.Row("零件图号") & "\'")

    End If

End If

三、执行表的DataColChanged事件中输入如下代码：

\'如果刚刚输入的是零件图号或工序列

If e.DataCol.Name = "零件图号" OrElse e.DataCol.Name = "工序" Then

    Dim dr As DataRow

    \'在工序表查找所输入零件图号和工序的行

    dr = DataTables("工序表").Find("[零件图号] = \'" & e.DataRow("零件图号") & "\' And [工序] = \'" & e.DataRow("工序") & "\'")

    If dr IsNot Nothing Then \'如果找到

        \'将找到行的单价?工段填入到正在输入的行中.

        e.DataRow("单价") = dr("单价")

        e.DataRow("工段") = dr("工段")

    Else

        \'否则清除单价和工段两列的内容

        e.DataRow("单价") = Nothing

        e.DataRow("工段") = Nothing

    End If

End If