窗口表事件 第二步
收款通知单_Table1_DataColChanged 这一步未实现
If e.DataCol.name
= "工程fa piao消账码" Then
Dim dr1 As DataRow = DataTables("销项fa piao").Find("工程fa piao消帐码
= '"& e.datarow("工程fa piao消帐码") & "'")
e.DataRow("公司名称") = dr1("fa piao抬头")
e.DataRow("工程名称") = dr1("工程名称")
e.DataRow("领用人") = dr1("领用人")
e.DataRow("fa piao日期") = dr1("fa piao日期")
e.DataRow("fa piao金额") =
DataTables("销项fa piao").compute("sum(价税合计)","工程fa piao消帐码 =
'"& e.datarow("工程fa piao消帐码") & "'")
End If
窗口与控件事件 第一步
收款通知单_AfterLoad 这一步已经实现了
Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("公司名称", Gettype(String),
50)
dtb.AddDef("工程名称",
Gettype(String), 50)
dtb.AddDef("领用人",
Gettype(String), 50)
dtb.AddDef("fa piao日期",
Gettype(Date))
dtb.AddDef("fa piao金额",
Gettype(Double))
dtb.AddDef("收款日期",
Gettype(Date))
dtb.AddDef("收款金额",
Gettype(Double))
dtb.AddDef("未收款",
Gettype(Double))
dtb.AddDef("工程fa piao消帐码",
Gettype(String), 50)
Tables("收款通知单_table1").DataSource
= dtb.BuildDataSource
Dim str As String =
CurrentTable.current("工程fa piao消账码")
Dim r As Row = Tables("收款通知单_table1").addnew
r("工程fa piao消帐码") = str