以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 窗口表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=152934) |
-- 作者:125803629 -- 发布时间:2020/7/26 21:42:00 -- 窗口表 窗口中有个表table3 一个录入窗口。录入窗口中有按钮“第一行”
代码:Tables("窗口1_table3").Position = 0 单价后,焦点是滚动到第一行结束。 而不是直接跳到第一行。怎么办? |
-- 作者:有点蓝 -- 发布时间:2020/7/26 21:44:00 -- 应该是主表和副本表互相联动的原因:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=152702&skin=0 |
-- 作者:125803629 -- 发布时间:2020/7/26 22:57:00 -- // If DataTables("窗口1_table3").DataRows(0).IsNull("经度") And DataTables("窗口1_table3").DataRows(0).IsNull("纬度") Then \'原值DataTables("窗口1_table3").DataRows(1).IsNull("养殖户类型") // MessageBox.Show("没有经纬度坐标!") // Else |
-- 作者:125803629 -- 发布时间:2020/7/26 22:58:00 -- 这句代码有问题吗?没按照我的意思执行。 |
-- 作者:125803629 -- 发布时间:2020/7/26 22:59:00 -- 其他代码不让传,不知道哪里受限制 |
-- 作者:有点蓝 -- 发布时间:2020/7/26 23:01:00 -- 您的意思是什么意思呢?需要实现什么功能? |
-- 作者:125803629 -- 发布时间:2020/7/26 23:07:00 -- Dim file As String = ProjectPath & "map" Dim fdr As DataRow Dim markers As String = "" For Each fdr In DataTables("窗口1_table3").Select("经度 > 0 and 纬度 > 0") If DataTables("窗口1_table3").DataRows(0).IsNull("经度") And DataTables("窗口1_table3").DataRows(0).IsNull("纬度") Then MessageBox.Show("其他用户已经抢先处理此行!") Else markers &= fdr("经度") & "," & fdr("纬度") & "," & fdr("_Identify") & "|" Dim html As String = FileSys.ReadAllText(file) [此贴子已经被作者于2020/7/26 23:18:26编辑过]
|
-- 作者:125803629 -- 发布时间:2020/7/26 23:10:00 -- 代码上部分是这样了。我的意思是、 如果没有坐标数据,弹出MessageBox.Show("其他用户已经抢先处理此行!")
|
-- 作者:125803629 -- 发布时间:2020/7/26 23:11:00 -- 结果是。没有坐标数据。它不执行,也不弹出MessageBox.Show("其他用户已经抢先处理此行!") |
-- 作者:有点蓝 -- 发布时间:2020/7/26 23:18:00 -- 这个“没有坐标数据”是指某一行没有数据,还是指这个表只要有一行没有数据就提示? “没有坐标数据”是指经度纬度都没有数据,还是其中一个没有数据就提示?
|