以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码调整请教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146527)

--  作者:段虎成
--  发布时间:2020/2/25 18:35:00
--  代码调整请教

老师您好,我在销售报表主窗口设计里设置的加载条件(外部数据表,SQL数据源);

下面的加载条件代码我想调整一下,增加一个加载条件:如果是普通客户,则只能加载自己的订单,即:user.name = "签约人" ,我调试的时候总是出现错误,老师应该怎么调整?谢谢。

 

Dim d1 As Date = e.Form.Controls("DateTimePicker1").Value
Dim d2 As Date = e.Form.Controls("DateTimePicker2").Value

If d1 = Nothing Or d2 = Nothing
    messagebox.show("起始日期或者结束日期不能为空","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Else
    With DataTables("销售报表")
            .LoadFilter = "签单日期 >=\'" & d1 & "\' And 签单日期 <=\'" & d2 & "\'"
            .Load()
    End With
End If


--  作者:sloyy
--  发布时间:2020/2/25 19:43:00
--  
 .LoadFilter = "签单日期 >=\'" & d1 & "\' And 签单日期 <=\'" & d2 & "\' and 签约人=\'" & user.name & "\'"
--  作者:段虎成
--  发布时间:2020/2/26 8:59:00
--  
谢谢老师,我漏掉一个单引号所以调试总是错误图片点击可在新窗口打开查看