| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 文本框赋值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120128) |
| -- 作者：liuandwang -- 发布时间：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 |
| -- 作者：有点甜 -- 发布时间：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 -- 发布时间：2018/6/8 17:26:00 -- 还有一个问题 如果在“平米数”列的单元格中数值小于2.2，在“提示”列显示文字“小于2.2平方米”。谢谢 |
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：2018/6/9 15:38:00 -- 核销隐藏 甜老师： 我正尝试制作一个小型生产管理数据库，感谢这几个月甜老师不厌其烦的帮助，数据库已趋于完成，谢谢甜老师。 在往数据库中增加数据时，发现数据越来越多，我想在“汇总单”（汇总单绑定订单主表）中增加一个“核销”逻辑列， 勾选某个订单的“核销”列，自动隐藏该订单在订单主表和明细表中的数据。取消勾选可恢复数据。 如果勾选了核销，生产单和结算单中是否也能够隐藏该订单的数据。 |
| -- 作者：有点蓝 -- 发布时间：2018/6/9 15:42:00 -- 类似这种，根据订单加载的数据加载其它表的数据 |
| -- 作者：liuandwang -- 发布时间：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 & "\'") 条件查询：在客户名称文本框中输入客户名称后，订单编号下拉框中自动列出该客户的订单编号，并且剔除“是否核销”列勾选的订单编号 |
| -- 作者：有点甜 -- 发布时间：2018/6/10 23:29:00 -- cj.ComboList = DataTables("订单主表").GetComboListString("订单编号", "是否核销 = False And 客户名称 = \'" & kf.Text & "\'") |
| -- 作者：liuandwang -- 发布时间：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 \'自动引用产品型号和单位
|
| -- 作者：有点蓝 -- 发布时间：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
|