主题：引用数据

 数据库上传上来。

 

 你可以用跨表引用或者跨表统计的方式处理

 

http://www.foxtable.com/webhelp/scr/1451.htm

 

http://www.foxtable.com/webhelp/scr/1454.htm

 

需要修改表结构，加入了一列，你要使用新的数据库文件。

 

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

点击浏览该文件:办公管理云平台 - 副本.zip

 那就根据条件去查找对应的行，然后赋值。条件，查看5楼的datacolchanged事件代码。

 

如果是需要变动的值，就只能用数据列，不能用表达式列。

    Case "baII"
        If e.DataCol.name="baII" AndAlso e.DataRow("baII") = True Then
            Dim nma() As String ={"cgysID","cgdw","dwlb","yssm","pmmc","pmbm","fwmc","fwbm"}
            Dim nmb() As String ={"ysID","bacgdw","dwlb","basm","pmmc","pmbm","fwmc","fwbm"}
            Dim drI As DataRow=DataTables("tblba").AddNew
            For i As Integer =0 To nma.Length-1
                drI(nmb(i))=e.DataRow(nma(i))
            Next
            Dim fdr As DataRow = DataTables("tblba").find("ysID = '" & e.DataRow("cgysID") & "' And 备案序号 = '1'")
            If fdr IsNot Nothing Then
                drI("ysje") = fdr("ysje")
            End If
            drI("备案序号") = 2
            If e.DataRow.IsNull("baII") Then
                e.DataRow("baIIrq")=Nothing
            Else
                e.DataRow("baIIrq")=now
               
            End If
        End If