主题：代码增加列出现错误

Dim t As Table=Tables(e.form.Name & "_table1")

t.fill("Select [_Identify],[出库单编号],[领用部门] From {出库}","",False)

t.DataTable.DataCols.Add("公鸡",Gettype(Integer))

t.DataTable.DataCols.Add("母鸡",Gettype(Integer))

For Each da As DataRow In t.DataTable.DataRows

    Dim dr As DataRow

    dr=DataTables("出库").Find("出库单编号='" & da("出库单编号") & "' and 领用部门='" & da("领用部门") & "'")

    If dr IsNot Nothing Then

        da("公鸡")=dr("数量")

        da("母鸡")=dr("金额")

    End If

Next

可以这样做,但是只能显示不可以保存的.因为是临时列.