以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于新增行定位问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70507)
--  作者：dj68301367
--  发布时间：2015/6/23 14:53:00
--  关于新增行定位问题
如以下代码，窗体有一个新增按钮，点击后，新增行正常
但指针不会指向新增的行。

Dim N As Integer= cint(cstr(Date.Today.year).SubString(2) & Format(Date.Today.month,"00"))
Dim max As String = mtb.Compute("max(入仓单号)")
Dim Vdh As String = "QC-YC"
Dim max1 As String

If max Is Nothing Then
    max1 = Vdh & n & format(1, "000")
Else
    Dim S As Integer =max.SubString(5,4)
    Dim Dsn As Integer
    If S < N Then
        dsn=n
    Else
        dsn=s
    End If
    \'msgbox(max)
    If max = "" Then
        max1 = Vdh & dsn & format(1,  "000")
    Else
        max1 = Vdh & dsn & format(cint(max.SubString(9)) + 1, "000")
    End If
End If
Dim Vdr As DataRow
vdr = mdtb.AddNew()
vdr("入仓单号")=max1
vdr("到货日期")=Date.now
mrcsn=max1
Forms("入仓单编辑").open()
--  作者：大红袍
--  发布时间：2015/6/23 14:55:00
--  

 mdtb 是 DataTable，你想办法弄成 Table

 

 或者新增以后再定位。
--  作者：Bin
--  发布时间：2015/6/23 14:55:00
--  
datatables("XX").addnew 是不会去到对应焦点的

tables("XX").addnew 才会
--  作者：dj68301367
--  发布时间：2015/6/23 15:36:00
--  
mtb.AddNew()
mtb.Current("入仓单号")=max1
mtb.Current("到货日期")=Date.now  

解决了，谢谢。