主题：[求助]求助加粗部分哪里错了

    Case "list.htm"

        Dim cmd As new SQLCommand

        cmd.C

        Dim nm = UserName

       MessageBox.show(nm)

        Dim dr3 As DataRow

        Dim kh As String

        dr3 = DataTables("csuser").sqlfind("username = '" & nm &"'",0)

       If dr3 IsNot Nothing Then

        'Dim kh As String

        If kh IsNot Nothing Then

            kh = dr3("客户").SQLGetValue

       MessageBox.show(kh)

        End If

       End If

cmd.CommandText = "S* 区域,收货客户,客户单号及其他 as 单号或料号, GPS号,[要求到货日期],[实际到货日期],异常 from 跟踪表 where 客户 = '" & kh & "'"

Dim flt As String

        If e.PostValues.ContainsKey("danhao") Then

            flt = "客户单号及其他 = '" & e.PostValues("danhao") & "'"

        End If

        If e.PostValues.ContainsKey("startdate") Then

            If flt > "" Then

                flt = flt & " and "

            End If

            flt = flt & "日期 >= '" & e.PostValues("startdate") & "'"

        End If

        If e.PostValues.ContainsKey("enddate") Then

            If flt > "" Then

                flt = flt & " and "

            End If

            flt = flt & "日期 <= '" & e.PostValues("enddate") & "'"

        End If

        If flt > "" Then

            cmd.CommandText = cmd.CommandText & " where " & flt

        End If

        With wb.AddTable("","Table1")

            .CreateFromDataTable(cmd.ExecuteReader)

        End With

        With wb.AddButtonGroup("","btg1",True)

            .Add("btn1", "重新查询", "","filter.htm")

        End With

csuser表结构是

username    password   客户

cs01            111          A

cs02            111          B

cs03            111          C

跟踪表结构：

客户 日期           区域  收货客户   客户单号及其他   要求到货日期   GPS号

A    2018-5-5    SH    jerry       A00004             2018-5-21    XXXXXXX