主题：SQL加载条件

 

下面的条件，怎么样加到SQL里面，

 

目的，根据查询条件（动态的条件），生成一个查询表

 

Dim fit As String
With e.Form.Controls("开始日期DateTimePicker1")
    If .value IsNot Nothing Then
        fit = "[移动日期] >= '" & .value & "'"
    End If
End With
With e.Form.Controls("结束日期DateTimePicker2")
    If .value IsNot Nothing Then
        If fit > "" Then
            fit = fit & " and "
        End If
        fit = fit & "[移动日期] <= '" & .value & "'"
    End If
End With
With e.Form.Controls("人员ComboBox1")
    If .value IsNot Nothing Then
        If fit > "" Then
            fit = fit & " and "
        End If
        fit = fit & "[用户名] = '" & .value & "'"
    End If
End With
With e.Form.Controls("移动类型ComboBox1")
    If .value IsNot Nothing Then
        If fit > "" Then
            fit = fit & " and "
        End If
        fit = fit & "[移动类型] = '" & .value & "'"
    End If
End With
If fit > "" Then
MessageBox.show(fit)
    Dim jb As new SQLJoinTableBuilder("记录导出","库存")
    jb.C
    jb.AddCols("物料编码","物料描述","结存","移动日期","移动单元","移动类型","用户名")
    jb.Filter = " Select 物料编码,物料描述,结存,移动日期,移动单元,移动类型,用户名 FR OM {库存} WHRER  " & fit & " "
    jb.Build
End If

SQLJoinTableBuilder不是这样用的http://www.foxtable.com/help/topics/2314.htm

您好，如果用OuterTableBuilder的话，代码怎么改？

 

SQL相关的，一直没搞懂，请帮忙指点指点，谢谢！

直接写啊

 

Dim  q As new  OuterTableBuilder
 q.TableName = "查询表"
q.TableCaption =  "查询表"
q.SelectString =  "Select 物料编码,物料描述,结存,移动日期,移动单元,移动类型,用户名 FR OM {库存} Where " & fit
q.Build