Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文本框赋值


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

主题：文本框赋值
帅哥哟，离线，有人找我吗？
liuandwang
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：93 积分：1029 威望：0 精华：0 注册：2018/4/28 23:27:00 		文本框赋值  发帖心情 Post By：2018/6/7 17:09:00 [只看该作者]

通过选择订单编号文本框中内容，自动赋值给产品名称、产品型号、预交日期
通过下面代码能够实现产品名称和产品型号的赋值，但订单主表中预交日期为空时，预交日期文本框内容显示为当天日期。
求各位老师帮忙改一下，十分感谢。
 
Dim drs As List(Of DataRow) = DataTables("订单主表").Select("订单编号 = '" & e.form.controls("订单编号").Text & "'")
If drs.count > 0 Then
    e.form.controls("TextBox3").Text = drs(0)("产品名称")
    e.form.controls("TextBox4").Text = drs(0)("产品型号")
    e.form.controls("DateTimePicker1").Text = drs(0)("预交日期")
 Else
    e.form.controls("TextBox3").Text = Nothing
    e.form.controls("TextBox4").Text = Nothing
    e.form.controls("DateTimePicker1").Text = Nothing 
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/6/7 17:21:00 [只看该作者]


Dim dr = DataTables("订单主表").find("订单编号 = '" & e.form.controls("订单编号").Text & "'")
If dr IsNot Nothing Then
    e.form.controls("TextBox3").Text = dr("产品名称")
    e.form.controls("TextBox4").Text = dr("产品型号")
    e.form.controls("DateTimePicker1").Text = iif(dr("预交日期")=Nothing, Date.today, dr("预交日期"))
Else
    e.form.controls("TextBox3").Text = Nothing
    e.form.controls("TextBox4").Text = Nothing
    e.form.controls("DateTimePicker1").Text = Nothing
End If

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


加好友 发短信
等级：幼狐 帖子：93 积分：1029 威望：0 精华：0 注册：2018/4/28 23:27:00 		还有一个问题  发帖心情 Post By：2018/6/8 17:26:00 [只看该作者]

如果在“平米数”列的单元格中数值小于2.2，在“提示”列显示文字“小于2.2平方米”。谢谢

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107850 积分：548607 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/8 20:23:00 [只看该作者]

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

If e.DataCol.Name = "平米数" Then
    If e.DataRow("平米数") < 2.2 Then
        e.DataRow("提示") = "小于2.2平方米"
    Else
        e.DataRow("提示") = Nothing
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
liuandwang
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：93 积分：1029 威望：0 精华：0 注册：2018/4/28 23:27:00 		核销隐藏  发帖心情 Post By：2018/6/9 15:38:00 [只看该作者]

甜老师：
我正尝试制作一个小型生产管理数据库，感谢这几个月甜老师不厌其烦的帮助，数据库已趋于完成，谢谢甜老师。

在往数据库中增加数据时，发现数据越来越多，我想在“汇总单”（汇总单绑定订单主表）中增加一个“核销”逻辑列，
勾选某个订单的“核销”列，自动隐藏该订单在订单主表和明细表中的数据。取消勾选可恢复数据。
如果勾选了核销，生产单和结算单中是否也能够隐藏该订单的数据。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107850 积分：548607 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/9 15:42:00 [只看该作者]

类似这种，根据订单加载的数据加载其它表的数据
 回到顶部
帅哥哟，离线，有人找我吗？
liuandwang
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：93 积分：1029 威望：0 精华：0 注册：2018/4/28 23:27:00 		查询  发帖心情 Post By：2018/6/9 18:24:00 [只看该作者]

甜老师：帮忙看一下下面代码哪错了
Dim kf As WinForm.DropDownBox = e.Form.Controls("客户名称")
Dim cj As WinForm.ComboBox = e.Form.Controls("订单编号")
cj.ComboList = DataTables("订单主表").GetComboListString("订单编号", "是否核销" = False And "客户名称 = '" & kf.Text & "'")

条件查询：在客户名称文本框中输入客户名称后，订单编号下拉框中自动列出该客户的订单编号，并且剔除“是否核销”列勾选的订单编号
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/6/10 23:29:00 [只看该作者]

cj.ComboList = DataTables("订单主表").GetComboListString("订单编号", "是否核销 = False And 客户名称 = '" & kf.Text & "'")

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


加好友 发短信
等级：幼狐 帖子：93 积分：1029 威望：0 精华：0 注册：2018/4/28 23:27:00 		赋值  发帖心情 Post By：2018/6/11 18:32:00 [只看该作者]

甜老师：
下面是订单主表表事件代码，我在原来的基础上增加了一个颜色，在产品信息表中找出产品型号下的颜色，
并对订单主表中单价和颜色加价赋值，赋值时有时无，帮忙给一下，谢谢。

If e.DataCol.Name = "产品型号" Then 
       Dim dz As DataRow
    dz = DataTables("产品信息").Find("产品型号 = '" & e.DataRow("产品型号") & "'and 颜色 = '" & e.DataRow("颜色") & "'" )
    If dz IsNot Nothing '如果找到, 则设置各列内容
                e.DataRow("单价")= dz("单价")
        e.DataRow("颜色加价")= dz("颜色加价")
    End If
End If '自动引用产品型号和单位
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107850 积分：548607 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/11 20:02:00 [只看该作者]

If e.DataCol.Name = "产品型号" OrElse e.DataCol.Name = "颜色" Then
    Dim dz As DataRow
    dz = DataTables("产品信息").Find("产品型号 = '" & e.DataRow("产品型号") & "'and 颜色 = '" & e.DataRow("颜色") & "'" )
    If dz IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("单价")= dz("单价")
        e.DataRow("颜色加价")= dz("颜色加价")
    End If
End If
 回到顶部
总数 29 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询