如何共用一个录入窗口（html） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何共用一个录入窗口（html）

共有2740人关注过本帖树形打印复制链接主题：如何共用一个录入窗口（html）

ZJZK2018

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

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

如何共用一个录入窗口（html） 发帖心情

Post By：2018/4/24 1:07:00 [显示全部帖子]

老师你好：

需求：

在监理日记窗口中有JL_textbox1,JL_textbox2,JL_textbox3,单击任何一个textbox,弹出共用“录入窗口”，如何做到通用录入窗口。

1、在监理日记窗口中随意选择一个textbox,弹出“录入窗口”，在“录入窗口”中录入数据后关闭，自动保存到选中的那个textbox中。

2、对已有值的textbox如何进行“录入窗口”修改？

3、html转换过来的文本能否保持原有格式？

谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:html转换.zip

此主题相关图片如下：7777777777.png

ZJZK2018

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

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

Post By：2018/4/24 10:25:00 [显示全部帖子]

有点甜老师：

如果保存html代码无法直接调用到word模板中去

ZJZK2018

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

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

Post By：2018/4/24 11:16:00 [显示全部帖子]

有点甜老师：

谢谢甜老师的提醒，换个思路是可以，但下面这个问题还得解决，

在监理日记窗口中有JL_textbox1,JL_textbox2,JL_textbox3等文本框,单击任何一个textbox,弹出共用“录入窗口”，如何做到通用录入窗口。

1、在监理日记窗口中随意选择一个textbox,弹出“录入窗口”，在“录入窗口”中录入数据后关闭，自动保存到选中的那个textbox中。

2、对已有值的textbox如何进行“录入窗口”修改？

[此贴子已经被作者于2018/4/24 11:18:38编辑过]

ZJZK2018

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

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

Post By：2018/4/24 12:31:00 [显示全部帖子]

有点甜老师：

首先谢谢甜老师的指导，帮了我的大忙。

上面是窗口中控件录入，如果是在表里的话如何双击单元格，并赋值给这个单元格？

ZJZK2018

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

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

Post By：2018/4/24 13:43:00 [显示全部帖子]

老师：

下面这段代码出错：

e.Cancel = True '禁止进入编辑状态

vars("row") = e.Row

vars("col") = e.Col

Dim st As String = vars("row")(vars("col").Name)

'MessageBox.Show(st)

Vars("AB") = st

Forms("录入").Open()

在录入窗口AfterLoad事件中

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
txt.Value = Vars("AB")

在AfterClose事件中
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Vars("AB") = txt.Value

出错提示：

.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.3.9.1
错误所在事件：监理日记,DoubleClick
详细错误信息：
值类型与列类型不匹配不能在 AB 列中存储 <DSGDFG88888ppppppppp>。所需类型是 TextBox。
值类型与列类型不匹配