- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 现在的选择输入为什么不行了! (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1929)
-- 发布时间：2009/2/25 13:30:00
-- 现在的选择输入为什么不行了!
我原先是通过关联表的方式打开的生产管理表,现在不用关联表,而是用下面的代码动态显示表:
Dim Filter As String = "[合同编号] = \'" & Tables("出库主表").Current("合同编号") & "\'"
Tables("生产管理").Filter = Filter
原先的选择输入代码,现在为什么不行了,不起作用了?
Dim drs As List(Of DataRow)
Dim Vals() As String = New String(){"生产号"}
drs = Tables("出库主表").Current.DataRow.GetChildRows("生产管理")
For Each dr1 As Datarow In drs
If dr1("选择") = False Then
Continue For
End If
dr1("状态") = "销售"
dr1("动态日期") = date.today()
dr1("选择") = False
Dim dr2 As Row = Tables("出库主表.出库明细").AddNew()
For Each Val As String In Vals
dr2(val) = dr1(val)
Next
Next
e.form.close()
-- 发布时间：2009/2/25 15:14:00
--
没有建立关联，下面的代码无效：
drs = Tables("出库主表").Current.DataRow.GetChildRows("生产管理")
应该怎么改，留给你做作业，完不成作业再上来提问。
-- 发布时间：2009/2/25 15:20:00
--
给个提示吧，DataTable.Select语句。
-- 发布时间：2009/2/25 17:00:00
--
能否给个详细的代码啊,谢谢了!
-- 发布时间：2009/2/25 17:05:00
--
Dim drs As List(Of DataRow)
Dim Filter As String = "[合同编号] = \'" & Tables("出库主表").Current("合同编号") & "\'"
Dim Vals() As String = New String(){"生产号"}
drs = DataTables("出库主表").Select(Filter)
For Each dr1 As Datarow In drs
If dr1("选择") = False Then
Continue For
End If
dr1("状态") = "销售"
dr1("动态日期") = date.today()
dr1("选择") = False
Dim dr2 As Row = Tables("出库主表.出库明细").AddNew()
For Each Val As String In Vals
dr2(val) = dr1(val)
Next
Next
e.form.close()
-- 发布时间：2009/2/25 19:15:00
--
此主题相关图片如下：1111.jpg
狐爸爸出错了,快快帮忙啊!
-- 发布时间：2009/2/25 20:45:00
--
错误提示的意思是: 出库主表没有名为“选择”的列。
明白这个原因，你应该知道如何处理了。
[此贴子已经被作者于2009-2-25 21:38:24编辑过]
-- 发布时间：2009/2/26 10:18:00
--
谢谢提示．已经ＯＫ了！