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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 材料组合

共有5869人关注过本帖树形打印复制链接主题：材料组合

seal51

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

加好友

发短信

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

Post By：2021/2/7 11:26:00 [只看该作者]

以下是引用有点蓝在2021/2/7 10:57:00的发言：
放到TextBox1和TextBox的textchages事件

e.Form.Controls("TextBox3").Text= (e.Form.Controls("TextBox1") .Text & "/" & e.Form.Controls("TextBox2").Text)

放到TextBox1和TextBox2的textchages事件里，对吧，TextBox3里加不加

seal51

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

加好友

发短信

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

Post By：2021/2/7 11:27:00 [只看该作者]

7楼说的按钮只是复制按钮

有点蓝

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

加好友

发短信

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

Post By：2021/2/7 11:36:00 [只看该作者]

不同的问题不要混到一起提，建议另外发帖。

TextBox3里不加

seal51

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

加好友

发短信

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

Post By：2021/2/7 12:35:00 [只看该作者]

此主题相关图片如下：qq截图20210207123409tainru.png

有点蓝

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

加好友

发短信

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

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

tables("xx表").current("xx列") = e.Form.Controls("TextBox3").Text

seal51

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

加好友

发短信

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

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

新增一行并填入这样写对吗》

tables("xx表").addnew

tables("xx表").current("xx列") = e.Form.Controls("TextBox3").Text

有点蓝

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

加好友

发短信

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

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

dim r as row = tables("xx表").addnew

r("xx列") = e.Form.Controls("TextBox3").Text

seal51

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

加好友

发短信

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

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

e.Form.Controls("TextBox4").Text= ("(" & e.Form.Controls("ComboBox1") .Text & "/" & e.Form.Controls("ComboBox2").Text & "/" & e.Form.Controls("ComboBox3").Text & "/" & e.Form.Controls("ComboBox4").Text & ")(" & e.Form.Controls("ComboBox5").Text & "/" & e.Form.Controls("ComboBox6").Text & "/" & e.Form.Controls("ComboBox7").Text & "/" & e.Form.Controls("ComboBox8").Text & ")" & e.Form.Controls("ComboBox9").Text & "/" & e.Form.Controls("TextBox1").Text)

这段代码有点复杂，有无简单的写法？

有点蓝

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

加好友

发短信

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

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

没有的

seal51

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

加好友

发短信

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

Post By：2021/2/8 11:44:00 [只看该作者]

如果值为空，则不填写符号 "/" ，如果写代码呢？

[此贴子已经被作者于2021/2/8 11:44:54编辑过]

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

总数 70 上一页 1 2 3 4 5 6 7 下一页

主题：材料组合