判读行内序号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2404人关注过本帖树形打印复制链接主题：判读行内序号

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编辑过]

yangwenghd

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

yangwenghd

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

yangwenghd

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

yangwenghd

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2020/6/19 16:18:00 [显示全部帖子]

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

yangwenghd

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2020/6/19 16:46:00 [显示全部帖子]

谢谢老师，就是这个功能，只是在如果没有检查到控件日期和表列日期有相同的条件下和即便有相同的，但是序号列没有内容检查不多有字符时，控件为1.就是检测不对那个启点1就设置为1.

yangwenghd

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2020/6/19 17:58:00 [显示全部帖子]

可以了谢谢老师

下一主题 >> << 上一主题

主题：判读行内序号