- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 多条记录输入（菜鸟简单问题，但做了好久没解决，请高手指点） (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=15733)
-- 发布时间：2012/1/9 12:06:00
-- 多条记录输入（菜鸟简单问题，但做了好久没解决，请高手指点）
此主题相关图片如下：未命名.jpg
-- 发布时间：2012/1/9 12:27:00
--
如图示：上面为绑定到入库单，下面TABLE邦定到入库明细
想实现功能：1、入库明细中的“数量”为空时，不能添加货品，若占击添加货品，则提示数量空，并把光标返回空值单元 格 2、若入库单的“仓库名称”及“入库类型”为空时，不能保存，点击保存时，提示空值并把光标返回空值处；若入库明细为空时，不能保存，点击保存时，提示没有明细；若明细表中数量列为空值时，不能保存，点击保存时，提示明细中数量为空，并把光标返回空值处。若全都没问题，则明细表及入库表一起保存。
这个我弄了好久，但都弄不成功。对于高手也许是个很简单的轻易易举的事情。请高手帮帮忙，让我们好学习一下。谢谢
-- 发布时间：2012/1/9 12:33:00
--
请大家帮帮忙！谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
-- 发布时间：2012/1/9 13:06:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.table |
是不是这样的意思?
-- 发布时间：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：
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
End If
r.save()
Tables("入库明细").Save()
-- 发布时间：2012/1/9 15:03:00
--
谢谢blackzhu及狐狸爸爸！第1个问题，基本搞掂。但第2个问题还是不行，首先，点击保存时，若明细表中数量为空，要提示数量为空，并提示。另外一个就是，光标能否返回空值处呢？还有
狐狸爸爸的这句Tables("入库明细").Save()这句好象出错哦。
-- 发布时间：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()
-- 发布时间：2012/1/9 19:18:00
--
上面窗口的入库单，在一个表上前几列为基本信息通过填充，后几列为入库信息，可以实现吗？
还是必须要用２个表？