Foxtable(狐表) → 用户栏目 → 专家坐堂 → 总分唯一排名代码问题


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

主题：总分唯一排名代码问题
帅哥，在线噢！
有点蓝
 小大  71楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113610 积分：578581 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/2/24 17:31:00 [只看该作者]

都说代码里列名写错了，就不能打开表结构仔细比较一下看看真正的列名吗？到底是八班级还是八年级？

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


加好友 发短信
等级：四尾狐 帖子：972 积分：6601 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/2/24 21:58:00 [只看该作者]

对不起，蓝老师，确定是眼睛看花了，不认真，该检讨。祝老师元宵节快乐！

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


加好友 发短信
等级：四尾狐 帖子：972 积分：6601 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/2/25 9:09:00 [只看该作者]

下面是从系统或指定文件夹中，提取文件名和完整路径代码，此代码不完美
'For Each File As String In FileSys.GetFiles(ProjectPath & "\Attachments\新建文件夹\") ’从系统文件夹
For Each File As String In FileSys.GetFiles("G:\项目1\项目11\新建文件夹\") '从指定文件夹中 
 Dim r As Row = Tables("表A").AddNew
 r("文件完整路径及文件名") = File
NeXt
此代码能用。点按钮时准确的列出想要的答案。可是再按一下，又重新新增一次。能否加一个判断，再点窗口按钮时，表中已有的不再提取，表中没有的再新增提取。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  74楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113610 积分：578581 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/2/25 20:16:00 [只看该作者]

For Each File As String In FileSys.GetFiles("G:\项目1\项目11\新建文件夹\") '从指定文件夹中 
 Dim dr As datarRow = dataTables("表A").find("文件完整路径及文件名='" & File & "'")
if dr is nothing then
 dr = dataTables("表A").AddNew
 dr("文件完整路径及文件名") = File
end if
NeXt
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  75楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：6601 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/2/25 21:50:00 [只看该作者]

谢谢老师的解答。我想问一下老师，比如一个照片文件夹存放考生的照片，以身份证号码.jpg为文件名，我在项目表中建有考生、身份证号码、照片三列，我将文件夹里文件名称提取到表照片列，能否编代码实观对应关系，可以单击照片列打开对应的文件？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  76楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113610 积分：578581 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/2/25 21:59:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/0353.htm

Dim Proc As New Process '定义一个新的Process
Proc.File = "C:\照片文件夹\" & e.datarow("照片列") '指定要打开的文件
Proc.Start()
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  77楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：6601 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/2/26 7:17:00 [只看该作者]

谢谢，请教老师应将此代码放在表哪个事件中？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  78楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113610 积分：578581 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/2/26 8:33:00 [只看该作者]

click事件

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


加好友 发短信
等级：四尾狐 帖子：972 积分：6601 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/2/26 17:12:00 [只看该作者]

我想提取照片文件夹的文件名到表对应的照片列, 且满足提取的文件名(不含后缀)与身份证号码相同
For Each File As String In FileSys.GetFiles(ProjectPath & "\Attachments\照片文件夹\")
    Dim dr As DataRow = DataTables("提取文件名").Find("照片列 = '" & FileSys.GetName(File) & "'")
    If dr Is Nothing Then 
        Dim str As String = FileSys.GetName(File).split(".")(0) 
        Dim czkh As DataRow = DataTables("提取文件名").find("身份证号码= '" & str & "'") '精确查找     
        czkh("照片列") = FileSys.GetName(File)
    End If
Next
老师帮忙看一下，是什么问题
 回到顶部
帅哥，在线噢！
有点蓝
 小大  80楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113610 积分：578581 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/2/26 17:26:00 [只看该作者]

For Each File As String In FileSys.GetFiles(ProjectPath & "\Attachments\照片文件夹\")

        Dim str As String = FileSys.GetName(File)
        Dim czkh As DataRow = DataTables("提取文件名").find("身份证号码= '" & str.split(".")(0)  & "'") '精确查找     
If czkh Isnot Nothing Then 
czkh("照片列") = str
endif
       
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 4 次数据查询