Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]这个问题怎么解决


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

主题：[求助]这个问题怎么解决
帅哥哟，离线，有人找我吗？
有点蓝
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

For Each m As String In nms.keys
if m= "姓名" then
ndr (m) = Sheet(l,nms(m)).Value.split("_")(1)
else
……
 回到顶部
帅哥哟，离线，有人找我吗？
大雪山
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：290 积分：2931 威望：0 精华：0 注册：2008/9/29 10:13:00 		  发帖心情 Post By：2021/1/7 22:07:00 [只看该作者]

这个命令改加到什么位置上？麻烦老师一下，谢谢
[此贴子已经被作者于2021/1/7 22:08:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

     For n As Integer = 1 To Sheet.Rows.Count -1
            Dim sfzhm As String = sheet(n,nms("xh")).Text
            Dim kc As String = sheet(n,nms("sfzh")).Text
            If sfzhm = "" Then Continue For
            Dim dr As DataRow = dt.Find("xh = '" & sfzhm & "' and sfzh = '" & kc & "'")
            If dr Is Nothing Then
                ls.add(n)
            Else
                dic.Add(dr, n)
            End If
        Next
        For Each key As DataRow In dic.Keys
            For Each m As String In nms.keys
if m= "姓名" then
key(m) = Sheet(dic(key),nms(m)).Value.split("_")(1)
else
                If dt.DataCols(m).IsBoolean Then
                    If Sheet(dic(key),nms(m)).Text = "" OrElse Sheet(dic(key),nms(m)).Text = "False" OrElse Sheet(dic(key),nms(m)).Value = 0 Then
                        key(m) = False
                    Else
                        key(m) = True
                    End If
                Else If dt.DataCols(m).Expression > "" Then
                    '表达式列
                Else If dt.DataCols(m).IsNumeric Then
……
end if
 回到顶部
帅哥哟，离线，有人找我吗？
大雪山
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：290 积分：2931 威望：0 精华：0 注册：2008/9/29 10:13:00 		  发帖心情 Post By：2021/1/7 23:33:00 [只看该作者]

老师帮我修改下导入的错误命令，谢谢

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:导入.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim sfzhm As String = sheet(n,nms("姓名")).Text

        If sfzhm = "" Then Continue For
        Dim dr As DataRow = dt.Find("姓名 = '" & sfzhm & "'")
        If dr Is Nothing Then
            ls.add(n)
        Else
            dic.Add(dr, n)
        End If
    Next

    For Each key As DataRow In dic.Keys
        For Each m As String In nms.keys
            If m= "姓名" AndAlso Sheet(dic(key),nms(m)).Text Like "*_*" Then
                key(m) = Sheet(dic(key),nms(m)).Text.split("_")(1)
            Else
                If dt.DataCols(m).IsBoolean Then
                    If Sheet(dic(key),nms(m)).Text = "" OrElse Sheet(dic(key),nms(m)).Text = "False" OrElse Sheet(dic(key),nms(m)).Value = 0 Then
                        key(m) = False
                    Else
                        key(m) = True
                    End If
                Else If dt.DataCols(m).Expression > "" Then
                    '表达式列
                Else If dt.DataCols(m).IsNumeric Then
                    key(m) = val(Sheet(dic(key),nms(m)).Value)
                Else If dt.DataCols(m).IsDate Then
                    Dim d As Date
                    If Date.TryParse(Sheet(dic(key),nms(m)).Value, d)
                        key(m) = d
                    End If
                    
                Else
                    key(m) = Sheet(dic(key),nms(m)).Value
                End If
            End If
        Next
    Next
 回到顶部
帅哥哟，离线，有人找我吗？
大雪山
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：290 积分：2931 威望：0 精华：0 注册：2008/9/29 10:13:00 		  发帖心情 Post By：2021/1/8 10:23:00 [只看该作者]

修改后的导入公式，没有产生数据，麻烦老师再改下，谢谢

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:导入.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/8 10:37:00 [只看该作者]

我只是改了更新旧数据的处理，另外一段新增行的用法参考上面的发代码自己学着改

 回到顶部
帅哥哟，离线，有人找我吗？
大雪山
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：290 积分：2931 威望：0 精华：0 注册：2008/9/29 10:13:00 		  发帖心情 Post By：2021/3/10 12:56:00 [只看该作者]

导入近3000条excel数据时，出现以下问题，如何解决

 

 


图片点击可在新窗口打开查看此主题相关图片如下：屏幕截图 2021-03-10 125150.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/10 13:35:00 [只看该作者]

提示很明显了，成绩表没有课程A这个列

 回到顶部
帅哥哟，离线，有人找我吗？
大雪山
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：290 积分：2931 威望：0 精华：0 注册：2008/9/29 10:13:00 		  发帖心情 Post By：2021/4/24 10:41:00 [只看该作者]

问题：关联表的打印问题如何设计？实现模板的效果
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:成绩.rar

[此贴子已经被作者于2021/4/24 10:44:21编辑过]
 回到顶部
总数 36 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 7 次数据查询