1、打开时，产品表已付款为true时，打印可用

2、没有付款的，点了已付款后，打印便可以用了，这个该怎么写呢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1(5).table

打印按钮的代码为：

If Tables("产品表").Current("已付款") = True
    \'你打打印代码
Else
   MessageBox.show("不能打印未付款的记录","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

哦，谢谢！

还想问下，订单表都是已付款时，产品表才能已付款，这个如何遍历呢？

很简单，设置在产品表的DatacolChanging事件中：

If e.DataCol.name  = "已付款" Then
   If e.Newvalue = True Then
        For Each dr As DataRow In e.DataRow.GetChildRows("订单")
            If dr("已付款") = False Then
                e.cancel = True
               Exit For
            End If
        Next
    End If
End If