-- 作者:visoni
-- 发布时间:2018/6/12 9:15:00
-- 设置按钮克隆行 ,数据表和窗体空间显示不一致
设置按钮克隆行 ,数据表和窗体空间显示不一致(如图)
--------------
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编辑过]
|