Foxtable(狐表)用户栏目专家坐堂 → [求助]啊啊~ 关于窗口动态绑定临时表删除行问题。附带了开发版的文件


  共有5456人关注过本帖树形打印复制链接

主题:[求助]啊啊~ 关于窗口动态绑定临时表删除行问题。附带了开发版的文件

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


加好友 发短信
等级:幼狐 帖子:116 积分:687 威望:0 精华:0 注册:2013/5/31 14:25:00
  发帖心情 Post By:2013/6/20 14:51:00 [显示全部帖子]

If Forms("尺码组编辑").Opened() Then
    If Tables("尺码组编辑_尺码").rows.Count > 0 Then
        Dim A As Row = Tables("尺码组编辑_尺码").Current
        Dim b As Row = Tables("尺码组编辑_尺码组尺码").AddNew()
        b("编号") = a("编号")
        b("尺码名称") = a("尺码名称")
        a.Delete()
        Dim zz As Row = Tables("尺码组").Current
        If zz.IsNull("尺码组") Then
            zz("尺码组") = b("编号") & "," & b("尺码名称")
        Else
            zz("尺码组") = zz("尺码组") & "|" & b("编号") & "," & b("尺码名称")
        End If
    End If
End If

引用新增表里面的参数就行了。


 回到顶部