主题：关于固定格式表填充数据

问题一

Dim dr As DataRow = e.DataRow

Dim dt As DataTable =DataTables("部门损益总账")

If e.DataCol.Name = "部门" And dr.IsNull("部门")= False Then

    dr("其他日常营运成本_其他日常营运费用") = dt.Compute("sum(借方发生)", "[部门名称] = '" & dr("部门") & "' and [科目名称] ='其他日常营运费用'")

End If

如果是多列判断要怎么写，如图中，要统计日期和部门同时对应的数据

此主题相关图片如下：1234.png

问题二

另外，上图中前面4列也可以从其他表中填充过来吗，填充代码写在哪里，我把下面这段代码也写在DataColChanged中，一重置列项目就退出

Dim Cols1() As String = {"所属单位","部门类型","日期","部门"}

Dim Cols2() As String = {"所属单位","部门类型","日期","部门"}

For Each dr1 As DataRow In DataTables("B").Select("[部门类型] = '商场'")

    Dim dr2 As DataRow = DataTables("A").AddNew()

    For i As Integer = 0 To Cols1.Length -1

        dr2(Cols2(i)) = dr1(Cols1(i))

    Next

Next

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

点击浏览该文件:管理项目6.foxdb

1. select case : http://www.foxtable.com/help/topics/0224.htm

 
2.写到DataTables("B").的DataColChanged中，B增加一列，A增加一列；B改A跟着改

代码没有问题，应该是事件触发了3次。放出事件完整代码

如果是想一次性初始化多条数据，最好是用按钮或者菜单

DataColChanged适合逐条处理数据