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

1楼

OO 发表于：2012/1/9 12:06:00

此主题相关图片如下：未命名.jpg

2楼

OO 发表于：2012/1/9 12:27:00

如图示：上面为绑定到入库单，下面TABLE邦定到入库明细

想实现功能：1、入库明细中的“数量”为空时，不能添加货品，若占击添加货品，则提示数量空，并把光标返回空值单元格 2、若入库单的“仓库名称”及“入库类型”为空时，不能保存，点击保存时，提示空值并把光标返回空值处；若入库明细为空时，不能保存，点击保存时，提示没有明细；若明细表中数量列为空值时，不能保存，点击保存时，提示明细中数量为空，并把光标返回空值处。若全都没问题，则明细表及入库表一起保存。

这个我弄了好久，但都弄不成功。对于高手也许是个很简单的轻易易举的事情。请高手帮帮忙，让我们好学习一下。谢谢

3楼

OO 发表于：2012/1/9 12:33:00

请大家帮帮忙！谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

4楼

blackzhu 发表于：2012/1/9 13:06:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

是不是这样的意思?

5楼

狐狸爸爸 发表于：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()

6楼

OO 发表于：2012/1/9 15:03:00

谢谢blackzhu及狐狸爸爸！第1个问题，基本搞掂。但第2个问题还是不行，首先，点击保存时，若明细表中数量为空，要提示数量为空，并提示。另外一个就是，光标能否返回空值处呢？还有
狐狸爸爸的这句Tables("入库明细").Save()这句好象出错哦。

7楼

狐狸爸爸 发表于：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()

8楼

sinlang5778 发表于：2012/1/9 19:18:00

上面窗口的入库单，在一个表上前几列为基本信息通过填充，后几列为入库信息，可以实现吗？

还是必须要用２个表？

共8 条记录, 每页显示 10 条, 页签: [1]