此主题相关图片如下：15.jpg

窗口如上面所示.

Dim tbl As Table = Tables("自动录入_Table1")
If e.KeyCode = Keys.Enter Then
    If Tables("自动录入_Table1").Current IsNot Nothing Then
        If e.Control = True
            For Each dr1 As DataRow In DataTables("授权表").Select("用户名 = \'" & Vars("_UserName") & "\'" )
                If dr1("表名") =Tables("obas_part_spec").Name AndAlso dr1("不可增加")=False Then
                    For Each r1 As Row In Tables("自动录入_Table1").GetCheckedRows
                        Dim r2 As Row  = Tables("obas_part_spec").AddNew()
                        r2("part_no") = r1("part_no")
                        \'r2("料品名称") = r1("料品名称")
                        \'r2("料品规格") = r1("料品规格")
                        \'r2("料品归类") = r1("料品归类")
                        \'r2("库存单位") = r1("库存单位")
                       
                    Next
                   
                End If
            Next
        Else
            Dim r2 As Row  = Tables("obas_part_spec").AddNew()
            r2("part_no") = tbl.Current("part_no")
            Tables("obas_part_spec").Current("part_no")=tbl.Current("part_no")
           
           
        End If
    End If
    Forms("自动录入").Close()
End If

我现在发现可能原因是用Tables("obas_part_spec").AddNew()新增的行没显示行号的原因,所以新增行的代码没问题,问题是将表中的当前行某字段的值等于什么的时候就没效.而如果用DataTables的新增行就可以,但是它没将光标定位到新增的行上.请问如果我要用Tables的新增加行有能引用到值,要如何做呢?

   (说明:obas_part_spec 的表是用动态加载数据的)