主题：关于自定义录入窗口的代码问题

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

窗口如上面所示.

 

其中的Table1 的KeyDown 事件代码如下,为什么会出现新增加的行,但Tables("obas_part_spec").Current("part_no")=tbl.Current("part_no")的代码没起作用呢?请问有那位知道?

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 的表是用动态加载数据的)

没有看明白你的问题，你最好单独做一个简单的例子发上来，然后具体说明你的问题。

我现在知道原因了,是因为这个表从ERP系统引进来的,而那个表没_identify的字段,所以新增的行没能及时显示行号,我只能删了ERP表里的主健再新建立_identify作为主健....