Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共8 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:现在的选择输入为什么不行了!

1楼
woodiy 发表于: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()
2楼
狐狸爸爸 发表于:2009/2/25 15:14:00
没有建立关联,下面的代码无效:

drs = Tables("出库主表").Current.DataRow.GetChildRows("生产管理")

应该怎么改,留给你做作业,完不成作业再上来提问。

图片点击可在新窗口打开查看
3楼
狐狸爸爸 发表于:2009/2/25 15:20:00
给个提示吧,DataTable.Select语句。
4楼
woodiy 发表于:2009/2/25 17:00:00
能否给个详细的代码啊,谢谢了!
5楼
狐狸爸爸 发表于: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()
6楼
woodiy 发表于:2009/2/25 19:15:00

图片点击可在新窗口打开查看此主题相关图片如下:1111.jpg
图片点击可在新窗口打开查看

狐爸爸出错了,快快帮忙啊!
7楼
狐狸爸爸 发表于:2009/2/25 20:45:00
错误提示的意思是: 出库主表没有名为“选择”的列。
明白这个原因,你应该知道如何处理了。
[此贴子已经被作者于2009-2-25 21:38:24编辑过]
8楼
woodiy 发表于:2009/2/26 10:18:00

谢谢提示.已经OK了!

共8 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.