Foxtable(狐表)用户栏目专家坐堂 → 这段代码怎么改


  共有3244人关注过本帖树形打印复制链接

主题:这段代码怎么改

帅哥哟,离线,有人找我吗?
xcxxm
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:226 积分:2499 威望:0 精华:0 注册:2013/8/20 18:47:00
这段代码怎么改  发帖心情 Post By: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才能识别商品,输入任意敲回车输入,该怎么改写,一直看不明白

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/22 15:34:00 [只看该作者]

没看懂想表达什么意思

 回到顶部
帅哥哟,离线,有人找我吗?
xcxxm
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:226 积分:2499 威望:0 精华:0 注册:2013/8/20 18:47:00
  发帖心情 Post By:2021/1/22 15:38:00 [只看该作者]

想实现输入值是任意的长度,然后敲回车键执行里面的代码,现在是必须输入6位的数字才回执行代码

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/22 15:39:00 [只看该作者]

去掉If Tx.Text.Length = 6 Then

 回到顶部
帅哥哟,离线,有人找我吗?
xcxxm
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:226 积分:2499 威望:0 精华:0 注册:2013/8/20 18:47:00
  发帖心情 Post By:2021/1/22 15:43:00 [只看该作者]

去掉以后,只要输入1个数字就执行了

商品编码是不定长的位数
[此贴子已经被作者于2021/1/22 15:45:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/22 15:46:00 [只看该作者]

您自己说的:想实现输入值是任意的长度。。。。。。。。麻烦想清楚再提问

如果要控制长度就把长度值改为合适的值

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/22 15:47:00 [只看该作者]

代码是放到texhchanged的吧,如果要输入完毕再执行就放到valuechanged事件

 回到顶部
帅哥哟,离线,有人找我吗?
xcxxm
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:226 积分:2499 威望:0 精华:0 注册:2013/8/20 18:47:00
  发帖心情 Post By:2021/1/22 15:52:00 [只看该作者]

可以了,谢谢老师

 回到顶部