Foxtable(狐表)用户栏目专家坐堂 → 代码冲突


  共有474人关注过本帖平板打印复制链接

主题:代码冲突

帅哥哟,离线,有人找我吗?
lin98
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1143 积分:7546 威望:0 精华:0 注册:2020/11/4 22:15:00
代码冲突  发帖心情 Post By:2024/5/24 9:24:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:丢失数据.png
图片点击可在新窗口打开查看


由于是MYSQL源,设定下面代码一:
'表属性-StartEdit开始编辑的时候执行
Dim dmp As New TableDataMap
dmp.DataTable = "窗口_Table3" '
dmp.ValueCol = "计量单位" '
dmp.DisplayCol = "计量单位" '
dmp.ListCols = "计量单位"
Tables("窗口_Table2").Cols("单位").DataMap = dmp.CreateDataMap() '生成并设置DataMap

Dim dmp As New TableDataMap
dmp.DataTable = "窗口_Table3" '
dmp.ValueCol = "等级" '
dmp.DisplayCol = "等级" '
dmp.ListCols = "等级"
Tables("窗口_Table2").Cols("等级").DataMap = dmp.CreateDataMap() '生成并设置DataMap



执行下面代码后,有时,表的中“单位”会丢失,有时,在手动录入,数量列的值时,表的中“单位”会丢失,有时正常,如何解决?
Dim nma() As String = {"产品编号", "品名",  "单位"}'
Dim nmb() As String = {"产品编号", "品名", "单位"} '

        Dim dr As Row = Tables("窗口_Table2").AddNew '
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = r(nma(i))
        Next
    Else
       
    End If
Next
Forms("导记窗口").Close()''



[此贴子已经被作者于2024/5/24 9:39:50编辑过]

 回到顶部
总数 26 1 2 3 下一页