Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]光标定位


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

主题：[求助]光标定位
帅哥哟，离线，有人找我吗？
huhu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		[求助]光标定位  发帖心情 Post By：2016/2/27 17:11:00 [显示全部帖子]

打开窗口，希望表A自动增加一行，并且光标自动定位到第一列。
这个怎么弄？
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/2/27 17:25:00 [显示全部帖子]

afterload代码：红色代码没生效。
Dim jbr As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim d As Integer = user.name.Indexof("@")
Dim xx As String = user.name.SubString(0,d)
jbr.text = xx
Dim fckyrkzsl As WinForm.Button = e.Form.Controls("Button4")
fckyrkzsl.text = Vars("fckrkdhwb")

Tables("非插卡收货扫描").AddNew
Tables("非插卡收货扫描").Select(0,0)
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/2/27 17:30:00 [显示全部帖子]

position应该是指向某一行吧。不能定位到某个新增行的某一列吧。

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


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/2/27 17:37:00 [显示全部帖子]

是定位到新增行的SN列，不是表A的第一列。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/2/27 17:59:00 [显示全部帖子]

Dim r As DataRow = DataTables("非插卡收货扫描").AddNew
Dim wz As Integer = Tables("非插卡收货扫描").FindRow(r)
Tables("非插卡收货扫描").Select(wz,0)
这么写好像也没实现。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/2/29 10:09:00 [显示全部帖子]

这是afterload完整的代码，增加行是没有问题的。就是光标没有定位到SN列。
Dim jbr As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim d As Integer = user.name.Indexof("@")
Dim xx As String = user.name.SubString(0,d)
jbr.text = xx
Dim fckyrkzsl As WinForm.Button = e.Form.Controls("Button4")
fckyrkzsl.text = Vars("fckrkdhwb")

DataTables("非插卡收货扫描").loadFilter = "入库单号 = '" & Vars("fckrkdh") & "'"
DataTables("非插卡收货扫描").load
e.Form.Controls("Table1").Table.AddNew
e.Form.Controls("Table1").Table.Select(0,0)


Tables("非插卡收货扫描_table2").filter = "入库单号 = '" & Vars("fckrkdh") & "'"
Dim tjrk As WinForm.Button = e.Form.Controls("Button3")
For Each ddr As DataRow In DataTables("U8物料数量汇总表").DataRows
    If ddr("比较结果") = 0 Then
        tjrk.Enabled = True
    Else
        tjrk.Enabled = False
    End If
Next
Dim ssdsl As WinForm.Button = e.Form.Controls("Button2")
Dim sum As Integer =  DataTables("非插卡收货扫描").Compute("SUM(数量)")
ssdsl.text = "实扫到的数量" & "(" & sum & ")"

图片点击可在新窗口打开查看此主题相关图片如下：定位到sn列.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/2/29 10:26:00 [显示全部帖子]

是定位到新增行的SN列，而非table1的第一行第一列。select（0,0）肯定是table1的第一行第一列吧。
我要的定位到新增行的SN列。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/2/29 13:03:00 [显示全部帖子]

Dim r As Row = e.Form.Controls("Table1").Table.AddNew
e.Form.Controls("Table1").Table.Select(r.Index,0)--------这句不应该就是定位到新增行的第一列么。
 
e.Form.Controls("Table1").Select-----为什么还需要把这句加上？不加这句功能又没生效。请告知一下这句的意思。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/2/29 16:45:00 [显示全部帖子]

假如果我打开这个窗口需要光标定位到一个textbox上，然后扫描枪在textbox扫入了条码，应该有回车（扫描枪设置的是回车为分隔符），然后再新增一行，光标再定位到新增行SN列。
红色的怎么实现？
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/2/29 17:33:00 [显示全部帖子]

textbox1输入条码，然后敲了回车，table1没有新增行，再次回车table1才新增行。怎么弄？

 回到顶部
总数 11 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.05078 秒, 5 次数据查询