Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

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


加好友 发短信
等级:婴狐 帖子:35 积分:322 威望:0 精华:0 注册:2017/5/21 17:59:00
[求助]  发帖心情 Post By:2017/10/15 19:32:00 [只看该作者]

现九月份(表名:Month9)和十月份(表名:Month10)各有一份民工出勤表,再有一个统计出勤表(表名:sdt),Sdt的姓名是从前两个表中得来的,且不充许重复,下面的代码要求从前面两个表中提取不重复的名字填入统计表Sdt中,下面的代码运行不了?

Dim skxms As List (of String)
Dim skxms1 As List (of String)
Dim i,l As Integer
If e.DataCol.name="xingming" Then
  skxms=DataTables("Sdt").getvalues("Xingming")
  For Each skdt As DataTable In DataTables
    skxms1=DataTables("skdt").getvalues("Xingming")
    l=skxms1.count
    For i=0 To l-1 Step 1 '在命令窗口显示数组的长度.
      If skxms.Contains(" & skxms1(i)")=False And e.DataRow("Xingming") Is Nothing Then
        e.DataRow("Xingming") = skxms1(i)
        i=i+1
      Else If skxms.contains(" & skxms1(i)")=False And e.DataRow("Xingming") IsNot Nothing Then
        Dim skdr As DataRow
        skdr = DataTables("sdt").AddNew()
        skdr("Xingming") = skxms1(i)
      End If
    Next
Next
End If 

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/15 20:13:00 [只看该作者]

单独做一个按钮,执行下面的代码

 

Dim tnames() As String = {"Month9", "Month10"}
For Each tname As String In tnames
    For Each s As String In DataTables(tname).GetValues("xingming")
        Dim fdr As DataRow = DataTables("sdt").find("xingming = ''" & s & "")
        If fdr Is Nothing Then
            Dim ndr As DataRow = DataTables("sdt").addnew
            ndr("xingming") = s
        End If
    Next
Next


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


加好友 发短信
等级:婴狐 帖子:35 积分:322 威望:0 精华:0 注册:2017/5/21 17:59:00
  发帖心情 Post By:2017/10/16 8:19:00 [只看该作者]

如何在系统菜单的基础上加上一个按钮?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/16 8:39:00 [只看该作者]


 回到顶部