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


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

主题：[求助] 附件问题
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2015/3/19 16:10:00 [只看该作者]

在当前表中新增一行，并将光标移动到新增行上；命令该怎么写？

CurrentTable.AddNew()
将光标移动到新增行上
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 就是直接写啊

 

CurrentTable.AddNew()

 

 或者

 

Tables("表A").AddNew()
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2015/3/19 16:20:00 [只看该作者]

光标并没有移动到新增的行上、还是在原来的行

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


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

以下是引用wumingrong1在2015/3/19 16:20:00的发言：
光标并没有移动到新增的行上、还是在原来的行

 

那说明，你的表名写错了。

 

Tables("表A").AddNew()
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2015/3/19 17:20:00 [只看该作者]

我如何把附件的路径去掉不显示？

图片点击可在新窗口打开查看此主题相关图片如下：360截图20150319171930815.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目16.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

在timerTick事件加入下面的代码，然后去处理一下打开事件

 

Dim lbx As object = e.Form.Controls("FileManager1").basecontrol.Controls("SplitContainer1").panel1.Controls("ListBox1")
For i As Integer = 0 To lbx.Items.Count - 1
    lbx.items(i) = FileSys.GetName(lbx.items(i))
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2015/3/20 15:59:00 [只看该作者]

OK、原来是计时器没有打开

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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/5/12 15:52:00 [只看该作者]

在【添加】按钮中写有以下命令；提示错误

 

Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png;*.txt;*.xls;*.doc;*.cad;*.vsd;*.pptx;*.dwg;*.kmz;*.mdb;*.psd;*.rar"
If dlg.ShowDialog = DialogResult.OK Then
    Dim fl As String = dlg.FileName
   
    DataTables("工程资料台帐表附件").Save()
    Dim r As Row = Tables("工程资料台帐表附件").AddNew()
    DataTables("工程资料台帐表附件").Save()
    r("项目编号") = Forms("工程资料台帐表主窗口").Controls("项目编号").Text    
    r("文件名") = FileSys.GetName(fl) '写入文件名
    r.Save '必须先保存
    r.DataRow.SQLInsertFile("附件",fl) '插入文件
    r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) '保存crc检验值
End If

 

 

 



此主题相关图片如下：360截图20160512155100184.jpg
按此在新窗口浏览图片

此主题相关图片如下：360截图20160512155125563.jpg
按此在新窗口浏览图片
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/5/12 15:56:00 [只看该作者]

去设置_Identify为自增的主键

 

http://www.foxtable.com/help/topics/1807.htm

 
 回到顶部
总数 32 上一页 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.05078 秒, 6 次数据查询