- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 出库窗口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88154)
-- 发布时间：2016/7/27 22:45:00
-- 出库窗口
实例
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:出入库.foxdb |
求助
[此贴子已经被作者于2016/7/27 22:45:10编辑过]
-- 发布时间：2016/7/27 22:46:00
--
图
此主题相关图片如下：微信截图_20160727223215.png
[此贴子已经被作者于2016/7/27 22:45:53编辑过]
-- 发布时间：2016/7/27 22:58:00
--
Dim Cols1() As String = {"材料编号","材料名","规格"}
Dim Cols2() As String = {"材料编号","材料名称","规格"}
Dim t As Table = e.Form.Controls("Table1").Table
For Each r As Row In t.GetCheckedRows
For Each c As String In Cols1
If r.IsNull(c) Then
msgbox(c & " 不能为空")
Return
End If
Next
Next
For Each r As Row In t.GetCheckedRows
Dim dr2 As Row = Tables("材料仓.明细").AddNew() \'数据接收列
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = r(Cols1(i))
Next
Next
-- 发布时间：2016/7/28 7:49:00
--
这个提示 排除 设计成友好的 请输入 领料部门 领料人 的信息 提示
然后避免勿输 必须将材料数据库 移动数量 列 数据清空 还请老师指导
此主题相关图片如下：微信截图_20160728074036.png
此主题相关图片如下：微信截图_20160728074036.png[此贴子已经被作者于2016/7/28 7:48:59编辑过]
-- 发布时间：2016/7/28 9:21:00
--
需要什么提示自己可以改msgbox内容
清空
For Each r As Row In t.GetCheckedRows
Dim dr2 As Row = Tables("材料仓.明细").AddNew() \'数据接收列
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = r(Cols1(i))
Dim dr2 As Row = Tables("材料仓.明细").AddNew() \'数据接收列
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = r(Cols1(i))
dr2("移动数量") = nothing
Next
Next
Next
Next