Foxtable(狐表)用户栏目专家坐堂 → [求助]查询表-写成代码


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

主题:[求助]查询表-写成代码

帅哥哟,离线,有人找我吗?
bingo
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:315 威望:0 精华:0 注册:2013/6/5 15:17:00
  发帖心情 Post By:2013/6/7 17:06:00 [只看该作者]

通过report 的orderid 和 track的 orderidcn 关联起来;判断相等则将track的 trackingnumcn的值对应放到report的 trackingnum


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


加好友 发短信
等级:婴狐 帖子:31 积分:315 威望:0 精华:0 注册:2013/6/5 15:17:00
  发帖心情 Post By:2013/6/7 17:16:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:report导入.table

@XYT 已经上传

 

我就是要点击 上传追踪号 按钮  就会自动将track的trackingnumcn 的内容对应更新到report的 trackingnum 的列


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/6/7 17:26:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目98.table


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


加好友 发短信
等级:婴狐 帖子:31 积分:315 威望:0 精华:0 注册:2013/6/5 15:17:00
  发帖心情 Post By:2013/6/7 20:59:00 [只看该作者]

好的,谢谢,感谢狐爸的耐心回答。

 

我还有个问题,就是关于导出的,我现在只会用以下的代码:

Dim ex As New Exporter
ex.SourceTableName = "report" '指定导出表
ex.FilePath = "G:\Foxtable过程\report导入\shippingtool009.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "orderid,orderitemid,sku" '指定导出字段
ex.Export() '开始导出

 

“指定目标文件” 可不可以选择保存路径和窗口输入文件名;我查看了帮助,没有这方面的说明。

 

 

 


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/6/8 11:24:00 [只看该作者]


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


加好友 发短信
等级:婴狐 帖子:31 积分:315 威望:0 精华:0 注册:2013/6/5 15:17:00
  发帖心情 Post By:2013/6/9 20:41:00 [只看该作者]

感谢狐爸!

 

顺祝大家端午节快乐。

 

我现现在有一个关于通过代码导入 excel的问题,请看例子,我看过帮助,说excel表的标头要符合格式,不能有2个标头的,我已经修改过来了,但还是无法导入foxtable,这个shipfee的excel表我明天都要更新进去的。

 


图片点击可在新窗口打开查看此主题相关图片如下:导入帮助.jpg
图片点击可在新窗口打开查看


 

请帮忙看看我的“导入运费”按钮的代码应该如何修改,最好可以直接导入 shipfee有2个标头的这样格式的excel表

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:导入.table

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:shipfee.xlsx


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/6/13 9:23:00 [只看该作者]

合并excel和合并文本文件的代码是不同的,你不能硬套,合并Excel参考:

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

 

看帮助一定要按顺序,头一两遍可以不求甚解,第三遍开始要将每个例子实际操作演练一遍,不明白的就上论坛求助。
三遍之后才开始做系统,先设计好表,想做什么功能,就做什么功能,遇到问题在帮助找答案,找不到的在论坛提问,不断遇到问题,不断解决问题,慢慢就熟悉了。
此外一定要先掌握《使用指南》,然后再看《开发指南

 


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


加好友 发短信
等级:婴狐 帖子:31 积分:315 威望:0 精华:0 注册:2013/6/5 15:17:00
  发帖心情 Post By:2013/6/13 20:42:00 [只看该作者]

感谢狐爸,我都一直在论坛学习和看帮助的,真的有不了解才上来问。

这个问题我在论坛找到一些头绪了,已经在设计中。

 

我现在有个新的问题,

我参考到 帮助这段代码:

 

禁止输入重复值

我们知道,列有禁止输入重复内容的属性,不过这个属性有局限,就是只有直接在表格中输入的时候才有效,如果你通过窗口输入或者是通过代码设置,同样可以输入重复内容。

禁止单列输入重复值

假定有个订单表,要求订单号列不能输入重复值,可以将这个表的DataColChanging事件代码设置为:

 

If e.DataCol.Name = "订单号" Then
    Dim
dr As DataRow
    dr = e.
DataTable.Find("订单号 = '" & e.NewValue & "'")
   
If dr IsNot Nothing Then
        MessageBox.Show(
"此订单号已经存在!")
        e.Cancel =
True
    End
If
End
If

上述代码设置完成后,不管以任何方式,都无法输入重复的订单号。

 

--------------------------

现在我有个比较棘手的问题,就是订单号对应着一个日期的列,我想如果时间是同一日的话,则不做重复判断;如果时间是不同的话,则做重复判断并且只通过临时表显示出来这些重复值。

应该如何实现这个功能。

 

麻烦了~


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/6/14 9:06:00 [只看该作者]

If e.DataCol.Name = "订单号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("订单号 = '" & e.NewValue & "' And 日期 <> #" e.datarow("日期") & "#")
    If dr IsNot Nothing Then
        MessageBox.Show("此订单号已经存在!")
        e.Cancel = True
    End If
End If

 

另: 不同的问题,请单独发帖提问

[此贴子已经被作者于2013-6-14 9:06:14编辑过]

 回到顶部
总数 19 上一页 1 2