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


  共有21119人关注过本帖树形打印复制链接

主题：窗口录入与查询
美女呀，离线，留言给我吧！
云开月明
 小大  91楼 | 信息 | 搜索 | 邮箱 | 主页 | 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("汇率") = 汇率
Next
t.DataTable.DeleteFor("存货编号 is null") 
t.DataTable.Save()
e.Form.close

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
但是出现如图错误提示：字符型无法转换为双精度类型（注：税率和汇率是双精度类型）
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  92楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/14 17:04:00 [只看该作者]

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

 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  93楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
代码如改成这样话，即使录入的是百分比的形式也会转换成双精度小数点形式，如要求以百分比的形式出现，该怎么改代码？
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  94楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  95楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/15 9:10:00 [只看该作者]

以下是引用云开月明在2017/3/15 8:57:00的发言：
老师，
Dim 汇率 = val(e.Form.Controls("汇率").Text) / 100
代码如改成这样话，即使录入的是百分比的形式也会转换成双精度小数点形式，如要求以百分比的形式出现，该怎么改代码？


 

汇率本身就是小数，如果要显示百分比，参考

 

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

 

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

 
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  96楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/15 9:14:00 [只看该作者]

回复94楼，参考

 

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

 

Tables("采购订单录入窗口_Table1").Table.DataTable.DeleteFor("")

Tables("采购订单录入窗口_Table1").Cols("存货编号").DropForm = "窗口2" 
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  97楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/15 10:28:00 [只看该作者]

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

此主题相关图片如下：2.png
按此在新窗口浏览图片
       
此主题相关图片如下：1.png
按此在新窗口浏览图片
如何由图一变加图二，初始有加载10行空行
  窗口Afterload事件如下：
            Tables("采购订单录入窗口_Table1").filter = "1=2"
            Tables("采购订单录入窗口_Table1").Cols("存货编号").DropForm = "窗口2" 
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  98楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/15 10:31:00 [只看该作者]

 

Tables("采购订单录入窗口_Table1").Table.DataTable.AddNew(10)

Tables("采购订单录入窗口_Table1").Cols("存货编号").DropForm = "窗口2" 
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  99楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/15 11:33:00 [只看该作者]

谢谢有点色老师！

如图：在采购录入窗口中增加审核与弃审按钮，通过录入订单编号将采购订单列表的数据显示出来，再一键审核。

如何在订单编号/审核/弃审控件中写代码？


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  100楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/15 11:53:00 [只看该作者]

1、

 

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

 

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

t.Fill("Select * From {订单} where 编号 = '" &  e.Form.Controls("订单编号").Text & "'", False)

 

2、审核

 

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

For Each r As Row in t.Rows

    r("某列") = e.form.Controls("TextBox1").Text

    r("某列") = e.form.Controls("TextBox1").Text

Next

 

3、

 

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

For Each r As Row in t.Rows

    r("某列") = Nothing

    r("某列") = Nothing

Next

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询