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

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

不理解你的意思。你的编号请自己根据你的逻辑去生成。

编码参考啊

http://www.foxtable.com/webhelp/scr/2403.htm

根据自己的逻辑编码啊

不理解你说的意思，请自己先理清上面代码是什么意思，然后自己改成自己所需要的。

加入msgbox弹出各行代码的值看一下，是否符合自己的逻辑。

'意和打印选择表_出库明细表模拟关联表:
Dim t1 As Table = Tables("意和打印窗口_出库明细表")
With Tables("意和打印选择表")
    If .Current Is Nothing Then
        t1.Filter = "False"
    Else
        t1.Filter = "打印_意和 = '" & .Current("打印_意和") & "'"  '整数列与单精列的区别
    End If
End With
t1.OpenView("default")
'打开窗口后,Tables("意和打印窗口_出库明细表")只显示当前选定行.

Dim d As Date
If Tables("意和打印窗口_出库明细表").Rows.Count <> 0 AndAlso  Date.TryParse(Tables("意和打印窗口_出库明细表").Current("出库日期"), d) Then
    d = d.Date
    Dim bh As String = "YH" & Format(d, "yyMMdd")
    Dim max As String
    Dim idx As Integer
    Dim fdr As DataRow = DataTables("意和打印记录表").Find("日期 = #" & d & "#")
    If fdr Is Nothing Then
        fdr = DataTables("意和打印记录表").AddNew
        fdr("日期") = d
        fdr("次数") = 0
    End If
    e.Form.Controls("出库编号").Text = bh & Format(fdr("次数") + 1, "000")
End If

'Tables("意和打印选择表.入库明细表").SetHeaderRowHeight(12)
Tables("意和打印窗口_出库明细表").SetHeaderRowHeight(22,22)

'Tables("意和打印选择表.入库明细表").Sort = "出库日期"

'自动调整行高
Dim t As Table = Tables("意和打印窗口_出库明细表")
t.AutoSizeRows
t.AllowResizeSingleRow = True

'With Tables("意和打印窗口_出库明细表")
'    .Cols("出库数量_过磅").GrandTotal = True
'    .Cols("出库金额_应收").GrandTotal = True
'    .GrandTotal = True
'End With

e.Form.controls("出库日期").text = Date.Now
e.Form.controls("开piao人").text = user.name