老师好，一个表中的点检序号加入有 1，2,3,7,8,9,10我想设置一个按钮 ， 如果组合框中原来是1，点击后自动变为 2，再点击变 3 之后是 7,8,9,10,1，2,3
我的代码是这样写的
Dim djxh As WinForm.TextBox = Forms("点检窗口").Controls("点检序号")
Dim x As String = djxh.Value
Dim Products As List(Of String)
Products = DataTables("点检序号总表").GetValues("点检序号")
For Each Product As String In Products
If x <> "" Then
x = val(x) + 1
Dim r As DataRow = DataTables("点检序号总表").find("点检序号 = '" & x & "'")
If r IsNot Nothing Then
djxh.Value = x
'ElseIf product > x Then
'djxh.value = product
End If
End If
next
出来之后数全是乱弹，求帮忙改一下
加好友 
发短信
Post By：2016/8/27 10:54:00 [只看该作者]
