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

写入到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")

DataTables("非插卡收货扫描").loadFilter = "入库单号 = '" & Vars("fckrkdh") & "' and 状态 = '收货完成'"

DataTables("非插卡收货扫描").load

Dim r As Row = e.Form.Controls("Table1").Table.AddNew

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

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

CurrentTable.StartEditing

Tables("非插卡收货扫描_table2").filter = "入库单号 = '" & Vars("fckrkdh") & "'"

Dim tjrk As WinForm.Button = e.Form.Controls("Button3")

Dim lts As List(of DataRow) = DataTables("U8物料编码入库单收货统计").SQLSelect("入库单号 = '" & Vars("fckrkdh") & "'")

For Each ddr As DataRow In lts

If (ddr("实扫到数量") - 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("非插卡收货扫描").SQLCompute("SUM(数量)","入库单号 = '" & Vars("fckrkdh") & "'")

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

可以啊，任意地方都可以啊。

好像不行啊。

把CurrentTable.StartEditing放入一个按钮中，光标类似于双击SN单元格的结果。总不能每新增一行就按一下按钮吧

放入到afterload没效果。

你可以写到afterEdit或者DataColChanged事件啊。

不行啊。没有看到进入编辑状态的光标。

CurrentTable.StartEditing它的作用应该是看到光标一闪一闪吧。

咋就没看到呢

不会做，上传实例。

实例有数据源，外网连不上。

做个例子。请帮我看看那个地方加上CurrentTable.StartEditing。才能进入编辑状态。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.foxdb

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.foxdb

我按照你改了，为啥还是没反应呢？

能远程给我看看吗？是不是其它地方给影响了呢？

认认真真看38楼，只要例子测试没问题，你的肯定也没问题。

主题：二维码