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

老师：你好！是否可以禁止点击隐藏窗口按钮

dim frm = forms("窗口1").panel.parent.parent
frm.CanAutoHide = false

老师：你好！请教一下，我有“表1”，“表2”，“表3”，”表4“，"表5"，"表6"，"表7"，"表8"，"表9"，"表10",

用户组""A","B","C".想达到用户组"A"登录时加载“表1”，“表2”，“表3”，”表4“，"表5"

用户组"B"加载表"2”，“表3”，”表4“，"表5"，"表6"，"表7"，"表8"

用户组"C"加载“表4”，“表5”，”表9“,"表10"

我在项目属性BeforeLoadOuterTable写了代码：

Select Case e.DataTableName
    Case "表6"，"表7"，"表8"，"表9"，"表10"

     e.Cancel = (e.User.Group = "A")
     Case “表1”，"表9"，"表10"   

     e.Cancel = (e.User.Group = "B")

  Case “表1”，“表2”，“表3”，"表6"，"表7"，"表8"

     e.Cancel = (e.User.Group = "C")       
End Select

但分别以用户组"A","B","C"登录后发现只有用户组"A"按设想加载了表，而用户组"B","C"没达到我想的加载结果,请老师赐教，怎样才能实现用户组"A"登录时加载“表1”，“表2”，“表3”，”表4“，"表5"

用户组"B"加载表"2”，“表3”，”表4“，"表5"，"表6"，"表7"，"表8"

用户组"C"加载“表4”，“表5”，”表9“,"表10"的结果，谢谢！

　

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

 

老师：你好！请教一下，一个表中三列“数量”，“单价”，“金额”，怎样才能实现当输入“数量”，“单价”列后“金额”自动得出，同时出能在输入“数量”，“金额”列后“单价”出会自动生成

我写了代码：Select Case e.DataCol.Name
    Case "数量","金额"
        If e.DataRow.IsNull("数量") OrElse e.DataRow.IsNull("金额")
            e.DataRow("单价")= Nothing
        Else
            e.DataRow("单价") = e.DataRow("金额") / e.DataRow("数量")
        End If
Case "数量","单价"
        If e.DataRow.IsNull("数量") OrElse e.DataRow.IsNull("单价")
            e.DataRow("金额")= Nothing
        Else
            e.DataRow("金额") = e.DataRow("数量") * e.DataRow("单价")
        End If
       
End Select

但结果出现错误,当数量输入225金额输入625后单价是自动2.78，但金额不是输入的625变成625.5，请老师指导 一下，谢谢