| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- i1不能递增 麻烦老师看看 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170380) |
| -- 作者：cnsjroom -- 发布时间：2021/7/24 9:19:00 -- i1不能递增 麻烦老师看看 i1不能递增 麻烦老师看看 Dim bb As WinForm.TextBox = e.Form.Controls("目标位置") Dim bm As WinForm.ComboBox = e.Form.Controls("煤矿编码") Dim i1 As Integer = 0 …… Dim Products As List(Of String) Products = xzqy.SQLGetValues("卡号") For Each Product As String In Products …… r.Current("工号")=i1 + 1 MessageBox.Show(i1 + 1) …… Next
|
| -- 作者：有点蓝 -- 发布时间：2021/7/24 9:27:00 -- 没看懂，请截图或者上传实例说明 |
| -- 作者：有点蓝 -- 发布时间：2021/7/24 9:28:00 -- 这个意思？ Dim i1 As Integer = 0 r.Current("工号")=i1 i1 = i1 + 1 |
| -- 作者：cnsjroom -- 发布时间：2021/7/24 9:35:00 -- 回复：（有点蓝）这个意思？Dim i1 As Integer = 0r.C... ok 谢谢！ |
| -- 作者：cnsjroom -- 发布时间：2021/7/24 9:52:00 -- 回复：（有点蓝）这个意思？Dim i1 As Integer = 0r.C... 老师 有没有办法设定一下 如果不满足两位数 就在前面添加0 谢谢 01 02 03 04 05 06 07 08 09 10 ……
|
| -- 作者：qq252476275 -- 发布时间：2021/7/24 9:56:00 -- Dim i As Integer = 0 For i = 0 To 100 - 1 \' i = i + 1 Output.Show( right(("0" & i),2)) Next
|
| -- 作者：有点蓝 -- 发布时间：2021/7/24 9:59:00 -- 或者：http://www.foxtable.com/webhelp/topics/0243.htm |