设置按钮克隆行 ,数据表和窗体空间显示不一致(如图)
--------------
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
[此贴子已经被作者于2018/6/12 9:25:47编辑过]