主题：[原创]请高手帮忙分析一下以下语句

If Tables("询价记录_Table1").Cols.Contains("厂商编号") Then

    If Tables("询价记录_Table1").Current IsNot Nothing

        Dim bh=Tables("询价记录_Table1").Current("厂商编号")

        

        If bh >"" Then

            

            Dim b = e.DataRow("厂商编号")

            

            Dim conn As String="ljc_new"

            Dim cmd As New SQLCommand

            cmd.ConnectionName=conn

            cmd.CommandText="select * from m客戶廠商資料 where 編號='" & bh & "' and 旗標='2'"

            Dim dt As DataTable

            Dim dr As DataRow

            dt=cmd.ExecuteReader

            

            

            If dt.DataRows.Count=0 Then

                MessageBox.Show("你所输入的厂商不存在,请重新输入!")

                Return

            End If

            dr = dt.DataRows(0)

            

            Tables("询价记录_Table1").Current("厂商名称")=dr("名稱")

            Tables("询价记录_Table1").Current("币别编号")=dr("付款幣別")

            Tables("询价记录_Table1").Current("询价日期")=Today

        End If

    End If

End If