Foxtable(狐表)用户栏目专家坐堂 → sql下拉框怎么写


  共有1783人关注过本帖树形打印复制链接

主题:sql下拉框怎么写

帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
sql下拉框怎么写  发帖心情 Post By:2019/11/11 13:11:00 [只看该作者]

老师,如图我有一个表控件使用SQL代码生产的,我现在想要在单据编号,供应商的下拉框能过滤出表中的数据。列如供应商选中a 过滤出来都是供应商A的数据 请问这个怎么写,SQL小白一枚 刚刚学习中

表控件SQL为:

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SE LEC T fbillno as 单据编号,{t_Supplier}.Fname as 供应商 ,{POOrder}.fdate as 日期 ,{t_Department}.FName as 部门,{t_ICItem}.fname as 物料名称,{t_ICItem}.FModel as 规格型号,{t_MeasureUnit}.fname as 单位 ,{t_Currency}.Fname as 币别,{POOrderEntry}.FQty as 数量,{t_emp}.FName as 业务员, b.fname as 制单人 ,{t_user}.fname as 审核人, {POOrder}.FCheckDate as 审核时间  From (((((((({POOrder} left join {t_Supplier} on {POOrder}.FSupplyID = {t_Supplier}.FItemID) left join {t_Department} on {POOrder}.FDeptID = {t_Department}.FItemID) inner join {POOrderEntry} on {POOrder}.FInterID = {POOrderEntry}.FInterID) inner join {t_ICItem} on {POOrderEntry}.FItemID = {t_ICItem}.FItemID) inner join {t_MeasureUnit} on {t_ICItem}.FUnitID = {t_MeasureUnit}.FMeasureUnitID) inner join {t_emp} on {POOrder}.FEmpID = {t_emp}.fitemid) inner join {t_Currency} on {POOrder}.FCurrencyID = {t_Currency}.FCurrencyID) left join {t_User} on {POOrder}.fcheckerid = {t_User}.FUserID) left join {t_User} b on {POOrder} .FBillerID = b .FUserID  "
dt = cmd.ExecuteReader()
Tables("窗口1_Table1").DataSource = dt
Tables("窗口1_Table1").DataTable.DataCols("数量").Decimals = 1
Tables("窗口1_Table1").DataTable.DataCols("数量").SetFormat("0.0")
Tables("窗口1_Table1").AutoSizeCols() '自动列宽


图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20191111130512.png
图片点击可在新窗口打开查看



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/11 13:36:00 [只看该作者]

查询按钮用法参考:http://www.foxtable.com/webhelp/topics/1058.htm

Dim Filter As String
With
 e.Form.Controls("供应商")
    
If .Value IsNot Nothing Then
        Filter = 
"供应商 = '" & .Value & "'"
    
End If
End
 With
If Filter > "" Then
    Tables(
"窗口1_Table1").Filter = Filter
End If
[此贴子已经被作者于2019/11/11 13:37:11编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
  发帖心情 Post By:2019/11/11 16:15:00 [只看该作者]

老师,可以了,我还有一个问题,如图,列如怎么样可以做到在供应商组合框中输入“北”字,就自动过滤出供应商名中有“北”的供应商名称

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20191111161058.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/11 16:16:00 [只看该作者]


 回到顶部