Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

美女呀,离线,留言给我吧!
susanhe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:312 积分:2477 威望:0 精华:0 注册:2018/11/22 20:30:00
[求助]  发帖心情 Post By:2019/8/25 10:43:00 [只看该作者]

 

 

老师,你好! 以下代码是从SQL 数据库中下载所有的资料,但是一下载又太多了,可不可以针对以下黄色的帮忙加个条件,这个条件是根据当前窗口表中所选的生产任务单号作为条件,如图。只下载所选单号的记录呢。谢谢。

 

Dim cmd As New SQLCommand
Dim dte As DataTable
DataTables("生产投料单").datarows.clear
cmd.C
Dim Cols1s() As String = {"FBillNo","FNumber","FName","FName1","FAuxQtyPick"}
Dim Cols2s() As String = {"生产任务单号","物料代码","物料名称","单位","应发数量"}


cmd.CommandText = "Sel ect  {ICMO}.FBillNo,{PPBOM}.FBillNo,{PPBOM}.FStatus,FAuxQtyPick,{t_Item}.*,{t_UnitGroup}.FName From (((({PPBOMEntry} Inner JOIN {PPBOM} ON {PPBOM}.[FInterID] = {PPBOMEntry}.[FInterID]) Inner JOIN {t_Item} ON {t_Item}.[FItemID] = {PPBOMEntry}.[FItemID]) Inner JOIN {ICMO} ON {ICMO}.[FInterID] = {PPBOM}.[FICMOInterID]) Inner JOIN {t_ICItemBase} ON {t_ICItemBase}.[FItemID] = {t_Item}.[FItemID]) Inner JOIN {t_UnitGroup} ON {t_UnitGroup}.[FUnitGroupID] = {t_ICItemBase}.[FUnitGroupID] Where {PPBOM}.[fstatus] <> 1"

dte = cmd.ExecuteReader()
For Each dr1 As DataRow In dte.DataRows
    Dim dr2 As DataRow = DataTables("生产投料单").AddNew()
    For i As Integer = 0 To Cols1s.Length -1
        dr2(Cols2s(i)) = dr1(Cols1s(i))
      

    Next
Next


Tables("生产投料单").ResumeRedraw()
DataTables.save


此主题相关图片如下:捕获.jpg
按此在新窗口浏览图片

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim ids As String = ""
    For Each 
dr As Row In Tables("订单").Rows
        
ids = ids & ",'" & dr("生产任务单号") & "'"
    Next
    
idsids.Trim(",")

cmd.CommandText = "Sel ect  {ICMO}.FBillNo,{PPBOM}.FBillNo,{PPBOM}.FStatus,FAuxQtyPick,{t_Item}.*,{t_UnitGroup}.FName From (((({PPBOMEntry} Inner JOIN {PPBOM} ON {PPBOM}.[FInterID] = {PPBOMEntry}.[FInterID]) Inner JOIN {t_Item} ON {t_Item}.[FItemID] = {PPBOMEntry}.[FItemID]) Inner JOIN {ICMO} ON {ICMO}.[FInterID] = {PPBOM}.[FICMOInterID]) Inner JOIN {t_ICItemBase} ON {t_ICItemBase}.[FItemID] = {t_Item}.[FItemID]) Inner JOIN {t_UnitGroup} ON {t_UnitGroup}.[FUnitGroupID] = {t_ICItemBase}.[FUnitGroupID] Where {PPBOM}.[fstatus] <> 1 and 生产任务单号 In (" & ids & ")"

 回到顶部
美女呀,离线,留言给我吧!
susanhe
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:312 积分:2477 威望:0 精华:0 注册:2018/11/22 20:30:00
  发帖心情 Post By:2019/8/25 23:45:00 [只看该作者]

谢谢,可是结果还是所有记录全部显示出来的。只要当前窗口表中选中的记录才显示,要怎么样改?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

For Each dr As Row In Tables("窗口1_table1").Rows

 回到顶部
美女呀,离线,留言给我吧!
susanhe
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:312 积分:2477 威望:0 精华:0 注册:2018/11/22 20:30:00
  发帖心情 Post By:2019/8/26 19:52:00 [只看该作者]

老师,可以了,可这是下载这表中所有的,如果只要鼠标选中的当前记录呢,谢谢。

 

 

Dim ids As String = ""
    For Each dr As Row In Tables("窗口1_table5").Rows
        ids = ids & ",'" & dr("生产任务单号") & "'"
    Next
    ids= ids.Trim(",")


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


 回到顶部