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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 找不到 Labe

共有5472人关注过本帖树形打印复制链接主题：找不到 Labe

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2015/10/20 21:18:00 [只看该作者]

Dim r As Row = Tables("表A").Current

Dim cbx = e.Form.Controls("ComboBox1")

Select Case cbx.Text

如果点击一下是整列都转换是该改那里啊！

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/20 21:19:00 [只看该作者]

http://www.foxtable.com/help/topics/1532.htm

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2015/10/20 21:35:00 [只看该作者]

Dim r As Row = Tables("表A").DataColName

这个是不是声明R 为表A 选择的列啊！

怎么不能用呢

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/20 21:36:00 [只看该作者]

DataTables("表A").ReplaceFor("转换日期", 123456)

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2015/10/20 21:43:00 [只看该作者]

感谢感谢

如果Label9 和Label3 都是其他 Label 相加减的结果的话下面的代码就不能取到作用吗？

e.Form.Controls("Label9").Text = CUMoney(val(e.Form.Controls("Label3").Text)) '数字大写转换

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/20 21:44:00 [只看该作者]

哪里相减，就在哪里加代码。

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2015/10/20 21:50:00 [只看该作者]

嗯就是

Forms("企业档案窗口").Controls("Label99").Text = Forms("企业档案窗口").Controls("Label52").Text - Forms("企业档案窗口").Controls("Label69").Text- Forms("企业档案窗口").Controls("Label98").Text '处理在回款或者付款后立刻更新label数据

这是另外一个窗口按钮的代码

执行后 Label114 就等于 Label99的大写