Foxtable(狐表)用户栏目专家坐堂 → 这个代码如何修改


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

主题:这个代码如何修改

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
这个代码如何修改  发帖心情 Post By:2012/11/15 10:08:00 [显示全部帖子]

 

If Forms("窗口1").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
    Dim
t As Table = Tables("窗口1_Table1"
)
    With
Tables("产品"
)
        If
.Current Is Nothing
Then
            t.Filter =
"False"
       
Else
            t.Filter =
"产品编号 = " & .Current("产品编号")
        End
IF
   
End With
End
If

 

 

 老大 这个代码 我不能删除产品的当前行 删除 会提示. 不能通过已删除的行来访问该行的信息   我应该如何修改?


 回到顶部