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


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

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

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


加好友 发短信
等级:三尾狐 帖子:672 积分:7909 威望: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


 回到顶部