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


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

主题:总分唯一排名代码问题

帅哥,在线噢!
有点蓝
  71楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


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

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

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


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


加好友 发短信
等级:超级版主 帖子:106923 积分:543834 威望: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


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

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

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


加好友 发短信
等级:超级版主 帖子:106923 积分:543834 威望: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


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

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

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


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

click事件

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


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


加好友 发短信
等级:超级版主 帖子:106923 积分:543834 威望: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

 回到顶部