Foxtable(狐表)用户栏目专家坐堂 → 现在的选择输入为什么不行了!


  共有18910人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
woodiy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:363 积分:2998 威望:0 精华:0 注册:2008/11/11 13:42:00
现在的选择输入为什么不行了!  发帖心情 Post By: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()

 回到顶部