主题：实现“入库单在保存时自动生成会计凭证”

If e.User.Group = "A" Then
   
    Select Case e.DataTableName
        Case "表1","表2","表3","表4","表5"
           
        Case Else
            e.Cancel = True
    End Select
   
ElseIf e.User.Group = "B" Then
   
    Select Case e.DataTableName
        Case "表2","表3","表4","表5","表6","表7","表8"
           
        Case Else
            e.Cancel = True
           
    End Select
   
ElseIf e.User.Group = "C" Then
   
    Select Case e.DataTableName
        Case "表1","表2","表3","表6","表7","表8"
           
        Case Else
            e.Cancel = True
           
    End Select
   
End If

写成循环，即可

Dim t As Table = Tables("表A")
t.Filter = "查询条件"
For i As Integer = 0 To t.rows.count-1
    t.Position = i
    Dim doc As PrintDoc = e.Form.GernatePrintDoc()
    doc.Preview()
Next

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=96147&skin=0

重新绑定 http://www.foxtable.com/webhelp/scr/1909.htm

建议弄两个表，一个原表、一个统计表。显示一个隐藏另一个，相互交替。

DataTables.Unload("表A")

把openQQ登陆按钮的代码，写到你自定义用户的登陆窗口的登陆按钮里面去。

1、先看看

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

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

2、你把登陆的代码，写到afterOpenProject事件，不就好了？

1、你如何锁定行的？用locked？

2、锁定行，你重新打开窗口后，就是不能编辑和删除的。