主题：设置按钮克隆行 ，数据表和窗体空间显示不一致

设置按钮克隆行 ，数据表和窗体空间显示不一致（如图）

--------------

Dim idx As Integer = Tables("WL").Position
Dim r1 As Row = Tables("WL").Current
Dim r2 As Row = Tables("WL").AddNew
Dim nms() As String = {"BM","MC","GG","DW","ckbm","ckmc","pc","SX","BCL","BRG","BZF"}
For Each nm As String In nms
   r2(nm) = r1(nm)
Next

 --------------

图中“复制”按钮为 克隆当前行
此主题相关图片如下：9.jpg

 

 刚刚  规格列 克隆的时候为空白 窗口控件不为空白 且改空间数据 表数据不发生变化（显示空白列 其他控件变化会联动）

 

此主题相关图片如下：10.jpg

试试改成

 

SystemReady = False

For Each nm As String In nms
   r2(nm) = r1(nm)
Next

SystemReady = True

还是不行 老师！！

此主题相关图片如下：10.jpg

上传具体例子测试。代码看不出问题。

怎么传 我用的SQL做的数据库

 

 

代码不应该有问题的。看看是不是你窗口click、textchanged等事件有影响的代码（全局的窗口事件）

 

你可以单独做一个窗口，然后测试代码，不应该有问题的。