窗口表是通过 Tables(tbn).Fill(sql,Mydata,True) 加载的sqltable,是从多个表中查询的,用false提示不支持动态sql语句,只好用true
加载后想复制一行的数据在其下一行方便修改, 保存是通过sql语句直接保存的,所以与表是否是查询表没关系
Dim tbl As Table = Tables(e.form.name & "_生产计划主表")
If tbl.Current IsNot Nothing Then
Dim r,r1 As Row
r = tbl.Current
Dim p1 As Integer = tbl.position '当前行号
tbl.StopRedraw
r1 = tbl.AddNew
r1.Move(p1+1)
r1 = tbl.InsertNew
For Each dc As DataCol In tbl.DataTable.DataCols
If dc.name <> "生产单号" Then
r1(dc.name) = r(dc.name)
End If
Next
tbl.ResumeRedraw
End If
上面执行时会提示不能移动行,两行红色的代码都不行,有什么变通的办法没有?
谢谢!
加好友 
发短信
Post By：2018/11/22 19:26:00 [显示全部帖子]
此主题相关图片如下：a1.gif