标签如何调出表中字段 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 标签如何调出表中字段

共有3546人关注过本帖树形打印复制链接主题：标签如何调出表中字段

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2021/2/9 14:42:00 [只看该作者]

e.form.controls("标签1").text = e.table.current("A") & "+" & e.table.current("B")

如果字段B是数字，如何格式化只保留1位小数呢？

有点蓝

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

加好友

发短信

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

Post By：2021/2/9 14:51:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0281.htm

http://www.foxtable.com/webhelp/topics/0361.htm

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2021/2/9 15:21:00 [只看该作者]

如何在11楼的代码里加个换行呢？

有点蓝

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

加好友

发短信

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

Post By：2021/2/9 15:30:00 [只看该作者]

e.form.controls("标签1").text = e.table.current("A") & "+" & vbvrlf & e.table.current("B")

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2021/2/9 15:41:00 [只看该作者]

保留一位

e.form.controls("标签1").text = e.table.current("A") & "+" & e.table.current((Format ("B"),"##.#"))

这样写吗？

有点蓝

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

加好友

发短信

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

Post By：2021/2/9 15:41:00 [只看该作者]

Format (e.table.current("B"),"##.#")

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2021/2/9 16:14:00 [只看该作者]

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.5.29.8

错误所在事件：spring11,CurrentChanged

详细错误信息：

未将对象引用设置到对象的实例。

CurrentChanged里的代码如下：

e.form.controls("Label2").text = "P= " & e.Table.current("f1n") & " ± " & e.Table.current("fgcha")& " N"

e.form.controls("Label3").text = "工作高度" & e.Table.current("h1mm")

e.form.controls("Label4").text = "自由高度" & e.Table.current("homm")

e.form.controls("Label5").text = "外径φ" & e.Table.current("odmm")

e.form.controls("Label6").text = "丝径φ" & e.Table.current("d1mm")

e.form.controls("Label7").text = "中径φ" & e.Table.current("d2mm")

e.form.controls("Label8").text = "2: 总圈数:n1= " & e.Table.current("n1")& " 圈; 有效圈数:n= " & e.Table.current("n")& " 圈;"

有点蓝

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

加好友

发短信

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

Post By：2021/2/9 16:15:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0641.htm，看看最后的注意事项

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2021/2/9 16:19:00 [只看该作者]

这样写吗？

If e.Table.Current Is Nothing Then '如果Current为Nothing

return

Else

e.form.controls("Label2").text = "P= " & e.Table.current("f1n") & " ± " & e.Table.current("fgcha")& " N"

e.form.controls("Label3").text = "工作高度" & e.Table.current("h1mm")

e.form.controls("Label4").text = "自由高度" & e.Table.current("homm")

e.form.controls("Label5").text = "外径φ" & e.Table.current("odmm")

e.form.controls("Label6").text = "丝径φ" & e.Table.current("d1mm")

e.form.controls("Label7").text = "中径φ" & e.Table.current("d2mm")

e.form.controls("Label8").text = "2: 总圈数:n1= " & e.Table.current("n1")& " 圈; 有效圈数:n= " & e.Table.current("n")& " 圈;"

End If

有点蓝

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

加好友

发短信

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

Post By：2021/2/9 16:25:00 [只看该作者]

是的

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

总数 22 上一页 1 2 3 下一页

主题：标签如何调出表中字段