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


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

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


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/26 9:46:00 [显示全部帖子]

卸载重新安装一下office，需要安装完整版的，最好是32位版本。不能安装精简版、绿色版的。一般Ghost系统自带的都是精简版。

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


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/26 14:10:00 [显示全部帖子]

安装的office不是完整版的，如果安装有wps卸载掉，再重装office。如果高版本的office如2016/2019不行就安装2007/2010/2013版，最好是安装32位的版本

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


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/31 9:28:00 [显示全部帖子]

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


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/3 11:24:00 [显示全部帖子]

nr("学号") = text1.replace(chr(13)，“”)

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


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/3 15:06:00 [显示全部帖子]

nr("学号") = text1.replace(chr(13),"").replace(chr(7),"")  

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


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/3 16:37:00 [显示全部帖子]

                Dim text1 = tb.cell(i,2).Range.Text.trim(“”).replace(chr(13),"").replace(chr(7),"")    
                If len(text1) =0 Then Continue For
                nr = Tables("成绩单").AddNew
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/7 17:05:00 [显示全部帖子]

dim s as string = "123133_张三"
dim s1 as string = s.split("_")(1)
msgbox(s1)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/7 20:06:00 [显示全部帖子]

http://http://www.foxtable.com/webhelp/topics/0245.htm

dim s as string = Tables("表A").current("姓名")
Tables("表A").current("姓名列") = s.split("_")(1)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
……
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
总数 17 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询