- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]光标定位 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81437)
-- 发布时间：2016/2/27 17:11:00
-- [求助]光标定位
打开窗口，希望表A自动增加一行，并且光标自动定位到第一列。
这个怎么弄？
-- 发布时间：2016/2/27 17:23:00
--
http://www.foxtable.com/help/topics/0446.htm
Tables("表A").AddNew
Tables("表A").Position = Tables("表A").Rows.Count - 1
-- 发布时间：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)
-- 发布时间：2016/2/27 17:30:00
--
position应该是指向某一行吧。不能定位到某个新增行的某一列吧。
-- 发布时间：2016/2/27 17:33:00
--
Tables("表A").Select(Tables("表A").Rows.Count - 1,0)
-- 发布时间：2016/2/27 17:37:00
--
是定位到新增行的SN列，不是表A的第一列。
-- 发布时间：2016/2/27 17:59:00
--
Dim r As DataRow = DataTables("非插卡收货扫描").AddNew
Dim wz As Integer = Tables("非插卡收货扫描").FindRow(r)
Tables("非插卡收货扫描").Select(wz,0)
这么写好像也没实现。
-- 发布时间：2016/2/28 12:23:00
--
那就是你的表名写错
Tables("非插卡收货扫描").AddNew
Tables("非插卡收货扫描").Select(0,0)
试试
e.Form.Controls("Table1").Table.AddNew
e.Form.Controls("Table1").Table.Select(0,0)
-- 发布时间：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
-- 发布时间：2016/2/29 10:11:00
--
e.Form.Controls("Table1").Table.AddNew
e.Form.Controls("Table1").Table.Select(0,0)
e.Form.Controls("Table1").Select