目录树 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树

共有8632人关注过本帖树形打印复制链接主题：目录树

有点蓝

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

加好友

发短信

等级：超级版主帖子：106301 积分：540640 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/4 13:59:00 [显示全部帖子]

学会调试

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

if e.Form.DropTable IsNot Nothing Then

Select Case e.Form.DropTable.Name

Case "月租收费_Table1"

If e.Node.Level = 0 Or e.Node.Level = 1 Or e.Node.Level = 2 Or e.Node.Level = 3 Then '如果是顶层节点

Return '则返回

End If

msgbox("分类 = '" & Vals(0) & "' And 住址_巷 ='" & Vals(1) & "' And 住址_号 ='" & Vals(2) & "'And 住址_房 ='" & Vals(3) & "'")

Dim drs As List(Of DataRow) = DataTables("车辆基本信息").Select("分类 = '" & Vals(0) & "' And 住址_巷 ='" & Vals(1) & "' And 住址_号 ='" & Vals(2) & "'And 住址_房 ='" & Vals(3) & "'")

有点蓝

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

加好友

发短信

等级：超级版主帖子：106301 积分：540640 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/4 14:27:00 [显示全部帖子]

认真看了吗！弹出的窗口条件有没有问题？有符合这个条件的数据吗，查询有结果吗？

有点蓝

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

加好友

发短信

等级：超级版主帖子：106301 积分：540640 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/4 14:56:00 [显示全部帖子]

哪段代码是处理窗口的？在处理窗口的代码中调试，比如打开月租收费窗口

If e.Form.DropTable IsNot Nothing Then

Select Case e.Form.DropTable.Name

Case "月租收费_Table1"

Vals(0) = DataTables("分类").DataRows(0)("分类")

If e.Node.Level = 0 Or e.Node.Level = 1 Or e.Node.Level = 2 Or e.Node.Level = 3 Then '如果是顶层节点

Return '则返回

End If

msgbox("车辆基本信息").Select("分类 = '" & Vals(0) & "' And 住址_巷 ='" & Vals(1) & "' And 住址_号 ='" & Vals(2) & "'And 住址_房 ='" & Vals(3) & "'")

msgbox(drs.count)

For Each dr As DataRow In drs

If dr IsNot Nothing Then

msgbox(dr("分类"))

tr("分类") = dr("分类")

tr("住址_巷") = dr("住址_巷")

tr("住址_号") = dr("住址_号")

tr("住址_房") = dr("住址_房")

有点蓝

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

加好友

发短信

等级：超级版主帖子：106301 积分：540640 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/16 13:35:00 [显示全部帖子]

上实例

有点蓝

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

加好友

发短信

等级：超级版主帖子：106301 积分：540640 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/16 14:14:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:小区车辆管理（0413）.zip

有点蓝

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

加好友

发短信

等级：超级版主帖子：106301 积分：540640 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/25 15:38:00 [显示全部帖子]

Else

msgbox(e.Form.DropDownBox.Form.Name)

msgbox(tr is nothing)

Select Case e.Form.DropDownBox.Form.Name

Case "三栏式账","三栏式数量金额账","多栏式明细账"

Select Case e.Node.Level

有点蓝

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

加好友

发短信

等级：超级版主帖子：106301 积分：540640 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/25 15:55:00 [显示全部帖子]

msgbox使用来调试查看问题的，学会调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

有点蓝

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

加好友

发短信

等级：超级版主帖子：106301 积分：540640 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/25 16:33:00 [显示全部帖子]

您如果不会看哪些错误提示，那就把提示发上来给别人看咯，弹出什么内容？

msgbox(e.Form.DropDownBox.Form.Name)

msgbox(tr is nothing)

[此贴子已经被作者于2021/4/25 16:36:58编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：106301 积分：540640 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/25 16:50:00 [显示全部帖子]

截图是错误提示，不是我想看的msgbox的弹框提示。如果连msgbox都没有弹出来，说明不是红色代码的问题。重新调试一下：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

有点蓝

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

加好友

发短信

等级：超级版主帖子：106301 积分：540640 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/25 17:02:00 [显示全部帖子]

2个msgbox弹框只弹出一个三栏式账？msgbox(tr is nothing)弹出什么内容？

[此贴子已经被作者于2021/4/25 17:02:48编辑过]

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

总数 44 上一页 1 2 3 4 5 下一页

主题：目录树