Foxtable(狐表)用户栏目专家坐堂 → i1不能递增 麻烦老师看看


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

主题:i1不能递增 麻烦老师看看

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


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
i1不能递增 麻烦老师看看  发帖心情 Post By:2021/7/24 9:19:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

没看懂,请截图或者上传实例说明

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

这个意思?
Dim i1 As Integer = 0


r.Current("工号")=i1
i1 = i1 + 1

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


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)这个意思?Dim i1 As Integer = 0r.C...  发帖心情 Post By:2021/7/24 9:35:00 [只看该作者]

ok  谢谢!

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


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)这个意思?Dim i1 As Integer = 0r.C...  发帖心情 Post By:2021/7/24 9:52:00 [只看该作者]

老师  有没有办法设定一下  如果不满足两位数  就在前面添加0  谢谢


01
02
03
04
05
06
07
08
09
10
……

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


加好友 发短信
等级:幼狐 帖子:196 积分:1429 威望:0 精华:0 注册:2020/5/23 14:56:00
  发帖心情 Post By: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 

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


 回到顶部