以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  INSERTNEW应用的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17511)
--  作者：pb_1
--  发布时间：2012/3/15 17:32:00
--  INSERTNEW应用的问题

Dim TEMP As String

Dim r As Row

TEMP=e.Form.Controls("Bh").Value.Substring(4,8)
max= Tables("bmk").Compute("Max(BH)","substring(bh,4,8) = " & temp & "" )

dr= Tables("bmk").Compute("Max(BH)","substring(bh,0,12) = " & temp & "" )
If max>"" Then
Tables("bmk").Position=Tables("bmk").findrow(dr) + 1
r=Tables("bmk").InsertNew()
Else
Tables("bmk"). Position=0
r=Tables("bmk").InsertNew()

End If

 

这段代码的意思就是自动编号，以当前编号为条件，查找比它小的编号中最靠近的编号，并且在这个记录后插入一行空白记录。

程序在运行中没有实现行的插入，请问问题出错在哪里？
--  作者：布莱克朱
--  发布时间：2012/3/15 21:34:00
--  

Dim r As Row = Tables("表A").Current
Dim dr As DataRow
dr = DataTables("表A").Find("品牌 =\'" & r("品牌") & "\' And [编号]< " & r("编号"), "编号 Desc")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("表A").FindRow(dr)
    If wz >= 0 Then
        Tables("表A").Position = wz
        Tables("表A").InsertNew()
    End If
End If

 

  你跟着这个代码去修改吧!