| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 这段代码怎么改 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160156) |
| -- 作者：xcxxm -- 发布时间：2021/1/22 15:24:00 -- 这段代码怎么改 Dim Tx As WinForm.DropDownBox = e.Sender If Tx.Text.Length = 6 Then If Tables("销售订单").Rows.Count = 0 Then Tables("销售订单").AddNew() Dim r1 As Row = Tables("销售订单").Current e.Form.Controls("卡号").Text = "会员卡号:" & r1("会员卡号") e.Form.Controls("姓名").Text = "姓名:" & r1("姓名") e.Form.Controls("折扣").Text = "折扣:" & r1("折扣") Dim dr As DataRow = DataTables("会员资料").Find("会员卡号=\'" & r1("会员卡号") & "\'") If dr IsNot Nothing Then e.Form.Controls("积分").Text = "积分:" & dr("积分") End If e.Form.Controls("销售单号").Text ="销售单号:" & r1("销售单号") e.Form.Controls("操作员").Text ="操作员:" & r1("操作员") e.Form.Controls("销售日期").Text ="销售日期:" & r1("销售日期") Else Forms("主界面").Controls("卡号").Text = "会员卡号:" Forms("主界面").Controls("姓名").Text = "姓名:" Forms("主界面").Controls("折扣").Text = "折扣:" Forms("主界面").Controls("积分").Text = "积分:" Forms("主界面").Controls("销售单号").Text ="销售单号:" Forms("主界面").Controls("操作员").Text ="操作员:" Forms("主界面").Controls("销售日期").Text ="销售日期:" End If If Tables("销售订单.销售明细").Rows.Count > 0 Then Dim r1 As Row = Tables("销售订单.销售明细").AddNew r1("商品编号")= Tx.Text Tables("销售订单.销售明细").DataTable.DeleteFor("商品编号 Is Null") r1.save() Tx.Text= Nothing Dim dr As Row = Tables("销售订单").Current Dim i As Integer = Tables("销售订单.销售明细").DataTable.Compute("Count(销售单号)","销售单号=\'" & dr("销售单号") & "\'") Dim n1 As Double = Tables("销售订单.销售明细").DataTable.Compute("Sum(售价小计)","销售单号=\'" & dr("销售单号") & "\'") Forms("主界面").Controls("销售小计").Text = "销售数量:" & i & "笔" & " " & "合计金额:" & n1 & "元" Forms("主界面").Controls("销售合计").Text = "共" & n1 & "元" Else Forms("主界面").Controls("销售合计").Text = "共0元" Forms("主界面").Controls("销售小计").Text ="消费数量:0 笔 合计金额:0元" End If End If 红色部分，不让数值等于6才能识别商品，输入任意敲回车输入，该怎么改写，一直看不明白
|
| -- 作者：有点蓝 -- 发布时间：2021/1/22 15:34:00 -- 没看懂想表达什么意思 |
| -- 作者：xcxxm -- 发布时间：2021/1/22 15:38:00 -- 想实现输入值是任意的长度，然后敲回车键执行里面的代码，现在是必须输入6位的数字才回执行代码 |
| -- 作者：有点蓝 -- 发布时间：2021/1/22 15:39:00 -- 去掉If Tx.Text.Length = 6 Then |
| -- 作者：xcxxm -- 发布时间：2021/1/22 15:43:00 -- 去掉以后，只要输入1个数字就执行了 商品编码是不定长的位数
[此贴子已经被作者于2021/1/22 15:45:16编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2021/1/22 15:46:00 -- 您自己说的：想实现输入值是任意的长度。。。。。。。。麻烦想清楚再提问 如果要控制长度就把长度值改为合适的值
|
| -- 作者：有点蓝 -- 发布时间：2021/1/22 15:47:00 -- 代码是放到texhchanged的吧，如果要输入完毕再执行就放到valuechanged事件 |
| -- 作者：xcxxm -- 发布时间：2021/1/22 15:52:00 -- 可以了，谢谢老师 |