以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多条记录输入(菜鸟简单问题,但做了好久没解决,请高手指点)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15733)

--  作者:OO
--  发布时间:2012/1/9 12:06:00
--  多条记录输入(菜鸟简单问题,但做了好久没解决,请高手指点)

图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

--  作者:OO
--  发布时间:2012/1/9 12:27:00
--  

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

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

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

 

 


--  作者:OO
--  发布时间:2012/1/9 12:33:00
--  
请大家帮帮忙!谢谢图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table


--  作者:blackzhu
--  发布时间: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()


--  作者:OO
--  发布时间: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()

--  作者:sinlang5778
--  发布时间:2012/1/9 19:18:00
--  

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

还是必须要用2个表?