INSERTNEW应用的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → INSERTNEW应用的问题

共有8078人关注过本帖树形打印复制链接主题：INSERTNEW应用的问题

pb_1

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：74 积分：683 威望：0 精华：0 注册：2011/10/24 19:38:00

INSERTNEW应用的问题 发帖心情

Post By：2012/3/15 17:32:00 [只看该作者]

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

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

程序在运行中没有实现行的插入，请问问题出错在哪里？

布莱克朱

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：623 积分：3897 威望：0 精华：0 注册：2011/8/3 22:13:00

Post By：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

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

下一主题 >> << 上一主题

主题：INSERTNEW应用的问题