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


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

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

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


加好友 发短信
等级:三尾狐 帖子:629 积分:6811 威望:0 精华:0 注册:2016/6/11 11:10:00
按B表循环顺序填充到A表  发帖心情 Post By:2021/4/8 19:43:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:2021-04-08_193737.png
图片点击可在新窗口打开查看

B表,即循环顺序表

图片点击可在新窗口打开查看此主题相关图片如下:2021-04-08_193745.png
图片点击可在新窗口打开查看
自己搞了很久都没有搞好,请教老师,像要实现这样的功能,其代码应该是怎么样写,谢谢。
If e.DataCol.Name = "N1" Then
    If Forms("增加排班").opened()
        MessageBox.Show(0)
        Dim nf As String=Forms("增加排班").Controls("ComboBox2").value
        Dim yf As String=Forms("增加排班").Controls("ComboBox3").value
        Dim ts As Integer=Date.DaysInMonth(nf,yf)
        If e.DataRow("N1") = "中1" Then
            For i As Integer =2 To ts
                    ...........
                    ...........
                    End If
                Next
            Next
        End If
    End If
End If


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


加好友 发短信
等级:超级版主 帖子:67446 积分:341914 威望: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
……

 回到顶部