Foxtable(狐表)用户栏目专家坐堂 → 按B表循环顺序填充到A表


  共有45人关注过本帖平板打印复制链接

主题:按B表循环顺序填充到A表

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

……
Dim ts As Integer=Date.DaysInMonth(nf,yf)
dim s1() as string = {"中1","中2",...}
dim idx as integer = array.Indexof(s1, e.DataRow("N1"))
if idx = -1 then return
For i As Integer =2 To ts
idx = idx + 1
if idx = s1.length then idx = 0
      e.DataRow("N" & i) = s1(idx)
end if
Next
……

 回到顶部