文本框赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

通过选择订单编号文本框中内容，自动赋值给产品名称、产品型号、预交日期

通过下面代码能够实现产品名称和产品型号的赋值，但订单主表中预交日期为空时，预交日期文本框内容显示为当天日期。

求各位老师帮忙改一下，十分感谢。

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.2，在“提示”列显示文字“小于2.2平方米”。谢谢

甜老师：

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

在往数据库中增加数据时，发现数据越来越多，我想在“汇总单”（汇总单绑定订单主表）中增加一个“核销”逻辑列，

勾选某个订单的“核销”列，自动隐藏该订单在订单主表和明细表中的数据。取消勾选可恢复数据。

如果勾选了核销，生产单和结算单中是否也能够隐藏该订单的数据。

甜老师：帮忙看一下下面代码哪错了

Dim kf As WinForm.DropDownBox = e.Form.Controls("客户名称")

Dim cj As WinForm.ComboBox = e.Form.Controls("订单编号")

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

条件查询：在客户名称文本框中输入客户名称后，订单编号下拉框中自动列出该客户的订单编号，并且剔除“是否核销”列勾选的订单编号

甜老师：

下面是订单主表表事件代码，我在原来的基础上增加了一个颜色，在产品信息表中找出产品型号下的颜色，

并对订单主表中单价和颜色加价赋值，赋值时有时无，帮忙给一下，谢谢。

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 '自动引用产品型号和单位

甜老师：

我做了一个汇总表，窗口事件代码如下，但每次关闭再进入时，代码重新自动填充数据，造成数据重复，

帮忙给改一下，触发代码时，已填充的数据不进行填充，只对新增内容填充，非常感谢。

Dim f As New Filler

f.SourceTable = DataTables("订单主表") '指定数据来源

f.SourceCols = "订单编号,客户名称,客户电话,产品名称,产品型号,产品个数,订单面积,订单金额" '指定数据来源列

f.DataTable = DataTables("汇总表") '指定数据接收表

f.DataCols = "订单编号,客户名称,客户电话,产品名称,产品型号,产品个数,订单面积,订单金额" '指定数据接收列

f.Fill() '填充数据

甜老师：

还是不行，打开窗口后又重复填充了

甜老师，自动填充代码没有问题，对字符型、整数型、日期型的列可以填充，

但对单精度小数不行，触发后就出现重复填充。

甜老师：

我设计了一个标签打印按钮，打印内容为订单主表中的客户名称、生产编号、以及宽*高，

标签纸尺寸为宽107mm*高196mm，分三列打印，一个标签纸能打印24个标签，

每一个标签的尺寸为宽28mm*高18mm，

打印标签纸内容分三行，第一行为客户名称，第二行为生产编号，第三行为宽*高

另外打印时按张数列打印。

我现在能实现第一行和第二行，但第三行只能实现宽的数字，并且第2个生产编号的标签不在一页，

帮忙给改一下下面的代码，谢谢！！！！

Dim doc As New PrintDoc '定义一个报表

doc.PageSetting.Width = 205 '纸张宽度为100毫米

doc.PageSetting.Height = 292 '纸张高度为120毫米

Doc.PageSetting.LeftMargin = 4 '设置左边距

Doc.PageSetting.RightMargin = 104 '设置右边距

Doc.PageSetting.TopMargin = 5 '设置上边距

Doc.PageSetting.BottomMargin = 5 '设置下边距

doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式

Dim r As Row = Tables("订单明细表").current

For i As Integer = 1 To r("张数")

Dim rt As New prt.RenderTable() '定义一个表格对象

rt.Width = 31.2 '表格宽度为31.2mm

rt.Height = 16.5 '高度16.5毫米

rt.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割

rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割

rt.Cols(0).Width = 31.2

rt.Cells(0,0).Text = r("客户名称")

rt.Style.FontSize = 9 '字体大小为16磅

rt.Cells(1,0).Text = r("订单编号")

rt.Style.Spacing.Right = 2

rt.Cells(2,0).Text = r("宽")

rt.Style.Spacing.Right = 2

rt.Cells(2,1).Text = r("高")

rt.Style.Spacing.Left = 2

doc.Body.Children.Add(rt) '将表格对象加入到报表中

If i Mod 102 = 0 Then

Dim rm As new prt.RenderEmpty '定一个空对象

rm.BreakBefore = prt.BreakEnum.Page '打印前换页

doc.Body.Children.Add(rm) '加入到报表中

End If

If r("张数") > 0 AndAlso r("张数") Mod 102 <> 0 AndAlso r.Index < Tables("订单明细表").Rows.count - 1 Then

Dim rm As new prt.RenderEmpty '定一个空对象

rm.BreakBefore = prt.BreakEnum.Page '打印前换页

doc.Body.Children.Add(rm) '加入到报表中

End If

Doc.Preview() '预览报表

上一次自动填充问题

我将来源列设置为单精度小数，显示小数位为2，接收列设置为双精度小数，显示小数们为10，问题解决了

主题：文本框赋值