多条记录输入（菜鸟简单问题，但做了好久没解决，请高手指点） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多条记录输入（菜鸟简单问题，但做了好久没解决，请高手指点）

共有11265人关注过本帖树形打印复制链接主题：多条记录输入（菜鸟简单问题，但做了好久没解决，请高手指点）

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/1/9 13:10:00 [显示全部帖子]

1、

Dim r As Row = Tables("入库.入库明细").Current
If r IsNot Nothing AndAlso r.IsNull("数量") Then
    messagebox.Show("请输入数量","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("入库.入库明细").Focus()
    Return
End If
Tables("入库.入库明细").AddNew()

2、3：

Tables("入库明细").Save()

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/1/9 15:11:00 [显示全部帖子]

Dim r As Row = Tables("入库").Current
If Tables("入库.入库明细").Count = 0 Then
    messagebox.show("请输入明细","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
ElseIf r.IsNull("仓库名称") OrElse r.IsNull("类型") Then
    messagebox.show("请输入仓库名称和类型","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
Else
    For i As Integer = 0 To Tables("入库.入库明细").Rows.Count -1
        If Tables("入库.入库明细").Rows(i).IsNull("数量") Then
            Tables("入库.入库明细").Position = i
            messagebox.show("请输入数量")
            Return
        End If
    Next
End If
r.save()
DataTables("入库明细").Save()

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

主题：多条记录输入（菜鸟简单问题，但做了好久没解决，请高手指点）