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

各位老师：

我在“结算表窗口”增加了内叶出货和外框出货两个CheckBox复选框按钮，并分别在其后增加了文本框，用以显示出货日期。

1、勾选按钮时，文本框显示当天日期，同时记录在该订单的订单主表出货日期列中。

内叶出货按钮代码：

Dim r As WinForm.CheckBox = e.Form.Controls("内叶出货")

If r.Checked = True Then

Dim ddh As String = e.form.controls("订单编号").Text

Dim fdr As DataRow = DataTables("订单主表").find("订单编号 = '" & ddh & "'")

fdr("内叶出货") = True

End If

主表事件代码：

If e.DataCol.Name = "内叶出货"

If e.DataRow("内叶出货") = True Then

Dim rq As Date = Date.Today

e.DataRow("内叶出货日期" )= rq

End If

问题：文本框中不显示当天日期

2、重新打开该订单结算窗口后，CheckBox复选框和文本框显示该订单的出货记录，

比如某订单勾选了内叶出货CheckBox复选框，重新打开窗口时内叶出货复选框应是勾选的，并且文本框显示出货日期。（代码不会）

求完善，谢谢。

不需要写代码。窗口控件直接绑定列即可：http://www.foxtable.com/webhelp/scr/0704.htm

绑定后1楼的代码保留“主表事件代码”，其他的可以去掉

我有可能没描述准确，“结算单”窗口中设置的“出货”复选框，在每次加载窗口时，

只要是该订单主表中“已出货”逻辑列打勾，则“结算单”窗口“出货”复选框也打勾。

目前我使用的是如下代码，但“出货”复选框不打勾，将文字部分替换显示为TURE或者是FALSE.

Dim drs As List(Of DataRow) = DataTables("订单主表").Select("订单编号 = '" & e.form.controls("订单编号").Text & "'")

If drs.count > 0 Then

e.form.controls("CheckBox1").Text = drs(0)("已出货")

Else

e.form.controls("CheckBox1").Text = Nothing

End If

甜老师应怎么修改，谢谢

Dim dr As DataRow = DataTables("订单主表").Find("订单编号 = '" & e.form.controls("订单编号").Text & "'")

If dr IsNot Nothing Then

e.form.controls("CheckBox1").checked = dr("已出货")

End If

老师：

我在订单录入窗口设置了一个按钮，想实现：

1、点击按钮，直接打开结算单窗口。

2、同时，结算单窗口绑定表显示为当前订单录入窗口中输入文本框内容中“客户名称”和“订单编号”的“订单订单明细表”

3、同时，结算单窗口的“客户名称”和“订单编号”和“面积”及“订单金额”文本框显示该订单的“订单主表”中相应的内容

目前，结算单窗口的文本框不显示内容，并且提示订单录入窗口已关闭，不能使用订单编号，求助完善代码

Dim Filter As String

With e.Form.Controls("客户名称")

If .Value IsNot Nothing Then

Filter = "客户名称 = '" & .Value & "'"

End If

End With

With e.Form.Controls("订单编号")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "订单编号 = '" & .Value & "'"

End If

End With

If Filter > "" Then

Dim frm As WinForm.Form

frm = Forms("门结算单")

frm.show()

Tables("门结算单_门订单明细表").Filter = Filter

End If

Dim dr As DataRow = DataTables("门订单主表").Find("订单编号 = '" & e.form.controls("订单编号").text& "'")

If dr IsNot Nothing Then

e.form.controls("客户名称").Text = dr(0)("客户名称")

e.form.controls("订单编号").Text = dr(0)("订单编号")

e.form.controls("面积").Text = dr(0)("面积")

e.form.controls("订单金额").Text = dr(0)("订单金额")

End If

代码、描述，无法确定问题，具体做个实例发上来测试。

主题：逻辑列