主题：SQLTable表

此主题相关图片如下：表设计1.png

窗口表事件 第二步

 

收款通知单_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

我按照老师的要求做了,结果没出来,麻烦老师在帮我看下,我自己加了一个打开表的判断,不然老是有一个报错提示

此主题相关图片如下：表设计2.png