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

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

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

seal51

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

加好友

发短信

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

标签如何调出表中字段 发帖心情

Post By：2021/2/9 12:37:00 [显示全部帖子]

窗口中新建一个标签，想要在表A中调出字段A，字段B，组合成P=A±B-N，如何写代码呢？

seal51

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

加好友

发短信

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

Post By：2021/2/9 13:48:00 [显示全部帖子]

如何组合呢？组合成 P = 字段A ± 字段B -N

比如像：

lbl.Text = "P=" & 字段A "±" & 字段B & "，-N "

[此贴子已经被作者于2021/2/9 13:52:16编辑过]

seal51

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

加好友

发短信

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

Post By：2021/2/9 13:56:00 [显示全部帖子]

写在哪个事件中呢？

seal51

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

加好友

发短信

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

Post By：2021/2/9 14:13:00 [显示全部帖子]

怎么打开窗口没有反应？

seal51

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

加好友

发短信

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

Post By：2021/2/9 14:22:00 [显示全部帖子]

复制同样的代码到窗口的afterload事件中报错

Table不是formEventArgs的成员

seal51

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

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：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位小数呢？

seal51

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

加好友

发短信

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

Post By：2021/2/9 15:21:00 [显示全部帖子]

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

seal51

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

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：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"),"##.#"))

这样写吗？

seal51

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

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：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")& " 圈;"

seal51

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

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：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

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

总数 12 1 2 下一页

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