主题：跨表更新数据

Dim pr As DataRow

Dim kh As String

Dim zd As String

Dim wl As String

Select e.DataCol.Name

    Case "物流公司","客户","重量"

        

        If e.DataRow("物流公司") Is Nothing Then

            e.DataRow("客户") = Nothing '那么清空此行单价列的内容

            e.DataRow("单价") = Nothing

        Else

            Dim dr As DataRow

            Dim zl As Double

            

            If dr IsNot Nothing

                wl=e.DataRow("物流公司")

                zl=e.DataRow("重量")

                kh=e.DataRow("客户")

                If zl>0 And zl<=299

                    zd="j"+cstr(299)

                End If

                

                If zl>=300 And zl<=499

                    zd="j"+cstr(499)

                End If

                If zl>=500 And zl<=999

                    zd="j"+cstr(999)

                End If

                If zl>=10000

                    

                    zd="j"+cstr(999)

                    

                End If

                pr = DataTables("物流价目表").Find("[物流公司]='" & wl & "'and [客户]='" & kh & "'and [价格档次]='" & zd & "'")

                

                e.DataRow("起步费") = pr("起步费")

                e.DataRow("单价") = pr("单价")

            End If

        End If

End Select