[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，你好！以下代码是从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

Dim ids As String = ""
    For Each dr As Row In Tables("订单").Rows
        ids = ids & ",'" & dr("生产任务单号") & "'"
    Next
    ids= ids.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 & ")"

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

如果是副本http://www.foxtable.com/webhelp/topics/1906.htm

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

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

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

主题：[求助]