主题：科目导入

打开凭证窗口，不能打开当前行的凭证？

副本表参考

 

http://www.foxtable.com/help/topics/2631.htm

 

表事件CurrentChanged中加入代码：

If forms("凭证").Opened Then
    Forms("凭证").Controls("TextBox1").Text = e.Table.current("凭证id")
    Dim dr As DataRow = e.Table.Current.DataRow
    Dim wz As Integer = Tables("凭证.凭证明细").FindRow(dr)

messagebox.show(wz)
    If wz >=0 Then
        Tables("凭证.凭证明细").Position = wz
    End If
End If

不能调用其中代码，是因为凭证窗口打开，代码应如何改？

 

在DoubleClick事件中加入代码

If e.Table.name = "凭证"  Then
    Forms("凭证").open()
    Forms("凭证").Controls("TextBox1").Text = e.Table.current("凭证id")
    Tables("凭证.凭证明细").Position = e.Table.current("凭证id")
    Tables("凭证.凭证明细").Select(0,1)
    Tables("凭证.凭证明细").StartEditing
End If

好像行了。

如何在一数据表里面进行汇总，然后按照导出到EXCEL对应相同单位的数据？

 

直接用分组统计，生成分组统计表后，导出成excel

 

生成分组后的统计表如何还可按原先的单位顺序呢？

方法一：手动编写代码统计，这样填充的顺序你可以指定；

 

http://www.foxtable.com/help/topics/0681.htm

 

 

方法二：在单位表那里，加入一列排序列，设置好各个单位的顺序。生成分组表后，查询其位置后，调换。

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("产品", Gettype(String), 32)
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Double))
dtb.Build()
For Each nm As String In DataTables("订单").GetValues("产品")
    Dim dr As DataRow = DataTables("统计").AddNew()
    dr("产品") = nm
    dr("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = '" & dr("产品") & "'")
    dr("金额") = DataTables("订单").Compute("Sum(金额)","[产品] = '" & dr("产品") & "'")
Next
MainTable= Tables("统计")

用这个方法为何不行？

设置一下排序

 

For Each nm As String In DataTables("订单").GetValues("产品","","_Sortkey")