[求助]光标定位 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

打开窗口，希望表A自动增加一行，并且光标自动定位到第一列。

这个怎么弄？

http://www.foxtable.com/help/topics/0446.htm

Tables("表A").AddNew

Tables("表A").Position = Tables("表A").Rows.Count - 1

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)

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

Tables("表A").Select(Tables("表A").Rows.Count - 1,0)

是定位到新增行的SN列，不是表A的第一列。

Dim r As DataRow = DataTables("非插卡收货扫描").AddNew

Dim wz As Integer = Tables("非插卡收货扫描").FindRow(r)

Tables("非插卡收货扫描").Select(wz,0)

这么写好像也没实现。

那就是你的表名写错

Tables("非插卡收货扫描").AddNew

Tables("非插卡收货扫描").Select(0,0)

试试

e.Form.Controls("Table1").Table.AddNew

e.Form.Controls("Table1").Table.Select(0,0)

这是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

Dim ssdsl As WinForm.Button = e.Form.Controls("Button2")

Dim sum As Integer = DataTables("非插卡收货扫描").Compute("SUM(数量)")

ssdsl.text = "实扫到的数量" & "(" & sum & ")"

此主题相关图片如下：定位到sn列.png

e.Form.Controls("Table1").Table.AddNew

e.Form.Controls("Table1").Table.Select(0,0)

e.Form.Controls("Table1").Select

主题：[求助]光标定位