Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

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


加好友 发短信
等级:婴狐 帖子:41 积分:348 威望:0 精华:0 注册:2014/10/20 16:27:00
[求助]  发帖心情 Post By:2015/1/15 20:38:00 [只看该作者]


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

这个窗口的录入框绑定的凭证的主表,下面的绑定的是凭证关联表的明细表,利用凭证号建立了关联,

如何才能在新增凭证的时候,能够在凭证明细窗口录入当前的凭证明细?并能在点新增的时候,凭证明细新增多行空白,以方便录入数据,保存时候,只保存有数据的行,

 

求老师,帮忙指点!


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/15 20:55:00 [只看该作者]

 1、新增10行 Tables("凭证.凭证明细").AddNew(10)

 

 2、保存有数据的行,先删除空行,再保存

 

For Each r As Row In Tables("凭证.凭证明细").Rows
    If r.IsNull("第一列") OrElse r.IsNull("第二列") Then
        r.Delete
    Else
        r.Save
    End If
Next


 回到顶部
帅哥哟,离线,有人找我吗?
geast
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:41 积分:348 威望:0 精华:0 注册:2014/10/20 16:27:00
[求助]  发帖心情 Post By:2015/1/15 21:01:00 [只看该作者]

如果是两个表的话,点击父表的当前行,就能对子表进行操作,可是换了这个窗口格式,新增凭证的时候,却无法对子表编辑了,点子表没有反应,我该怎么写啊


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/15 21:04:00 [只看该作者]

 无法编辑?表控件那里,允许编辑设置成true啊

 回到顶部
帅哥哟,离线,有人找我吗?
geast
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:41 积分:348 威望:0 精华:0 注册:2014/10/20 16:27:00
  发帖心情 Post By:2015/1/15 21:07:00 [只看该作者]


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

允许编辑,好像设置的没错啊


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/15 21:09:00 [只看该作者]

 那就不可能不允许编辑。

 

 例子说明。


 回到顶部
帅哥哟,离线,有人找我吗?
geast
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:41 积分:348 威望:0 精华:0 注册:2014/10/20 16:27:00
  发帖心情 Post By:2015/1/15 21:14:00 [只看该作者]

嗯,谢谢老师,我再研究研究,可能是我代码写的有问题。

 

哦对了,还有个问题,我刚开始设计的凭证号是自动编号,后来改了,发现自动编号,无法设置关联

 

还有,如果是自动编号的话,是不是无法修改啊,只能让系统自己编号


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/15 21:25:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
geast
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:41 积分:348 威望:0 精华:0 注册:2014/10/20 16:27:00
  发帖心情 Post By:2015/1/25 22:51:00 [只看该作者]

以下是引用有点甜在2015-1-15 20:55:00的发言:

 1、新增10行 Tables("凭证.凭证明细").AddNew(10)

 

 2、保存有数据的行,先删除空行,再保存

 

For Each r As Row In Tables("凭证.凭证明细").Rows
    If r.IsNull("第一列") OrElse r.IsNull("第二列") Then
        r.Delete
    Else
        r.Save
    End If
Next

 

甜老师,这段代码,真的没问题吗,为什么我点一下保存,就删除2行,多点几下就全部删除完了,一行也没保存啊。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/25 22:56:00 [只看该作者]

 有点问题

 

For i As Integer = Tables("表A").Rows.Count - 1 To 0 Step -1
    Dim r As Row = Tables("表A").Rows(i)
    If r.IsNull("第一列") OrElse r.IsNull("第二列") Then
        r.Delete
    Else
        r.Save
    End If
Next


 回到顶部
总数 13 1 2 下一页