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

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

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

云开月明

小大 41楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

云开月明

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

加好友

发短信

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

Post By：2017/3/13 14:58:00 [显示全部帖子]

多谢老师！

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

云开月明

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

加好友

发短信

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

Post By：2017/3/13 16:04:00 [显示全部帖子]

老师，

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

RepalceFor加替换条件也不好加，我的目的是第二次在窗口中录入的内容不影响第一次录入的内容。能不能将上次录入的内容直接锁定或其它办法？

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

云开月明

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

加好友

发短信

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

Post By：2017/3/13 17:39:00 [显示全部帖子]

老师，

保存按钮代码修改如下：

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

Dim id As Integer = t.DataTable.Compute("min([_Identify])")

t.DataTable.ReplaceFor("业务类型",e.Form.Controls("业务类型").Text,"[_Identify] >= " & id)

t.DataTable.ReplaceFor("订单编号",e.Form.Controls("订单编号").Text,"[_Identify] >= " & id)

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

t.DataTable.ReplaceFor("日期",e.Form.Controls("日期").value,"[_Identify] >= " & id)

End If

t.DataTable.ReplaceFor("采购类型",e.Form.Controls("采购类型").Text,"[_Identify] >= " & id)

t.DataTable.ReplaceFor("供应商",e.Form.Controls("供应商").Text,"[_Identify] >= " & id)

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

t.DataTable.Save()

e.Form.close

第二次录入的内窗还是替代掉前一次录入的内容。
图片点击可在新窗口打开查看

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

窗口中那些控件是用项目列表的形式，取值于别个表中的内容。

求教！

云开月明

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

加好友

发短信

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

Post By：2017/3/14 10:23:00 [显示全部帖子]

老师，

保存按钮代码修改如下：

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

Dim id As Integer = t.Compute("min([_Identify])")

t.DataTable.ReplaceFor("业务类型",e.Form.Controls("业务类型").Text,"[_Identify] >= " & id)

t.DataTable.ReplaceFor("订单编号",e.Form.Controls("订单编号").Text,"[_Identify] >= " & id)

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

t.DataTable.ReplaceFor("日期",e.Form.Controls("日期").value,"[_Identify] >= " & id)

End If

t.DataTable.ReplaceFor("采购类型",e.Form.Controls("采购类型").Text,"[_Identify] >= " & id)

t.DataTable.ReplaceFor("供应商",e.Form.Controls("供应商").Text,"[_Identify] >= " & id)

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

t.DataTable.Save()

e.Form.close

录入窗口中控件录入的内容，第二次仍会替换掉第一次录入的内容。

云开月明

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

加好友

发短信

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

Post By：2017/3/14 14:22:00 [显示全部帖子]

保存按钮设置如下：

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

Dim id As Integer = t.Compute("min([_Identify])")

t.DataTable.ReplaceFor("业务类型",e.Form.Controls("业务类型").Text,"[_Identify] >= " & id)

t.DataTable.ReplaceFor("订单编号",e.Form.Controls("订单编号").Text,"[_Identify] >= " & id)

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

t.DataTable.ReplaceFor("日期",e.Form.Controls("日期").value,"[_Identify] >= " & id)

End If

t.DataTable.ReplaceFor("采购类型",e.Form.Controls("采购类型").Text,"[_Identify] >= " & id)

t.DataTable.ReplaceFor("供应商",e.Form.Controls("供应商").Text,"[_Identify] >= " & id)

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

t.DataTable.Save()

e.Form.close

图一：采购订单录入窗口

图二：第一次通过窗口录入保存，并刷新至采购订单列表中的内容。

图三：第二次通过窗口录入保存，此时采购订单列表中的采购类型、供应商、订单编号，第一次的内容完全替换成第二次保存的内容。

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

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

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

云开月明

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

加好友

发短信

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

Post By：2017/3/14 14:51:00 [显示全部帖子]

以下是引用云开月明在2017/3/14 14:22:00的发言：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

云开月明

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

加好友

发短信

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

Post By：2017/3/14 17:00:00 [显示全部帖子]

老师，

保存按钮修改为

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

Dim 业务类型 = e.Form.Controls("业务类型").Text

Dim 日期 = e.Form.Controls("日期").Text

Dim 订单编号 = e.Form.Controls("订单编号").Text

Dim 采购类型 = e.Form.Controls("采购类型").Text

Dim 供应商 = e.Form.Controls("供应商").Text

Dim 部门 = e.Form.Controls("部门").Text

Dim 业务员 = e.Form.Controls("业务员").Text

Dim 税率 = e.Form.Controls("税率").Text

Dim 付款条件 = e.Form.Controls("付款条件").Text

Dim 备注 = e.Form.Controls("备注").Text

Dim 币种 = e.Form.Controls("币种").Text

Dim 汇率 = e.Form.Controls("汇率").Text

For Each r As Row In t.Rows

r("业务类型") = 业务类型

r("日期") = 日期

r("订单编号") = 订单编号

r("采购类型") = 采购类型

r("供应商") = 供应商

r("部门") = 部门

r("业务员") = 业务员

r("税率") = 税率

r("付款条件") = 付款条件

r("备注") = 备注

r("币种") = 币种

r("汇率") = 汇率

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

t.DataTable.Save()

e.Form.close

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

但是出现如图错误提示：字符型无法转换为双精度类型（注：税率和汇率是双精度类型）
图片点击可在新窗口打开查看

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

云开月明

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

加好友

发短信

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

Post By：2017/3/15 8:57:00 [显示全部帖子]

老师，

Dim 汇率 = val(e.Form.Controls("汇率").Text) / 100

代码如改成这样话，即使录入的是百分比的形式也会转换成双精度小数点形式，如要求以百分比的形式出现，该怎么改代码？

云开月明

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

加好友

发短信

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

Post By：2017/3/15 9:07:00 [显示全部帖子]

老师，

如图：采购订单录入窗口

1.现需要在订单编号中输入订单编号，可以从采购订单列表中提取出关于这个订单号的所有订单进行审核，并且还要实现能前一页，后一页地查询。

2. 采购订单录入窗口中TABLE控件，能否设置初如不加载数据，但固定有十行空行呢？

窗口Afterload事件如下：

Tables("采购订单录入窗口_Table1").filter = "1=2"

Tables("采购订单录入窗口_Table1").Cols("存货编号").DropForm = "窗口2"

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

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

总数 129 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..13

主题：窗口录入与查询