Foxtable(狐表) → 用户栏目 → 专家坐堂 → 判读行内序号


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

主题：判读行内序号
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		判读行内序号  发帖心情 Post By：2020/6/19 12:15:00 [只看该作者]

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



可以点击按钮，控件得到日期控件与事件日期列相同的行中，事件序号最大的一个数字再加1 可以吗？

比如控件日期是2020.0
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20200619121325.jpg
图片点击可在新窗口打开查看
6.19，然后判断事件日期有那些是2020.06.19，然后在被判断的行再次判断事件序号最大的数字，在这个数值的基础上在加一个1，比如现在是1，然后这个控件里面就等于2，如果最大是2，就等于3，
如果相同的日期行对应的事件序号没有数字，就默认为1，感谢 感谢
[此贴子已经被作者于2020/6/19 12:16:59编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107018 积分：544321 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/19 13:36:00 [只看该作者]

dim dr as datarow = datatables("A").find("事件日期=#" & e.form.controls("日期").value & "#"，"事件序号 desc")
if dr isnot nothing then
dr("事件序号") += 1
end if
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/6/19 14:07:00 [只看该作者]

老师，还有个问题，就是为什么改成控件就不对了，
Dim dr As DataRow = DataTables("表A").find("事件日期=#" & e.form.controls("DateTimePicker1").value & "#","事件序号 desc")
If dr IsNot Nothing Then
dr.Controls("NumericComboBox1").Text  += 1
Else
Forms("窗口1").controls("NumericComboBox1").text = "1"
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

没看懂这个代码要干啥

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/6/19 14:58:00 [只看该作者]

就是把红色这段代码改为控件，如果事件日期相同的行里事件序号列没有数据，就默认为1
Dim dr As DataRow = DataTables("表A").find("事件日期=#" & e.form.controls("DateTimePicker1").value & "#","事件序号 desc")
If dr IsNot Nothing Then
    dr("事件序号") += 1
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Forms("窗口1").controls("NumericComboBox1").value += 1

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/6/19 15:45:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20200619154345.jpg
图片点击可在新窗口打开查看

老师，可以是窗口控得到的内容是检查日期列与日期控件相同的行的事件序号最后以为最大的一个数字然后加1的结果，就是在检测在同一天，不能有两个相同的，根据序号排序，如果同日期的序号列一个都没有，控件内容就为1.

就是在同一天，然后我先检测有没这个序号（日期-后面的数字），如果有就在基础上加1，如果没有就设定为1、
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:序号自编.table
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107018 积分：544321 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/19 15:52:00 [只看该作者]

参考这里的用法：http://www.foxtable.com/webhelp/topics/2403.htm

看看示例是怎么取序号+1的
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/6/19 16:18:00 [只看该作者]

这个如果控制位数太麻烦了。老师，我就想这个编号就是日期+序号，先看看检测控件的日期和列的日期是否有相同的，如果没有，控件的序号控件就为1，如果如果有，就看表的序号列当天已经排到多少号了，然后控件在再最大的那个数字上加1，就产生的新的编号了，

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


加好友 发短信
等级：超级版主 帖子：107018 积分：544321 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/19 16:33:00 [只看该作者]

dim dr as datarow = datatables("A").find("事件日期=#" & e.form.controls("日期").value & "# and 事件序号 is not null"，"事件序号 desc")
if dr isnot nothing then
dim i as integer = val(dr("事件序号").substring(9)) + 1
Forms("窗口1").controls("NumericComboBox1").value = i
end if
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 6 次数据查询