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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口录入与查询

共有21124人关注过本帖树形打印复制链接主题：窗口录入与查询

有点蓝

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

加好友

发短信

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

Post By：2017/3/11 15:39:00 [只看该作者]

日期改成日期控件，判断下有没有值

if e.Form.Controls("日期").Text > "" then

t.DataTable.ReplaceFor("日期",e.Form.Controls("日期").value)

endif

云开月明

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

加好友

发短信

等级：幼狐帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00

Post By：2017/3/13 9:26:00 [只看该作者]

老师，

图一：采购订单录入窗口

图二：通过图一录入保存后，刷新至采购订单列表

图三：第二次通过采购订单录入窗口录入保存后，刷新的采购订单列表，画红框的完全替换了第一次录入的内容

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

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

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

如何控制第二次录入不影响之前录入的内容，谢谢！

云开月明

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

加好友

发短信

等级：幼狐帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00

Post By：2017/3/13 9:33:00 [只看该作者]

老师，

图一：采购订单录入窗口，希望在存货编号一栏实现模糊查找选择录入存货编号后，存货名称与规格型号相对应的填入。

如果用跨表引用数据，无法实行模糊查找功能？

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

有点蓝

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

加好友

发短信

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

Post By：2017/3/13 10:58:00 [只看该作者]

相关代码贴出来，或者上传例子

云开月明

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

加好友

发短信

等级：幼狐帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00

Post By：2017/3/13 11:16:00 [只看该作者]

老师，

图一：采购订单录入窗口，希望在存货编号一栏实现模糊查找选择录入存货编号后，存货名称与规格型号相对应的填入。

使用跨表引用数据，要实现模糊查找功能，如何修改代码？

TABEL 控件代码如下：

PrepareEdit事件

If e.IsFocusCell Then

If e.Col.Name = "存货编号"

e.Col.Combolist = DataTables("存货档案").GetComboListString("存货编码", "[存货编码] = '" & e.Row("存货编号") & "'")

End If

Datacolchanged事件

If e.DataCol.Name = "存货编号" Then

Dim dr As DataRow

dr = DataTables("存货档案").Find("存货编码 = '" & e.DataRow("存货编号") & "'" )

If dr IsNot Nothing

e.DataRow("存货名称")= dr("存货名称")

e.DataRow("规格型号")= dr("规格型号")

End If

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

云开月明

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

加好友

发短信

等级：幼狐帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00

Post By：2017/3/13 11:26:00 [只看该作者]

老师，

图一：采购订单录入窗口

图二：通过图一录入保存后，刷新至采购订单列表

图三：第二次通过采购订单录入窗口录入保存后，刷新的采购订单列表，画红框的完全替换了第一次录入的内容

窗口保存按钮Click事件

Dim t As Table = e.Form.Controls("Table1").Table

t.DataTable.ReplaceFor("业务类型",e.Form.Controls("业务类型").Text)

t.DataTable.ReplaceFor("订单编号",e.Form.Controls("订单编号").Text)

If e.Form.Controls("日期").Text > "" Then

t.DataTable.ReplaceFor("日期",e.Form.Controls("日期").value)

End If

t.DataTable.ReplaceFor("采购类型",e.Form.Controls("采购类型").Text)

t.DataTable.ReplaceFor("供应商",e.Form.Controls("供应商").Text)

t.DataTable.DeleteFor("存货编号 is null")

t.DataTable.Save()

e.Form.close

采购订单列表Afterload事件

DataTables("采购订单列单").load

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

有点蓝

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

加好友

发短信

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

Post By：2017/3/13 12:04:00 [只看该作者]

回75楼

e.Col.Combolist = DataTables("存货档案").GetComboListString("存货编码", "[存货编码] like '%" & e.Row("存货编号") & "%'")

http://www.foxtable.com/webhelp/scr/1647.htm

有点蓝

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

加好友

发短信

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

Post By：2017/3/13 12:05:00 [只看该作者]

回76楼，ReplaceFor加上筛选条件

http://www.foxtable.com/webhelp/scr/1532.htm

云开月明

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

加好友

发短信

等级：幼狐帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00

Post By：2017/3/13 14:58:00 [只看该作者]

多谢老师！

请问如果要显示多列，就是要同时显示存货编码/存货名称/规格型号多列的值，而取值只取存货编码列，当存货编码列填入后，存货名称/规格型号自动录入。盼复。

有点蓝

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

加好友

发短信

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

Post By：2017/3/13 15:48:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/scr/1534.htm

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

总数 253 1.. 上一页 3 4 5 6 7 8 9 10 11 12 下一页 ..26

主题：窗口录入与查询