[求助]在哪里能找到这个案例文件？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]在哪里能找到这个案例文件？

共有3373人关注过本帖树形打印复制链接主题：[求助]在哪里能找到这个案例文件？

swagger

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

[求助]在哪里能找到这个案例文件？ 发帖心情

Post By：2015/2/12 16:04:00 [显示全部帖子]

在帮助文件里的“开发指南-窗口中的table-窗口中的关联表”的实例，这个在casestudy里面有没有？能不能提供一下?花了我好多时间研究这个，最好能提供一下。

swagger

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2015/2/12 16:55:00 [显示全部帖子]

以下是引用有点甜在2015/2/12 16:07:00的发言：
哪部分不会做，可以上传上来提问。

基本上都做得差不了，目前这个例子遇到两个问题：1。订单和订单明细，都有金额，订单金额和订单明细的总金额一样（金额是表达式没法用parent方式） 2.怎么打开订单窗口时，所有输入控件（订单和订单明细）都初始为空值？

swagger

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2015/2/12 20:49:00 [显示全部帖子]

以下是引用有点甜在2015/2/12 17:00:00的发言：

1、为什么不能，例子说明；

2、设置筛选条件

Tables("表A").Filter = "1=2"

Tables("表B").Filter = "1=2"

用了filter之后无法用上张订单，下张订单了

With Tables("订单")
.Position = .Position - 1
End With

swagger

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2015/2/13 3:22:00 [显示全部帖子]

以下是引用有点甜在2015/2/12 17:00:00的发言：

1、为什么不能，例子说明；

2、设置筛选条件

Tables("表A").Filter = "1=2"

Tables("表B").Filter = "1=2"

只用Tables("订单").Filter = "1=2"就可以，用Tables("订单.订单明细").Filter = "1=2"就不行

[此贴子已经被作者于2015/2/13 3:50:01编辑过]

swagger

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2015/2/13 12:46:00 [显示全部帖子]

当订单的单号和订单明细的单号关联，然后在窗口中订单的单号若没填写，在订单明细增加行时会提示“增加行失败，父行（单号）无有效行！”怎么把这个提示去掉换成自己的提示，譬如“必须输入单号”

With Forms("订单").Controls("textbox1")
    Dim txt As String = .Value
    If txt = "" Then
        Messagebox.Show("必须输入单号","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End With

用了上述代码后，系统的提示依然存在

[此贴子已经被作者于2015/2/13 12:47:00编辑过]

swagger

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2015/2/13 12:51:00 [显示全部帖子]

或者用这个也不行

With Forms("订单").Controls("textbox1")
    If .Value Is Nothing Then
        Messagebox.Show("请输入单号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End With

swagger

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2015/2/13 15:45:00 [显示全部帖子]

以下是引用有点甜在2015/2/13 14:16:00的发言：

去编写表的BeforeAddDataRow事件

If Tables("主表").Current.IsNull("第一列") Then
msgbox("不能")
e.Cancel = True
End If

我把这个放在button里面了，另外，当订单表为空表时，增加订单明细行数会显示 “增加行失败，父行无有效数据！”

我用了这句不知道有没有问题，暂时发现还可以

If Tables("订单").Current Is Nothing Then
e.Cancel = True

。。。

下一主题 >> << 上一主题

主题：[求助]在哪里能找到这个案例文件？