DropDownClosed:

If e.Selected Then

    Dim ckmx As Table = Tables("出库单.出库明细表")

    Dim tbl As Table = Tables("出库单下拉_Table1")

    If tbl.Current IsNot Nothing Then

        e.Form.DropDownBox.Value = tbl.Current("商品名称")

        ckmx.Current("商品代码") = tbl.Current("商品代码")

        ckmx.Current("型号") = tbl.Current("型号")

        ckmx.Current("单位") = tbl.Current("单位")

        ckmx.Current("类别") = tbl.Current("类别") 

        If e.Form.DropTable IsNot Nothing Then 

            e.Form.DropTable.FinishEditing() 

        Else 

            e.Form.DropDownBox.WriteValue()

        End If     

        \'如果品号不为空则选中数量列，否则重复行取消后也会改变焦点

        If ckmx.Current IsNot Nothing AndAlso ckmx.Current.IsNull("商品名称") = False Then

            ckmx.Select(ckmx.Current.Index, ckmx.Cols("数量").Index) 

        End If 

    End If

End If