- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=150553)
-- 发布时间：2020/6/2 8:40:00
-- 求助
此主题相关图片如下：2.png
我在图片1的文本框输入条码后出现图片2的提示
窗口keydown代码如下：
Dim title As WinForm.TextBox = e.Form.Controls("title")
Dim s As String = "title"
Dim r As Row = Tables("GB").AddNew()
If e.KeyCode.Enter Then
r("spdm") = s.SubString(0,7)
r("GG1DM") = s.SubString(7,2)
r("GG2DM") = s.SubString(9,2)
r.save()
DataTables("GB").Save()
e.Cancel = True
End If
是我哪里写错了，还是怎么回事啊
此主题相关图片如下：1.png
此主题相关图片如下：1.png-- 发布时间：2020/6/2 8:44:00
--
长度不够呗
-- 发布时间：2020/6/2 8:49:00
--
问题输入的是11位啊
-- 发布时间：2020/6/2 8:51:00
--
If e.KeyCode = keys.Enter Then
Dim title As WinForm.TextBox = e.Form.Controls("title")
Dim s As String = "title"
Dim r As Row = Tables("GB").AddNew()
r("spdm") = s.SubString(0,7)
r("GG1DM") = s.SubString(7,2)
r("GG2DM") = s.SubString(9,2)
r.save()
DataTables("GB").Save()
e.Cancel = True
End If
-- 发布时间：2020/6/2 8:58:00
--
有点蓝老师，还是不对，还是提示一样的
-- 发布时间：2020/6/2 9:04:00
--
说明输入的字符长度不一致
If e.KeyCode = keys.Enter Then
Dim title As WinForm.TextBox = e.Form.Controls("title")
Dim s As String = title.text
Dim r As Row = Tables("GB").AddNew()
if s.length > 7 then r("spdm") = s.SubString(0,7)
if s.length > 8 then r("GG1DM") = s.SubString(7,2)
if s.length > 10 then r("GG2DM") = s.SubString(9,2)
r.save()
DataTables("GB").Save()
e.Cancel = True
End If
[此贴子已经被作者于2020/6/2 9:04:21编辑过]
-- 发布时间：2020/6/2 9:18:00
--
好的，谢谢蓝老师
-- 发布时间：2020/6/2 10:06:00
--
蓝老师，我想加个判断重复值提示并清除，该怎么写
Select Case e.DataCol.name
Case "SPDM","GG1DM","GG2DM"
Dim dr As DataRow = e.DataRow
If dr.IsNull("SPDM") = False AndAlso dr.IsNull("GG1DM") = False AndAlso dr.IsNull("GG2DM") = False Then
If e.DataTable.Compute("Count([_Identify])","SPDM = \'" & dr("SPDM") & "\' And GG1DM = \'" & dr("GG1DM") & "\' And GG2DM =\'" & dr("GG2DM") & "\' ") > 1 Then
MessageBox.Show("该商品已挂板","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.DataRow(e.DataCol.Name) = e.OldValue \'取消输入
End If
End If
End Select
这样依然会写在表上
-- 发布时间：2020/6/2 10:14:00
--
代码没有问题，请上传实例测试
-- 发布时间：2020/6/2 10:34:00
--
麻烦蓝老师看下
