| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64991) |
| -- 作者：yjd -- 发布时间：2015/3/6 16:29:00 -- [求助] 版主您好，能否菜单写入代码，程序发布后还可以通过菜单修改表结构，设置多值字段。或者能否在菜单留下命令窗口，便于管理员维护系统。 |
| -- 作者：有点甜 -- 发布时间：2015/3/6 16:30:00 -- 不可以，没办法。 |
| -- 作者：有点甜 -- 发布时间：2015/3/6 16:31:00 -- 命令窗口可以自己做一个，原理是 http://www.foxtable.com/help/topics/1487.htm
|
| -- 作者：Bin -- 发布时间：2015/3/6 16:31:00 -- 多值字段可以设置来自表,然后编辑表数据即可. 其实这些都可以用代码完成http://www.foxtable.com/help/topics/2122.htm 帮助处处是宝
|
| -- 作者：yjd -- 发布时间：2015/3/12 21:39:00 -- 版主您好，能否帮忙写一下命令窗口代码，谢谢！ |
| -- 作者：有点甜 -- 发布时间：2015/3/12 21:42:00 -- 以下是引用yjd在2015/3/12 21:39:00的发言：
版主您好，能否帮忙写一下命令窗口代码，谢谢！
呃，就四句代码而已.....
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox2") Functions.Execute("命令窗口") |
| -- 作者：yjd -- 发布时间：2015/3/12 21:50:00 -- 还是没明白，我是菜鸟 |
| -- 作者：有点甜 -- 发布时间：2015/3/12 21:51:00 -- 做一个窗口，加入一个文本框，再做一个按钮。
贴入代码
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox2") Functions.Execute("命令窗口") |
| -- 作者：yjd -- 发布时间：2015/3/12 22:07:00 -- 已添加了具有相同键的项。谢谢 |
| -- 作者：有点甜 -- 发布时间：2015/3/12 22:10:00 -- Dim txt As WinForm.TextBox = e.Form.Controls("TextBox2") Functions.remove("命令窗口") Functions.Add("命令窗口", txt.Text) Functions.Complie() Functions.Execute("命令窗口") |