- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 若是"打印_记账"或"打印_现金"列选择了多行，应该怎么改代码？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134246)
-- 发布时间：2019/4/30 18:24:00
-- 若是"打印_记账"或"打印_现金"列选择了多行，应该怎么改代码？
以下代码，只能去除当前行的"出库日期"列和"出库编号"的信息，若是"打印_记账"或"打印_现金"列选择了多行，应该怎么改代码？
Dim r As Row = Tables("仓管表窗口_出库明细表").Current
If r Is Nothing Then Return
If r("打印_记账") = True Then
r("出库日期") = Nothing
r("出库编号") = Nothing
Forms("意和打印窗口").open
ElseIf r("打印_现金") = True Then
r("出库日期") = Nothing
r("出库编号") = Nothing
Forms("现金打印窗口").open
End If
-- 发布时间：2019/4/30 20:17:00
--
for each r As Row in Tables("仓管表窗口_出库明细表").rows
If r("打印_记账") = True Then r("出库日期") = Nothing r("出库编号") = Nothing Forms("意和打印窗口").open ElseIf r("打印_现金") = True Then r("出库日期") = Nothing r("出库编号") = Nothing Forms("现金打印窗口").open End If |
next
-- 发布时间：2019/5/1 1:33:00
-- 回复：（有点蓝）for each r As Row in Tables("...
上传的项目中，“仓管表窗口_出库明细表”区的“打印窗口”控件按钮，作为打印按钮，
先勾选“出库已选_部分”列和“打印_意和”2列，选中3行数据，再点击左侧的“打印窗口”按钮，
此时，若是选择直接关闭窗口，会发现，还会再次弹出打印窗口，直至3次关闭，才能结束，且每次关闭都会删除一行的"出库日期"列和"出库编号"的信息，
问，此时，若是选择直接关闭窗口，不再弹出打印窗口，且不要每次关闭都会删除一行的"出库日期"列和"出库编号"的信息，应该怎么改？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:05010001.rar |
-- 发布时间：2019/5/1 10:26:00
--
求帮助
-- 发布时间：2019/5/1 15:14:00
--
求帮助
-- 发布时间：2019/5/1 20:15:00
-- 回复：（有点蓝）for each r As Row in Tables("...
求帮助
-- 发布时间：2019/5/2 9:31:00
--
求帮助
-- 发布时间：2019/5/2 18:51:00
--
求帮助
-- 发布时间：2019/5/4 8:56:00
--
求帮助
[此贴子已经被作者于2019/5/4 8:56:34编辑过]
-- 发布时间：2019/5/4 9:18:00
--
打印按钮，标记一下是否已经点击打印，如 vars("打印") = true
在你的代码那里，判断，如果打印了，就继续循环，否则，就退出循环，如
For Each r As Row In Tables("仓管表窗口_出库明细表").rows
vars("打印") = False
If r("打印_意和") = True Then
r("出库日期") = Nothing
r("出库编号") = Nothing
Forms("意和打印窗口").open
ElseIf r("打印_统正") = True Then
r("出库日期") = Nothing
r("出库编号") = Nothing
Forms("统正打印窗口").open
ElseIf r("打印_现金") = True Then
r("出库日期") = Nothing
r("出库编号") = Nothing
Forms("现金打印窗口").open
End If
If vars("打印") = False Then
Exit For
End If
Next