以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 逻辑列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125516) |
-- 作者:liuandwang -- 发布时间:2018/9/29 20:34:00 -- 逻辑列 各位老师: 我在“结算表窗口”增加了内叶出货和外框出货两个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 End If 问题:文本框中不显示当天日期 2、重新打开该订单结算窗口后,CheckBox复选框和文本框显示该订单的出货记录, 比如某订单勾选了内叶出货CheckBox复选框,重新打开窗口时内叶出货复选框应是勾选的,并且文本框显示出货日期。(代码不会) 求完善,谢谢。 |
-- 作者:有点蓝 -- 发布时间:2018/9/30 8:59:00 -- 不需要写代码。窗口控件直接绑定列即可:http://www.foxtable.com/webhelp/scr/0704.htm 绑定后1楼的代码保留“主表事件代码”,其他的可以去掉
|
-- 作者:liuandwang -- 发布时间:2018/10/12 21:56:00 -- 我有可能没描述准确,“结算单”窗口中设置的“出货”复选框,在每次加载窗口时, 只要是该订单主表中“已出货”逻辑列打勾,则“结算单”窗口“出货”复选框也打勾。 目前我使用的是如下代码,但“出货”复选框不打勾,将文字部分替换显示为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 甜老师应怎么修改,谢谢 |
-- 作者:有点蓝 -- 发布时间:2018/10/12 22:03:00 -- Dim dr As DataRow = DataTables("订单主表").Find("订单编号 = \'" & e.form.controls("订单编号").Text & "\'") If dr IsNot Nothing Then e.form.controls("CheckBox1").checked = dr("已出货") End If |
-- 作者:liuandwang -- 发布时间:2018/10/13 20:54:00 -- 已搞定,谢谢 |
-- 作者:liuandwang -- 发布时间:2018/10/14 11:29:00 -- 老师: 我在订单录入窗口设置了一个按钮,想实现: 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 |
-- 作者:有点甜 -- 发布时间:2018/10/14 17:04:00 -- 代码、描述,无法确定问题,具体做个实例发上来测试。 |