若是"打印_记账"或"打印_现金"列选择了多行，应该怎么改代码？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下代码，只能去除当前行的"出库日期"列和"出库编号"的信息，若是"打印_记账"或"打印_现金"列选择了多行，应该怎么改代码？

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

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

上传的项目中，“仓管表窗口_出库明细表”区的“打印窗口”控件按钮，作为打印按钮，

先勾选“出库已选_部分”列和“打印_意和”2列，选中3行数据，再点击左侧的“打印窗口”按钮，

此时，若是选择直接关闭窗口，会发现，还会再次弹出打印窗口，直至3次关闭，才能结束，且每次关闭都会删除一行的"出库日期"列和"出库编号"的信息，

问，此时，若是选择直接关闭窗口，不再弹出打印窗口，且不要每次关闭都会删除一行的"出库日期"列和"出库编号"的信息，应该怎么改？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:05010001.rar

求帮助

[此贴子已经被作者于2019/5/4 8:56:34编辑过]

打印按钮，标记一下是否已经点击打印，如 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

主题：若是"打印_记账"或"打印_现金"列选择了多行，应该怎么改代码？