以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：下列代码 我想纠正加入一个条件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=66954)
--  作者：李孝春
--  发布时间：2015/4/16 15:51:00
--  求助：下列代码 我想纠正加入一个条件
求助：下列代码 我想纠正加入一个条件 
实现报价信息表中项目编号字段下的设备名字进行筛选 然后全部加入领取单表中对应的设备名字字段    
求解决办法
谢谢
For i As Integer = 0 To DataTables("报价信息").DataRows.Count-1
    Dim r As Row = Tables("领取单").AddNew
    r("设备名字") = DataTables("报价信息").DataRows(i)("设备名字")
Next
--  作者：Bin
--  发布时间：2015/4/16 15:55:00
--  


for each dr as datarow in DataTables("报价信息").select("项目编号=\'XXXX\'")
 Dim r As Row = Tables("领取单").AddNew
    r("设备名字") = dr("设备名字")
next
[此贴子已经被作者于2015/4/16 15:54:53编辑过]
--  作者：李孝春
--  发布时间：2015/4/16 16:13:00
--  回复：（Bin）老师 试着改了下 报错！

.NET Framework 版本：2.0.50727.6419
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,领取单,Button1,Click
详细错误信息：
无法将类型为“System.String”的对象强制转换为类型“Foxtable.Row”。

 

代码如下：

Dim a As Row = Tables("客户信息").Current("编号")
For Each dr As DataRow In DataTables("报价信息").Select("项目编号=\'a\'")
    Dim r As Row = Tables("领取单").AddNew
    r("物料类型") = dr("物料类型")
    r("品牌") = dr("品牌")
    r("型号") = dr("型号")
    r("规格") = dr("规格")
    r("数量") = dr("数量")
Next
--  作者：Bin
--  发布时间：2015/4/16 16:13:00
--  
Dim a As String = Tables("客户信息").Current("编号")
--  作者：李孝春
--  发布时间：2015/4/16 16:24:00
--  回复：（Bin）Dim a As String = Tables("客户信息")....

Dim a As String = Tables("客户信息").Current("编号")
For Each dr As DataRow In DataTables("报价信息").Select("报价编号=\'a\'")
    Dim r As Row = Tables("领取单").AddNew
    r("项目编号") = dr("报价编号")
    r("物料类型") = dr("物料类型")
    r("品牌") = dr("品牌")
    r("型号") = dr("型号")
    r("规格") = dr("规格")
    r("数量") = dr("数量")
Next

 

居然不能自动对应生成该编号下的数据

但是经过测试可以查找到编号

 

继续求解
--  作者：Bin
--  发布时间：2015/4/16 16:26:00
--  
For Each dr As DataRow In DataTables("报价信息").Select("报价编号=\'" & a & "\'")

你复制了一年多的代码,发了1000多个帖子,也该是时候真正静下心来学习一下,动一下脑. 尝试理解一下代码
--  作者：李孝春
--  发布时间：2015/4/16 16:30:00
--  回复：（Bin）For Each dr As DataRow In DataTables(...

谢谢

老是在动态表达式出问题

学习不牢固 中途还断断续续停工几个月 都忘记差不多了

看来得重新好好再次看看帮助了

 
--  作者：xietan417
--  发布时间：2015/4/16 17:27:00
--  
BIN老师已经无法忍受你的懒惰了！