主题：跨表引用数据

Select Case e.DataCol.Name

    Case "SPDM"

        If e.DataRow.IsNull("SPDM") Then

            e.DataRow("KCSL") = Nothing

        Else

            Dim pr As DataRow = DataTables("SPCKB").Find("spdm='" & e.NewValue & "' and GG1DM='" & e.DataRow("GG1DM") & "' and GG2DM='" & e.DataRow("GG2DM") & "'")

            If pr IsNot Nothing Then

                e.DataRow("KCSL") = pr("SL")

            End If

        End If

End Select