导入Click代码如下

\'R2到货明细表

For Each r1 As Row In Tables("合同到货明细导入_table1").GetCheckedRows  \'R1订货明细表

    Dim r2 As Row = Tables("到货入库_到货明细表").addnew   \'R2到货明细表

r2("单据流水号") = Forms("到货入库").Controls("单据流水号").text

    r2("供方单据单号") = Forms("到货入库").Controls("供方单据单号").text

    r2("合同编号") = Forms("到货入库").Controls("合同编号").text

    r2("品名") = r1("品名")

    r2("型号规格") = r1("型号规格")

    r2("订单号") = r1("订单号")

    r2("工程编号") = r1("工程编号")

    r2("工程名称") = r1("工程名称")

    r2("计量单位") = r1("计量单位")

    r2("订货合同数量") = r1("累计合同数量")

    r2("累计到货数量") = r1("到货数量")

    r2("备注") = r1("备注")

Next

e.Form.Close

PositionChanged代码如下：

Dim t As Table = e.form.controls("到货入库_到货明细表").Table

If t.rows.count >0 Then

    Dim fdr As DataRow = DataTables("订货明细表").Find("品名 = \'" & e.Table.Current("品名") & "\' And 型号规格 = \'" & e.Table.Current("型号规格")   & "\'and 工程编号 = \'" & e.Table.Current ("工程编号")  & "\'and  订单号= \'" & e.Table.Current ("订单号")  & "\'")

    If fdr IsNot Nothing Then

        e.form.Controls("TextBox1").Text = fdr("库存现货数量")

    End If

Else

    e.form.Controls("TextBox1").Text = " "

End If

即导入时PositionChanged代码不起作用，导入后才起作用。