Foxtable(狐表)用户栏目专家坐堂 → [灌水]大家来找茬(帮助文件中的错误)


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

主题:[灌水]大家来找茬(帮助文件中的错误)

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


加好友 发短信
等级:四尾狐 帖子:936 积分:6806 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2016/6/2 11:05:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:20160602.png
图片点击可在新窗口打开查看
上图箭头所指的“超链接”无效!

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


加好友 发短信
等级:二尾狐 帖子:569 积分:5207 威望:0 精华:0 注册:2012/1/20 17:53:00
  发帖心情 Post By:2016/8/15 11:50:00 [只看该作者]

GenerateTree

有的时候,目录树要根据两列内容生成,一列指定路径,一列指定标题,根据两列内容生成目录树需要使用GenerateTree方法。

语法:

GenerateTree(DataTableName, PathCol, TextCol, Separator, Filter, Sort)

CreateTree  (DataTable, PathCol, TextCol, Separator, Filter, Sort) ''''''''''红色的而应为(GenerateTree

DataTableName: 数据表名
DataTable:    数据表
PathCol:      路径列名
TextCol:      标题列名
Separator:    可选参数,设置分隔符,默认分隔符为“\”
Filter:        可选参数,设置过滤条件,请参考表达式的运算符和函数 和 条件表达式
Sort:          可选参数,设置排序,默认根据ColumnName参数指定的列排序

提示:如果分割符号不是“\”,则Sort参数无效。

示例


 回到顶部
帅哥哟,离线,有人找我吗?
沦落深蓝
  133楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:167 积分:1139 威望:0 精华:0 注册:2016/2/21 18:26:00
  发帖心情 Post By:2016/8/30 17:33:00 [只看该作者]

ListView和数据表的互动


修改 按钮代码设置



Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim
vr As WinForm.ListViewRow = lvw.Current '获取ListView的当前行
If
vr Is Nothing Then '如果不存在当前行,也就是内有选定任何一行
    Return
End If
Dim
dr As DataRow = vr.tag '获取此行对应的DataRow
Dim
ps As Integer = Tables("员工").FindRow(dr)
If
ps >= 0 Then
    Tables(
"员工").Position = ps
   
Forms("员工信息").Open
    For Each
cl As WinForm.ListViewColumn In lvw.Columns '逐列更新值
       
vr(cl.Name) = r(cl.Name)      -----------------》此处应为  dr(cl.Name)               
   
Next
End If


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


加好友 发短信
等级:小狐 帖子:368 积分:2925 威望:0 精华:0 注册:2013/11/2 0:01:00
  发帖心情 Post By:2016/9/7 21:19:00 [只看该作者]

RowState

返回行的状态。

行状态是一个DataRowState型枚举,包括以下值:

说明
Added 新增加的行
Modified 已经修改过的行
Unchanged 未曾修改的行
Detached 刚刚创建,还未添加到DataTable中的行;在讲述事件编程的时候,我们会接触到这种状态的行。

例如,统计一下订单表中新增行的订购数量之和:

Dim dt As DataTable = DataTables("订单")
Dim
sum As Long
For
Each dr As DataRow In dt.DataRows
    If
dr.RowState = DataRowState.Added Then
        sum = sum + dr(
"数量")
    End
If
Next

Output.Show(Sum)

 

 

现在不只是这个几个了。很多人在这里误会了。而且还有人认为上面的4个状态,就是对应1、2、3、4,其实是1、2、4、8、16

用代码去列举所有的行状态:
For Each item As DataRowState In [Enum].GetValues(Gettype(DataRowState ))
Output.Show(item & "-" & item.Tostring())
Next
 
得出结果
1-Detached (刚新建,还没进去表里,你看不到。即是datarowAdding事件里的那种行状态)
2-Unchanged (蓝色行号)
4-Added (红色行号)
8-Deleted (已删除,未保存,你看不到。几乎不会用到,但是有个例外情况,就是你的根据某行做为条件,切换行时动态加载该行某些数据时,注意删除时会引发的报错。详情可参考我的帖子:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=90216
16-Modified (橙色行号)

 

现在有 1 2 4 8 16,帮助文档里解释一下这几个行吧,很多稍微进阶一点,都想知道行具体状态,方便是跟进事件。我觉得我这里写行号颜色,很好理解,其实很多人就是想知道行号颜色对应的状态去编辑事件,一开始只看着这几个状态,都无法理解,其实只需要用行号颜色解释,一下子就懂了!

 

[此贴子已经被作者于2016/9/7 21:25:31编辑过]

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


加好友 发短信
等级:四尾狐 帖子:936 积分:6806 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2016/11/7 20:32:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:帮助中的错误001.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:帮助中的错误001_1.png
图片点击可在新窗口打开查看


http://www.foxtable.com/webhelp/scr/2884.htm

http://www.foxtable.com/webhelp/scr/2884.htm
[此贴子已经被作者于2016/11/14 11:57:09编辑过]

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


加好友 发短信
等级:四尾狐 帖子:936 积分:6806 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2016/11/14 11:47:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:帮助中的错误002.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:四尾狐 帖子:936 积分:6806 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2016/11/14 12:12:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:帮助中的错误003.png
图片点击可在新窗口打开查看

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:8953 积分:51324 威望:0 精华:16 注册:2008/9/1 9:45:00
  发帖心情 Post By:2016/12/6 9:39:00 [只看该作者]

 Dim y As Integer = 2011 '指定年份
Dim
m As Integer = 6 '指定月份
Dim
dt1 As New Date(y, m, 1)
Dim
dt2 As New Date(y, m, Date.DaysInMonth(y,6)) '获取该月的最后一天
Dim
Filter As String
Filter
= "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
DataTables
("订单").LoadFilter = Filter
DataTables
("订单").Load()


Dim dt2 As New Date(y, m, Date.DaysInMonth(y,6)) '获取该月的最后一天
 这边的 6 应该改成 m


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


加好友 发短信
等级:四尾狐 帖子:936 积分:6806 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2016/12/8 12:43:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:帮助中的错误004.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:婴狐 帖子:10 积分:133 威望:0 精华:0 注册:2016/12/25 22:42:00
  发帖心情 Post By:2017/1/14 19:51:00 [只看该作者]

http://pan.baidu.com/s/1o8FFJUq
代码编辑器
索引
输入Compute
左侧下方说明实例三,应为示例三

 回到顶部