主题：没学会也买开发版

一、先在项目事件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