If e.DataRow("printer") = True And e.DataCol.Name = "printer"  Then

\'-------------------------------------------打印后回写流水表

Dim nma() As String = {"riqi","fs-pjhm","xuehao","xingming","fsjine","zuofei","shoukuanren","xuehao"} \'A表数据来源列

    Dim nmb() As String = {"riqi","pjhm","xuehao","xingming","jine","zuofei","shoukuanren","qianru"} \'B表数据接收列

    Dim dr As DataRow = DataTables("shoufeiliushui").AddNew

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

        dr(nmb(i)) = e.DataRow(nma(i))

Next

Dim nmc() As String = {"riqi","wl-pjhm","xuehao","xingming","wljine","zuofei","shoukuanren","xuehao"} \'A表数据来源列

    Dim nmd() As String = {"riqi","pjhm","xuehao","xingming","jine","zuofei","shoukuanren","qianru"} \'B表数据接收列

    Dim drr As DataRow = DataTables("shoufeiliushui").AddNew

    For j As Integer = 0 To nmc.Length - 1

        drr(nmd(j)) = e.DataRow(nmc(j))

Next

Else If e.DataCol.Name = "zuofei" Then

\'-------------------------------------------作废后回写流水表 

Dim dr As DataRow = DataTables("shoufeiliushui").Find("pjhm = \'" & e.DataRow("fs-pjhm") & "\'")

    dr("zuofei") = e.DataRow("zuofei")

Dim dr2 As DataRow = DataTables("shoufeiliushui").Find("pjhm = \'" & e.DataRow("wl-pjhm") & "\'")

    dr2("zuofei") = e.DataRow("zuofei")

End If

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

点击浏览该文件:学校收费系统foxtable2.table