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


  共有438人关注过本帖树形打印复制链接

主题：代码冲突
帅哥哟，离线，有人找我吗？
lin98
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1138 积分：7511 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


图片点击可在新窗口打开查看此主题相关图片如下：丢数据-1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107604 积分：547323 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/5/24 9:36:00 [只看该作者]

不是丢失，而是数据没有加载，字典找不到对应的数据无法显示。

这种取值列和显示列都一样的，没有必要使用字典，建议直接使用下拉列表
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

是MYSQL源，表A，SQLTable

等级的字段默认值怎么设计，在哪里设计？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107604 积分：547323 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/5/24 9:55:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1138 积分：7511 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/5/24 10:08:00 [只看该作者]

代码放在这里报错DataRowAdding：是放在哪里？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107604 积分：547323 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/5/24 10:10:00 [只看该作者]

从数据库加载数据绑定窗口表的代码后面

 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1138 积分：7511 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/5/24 10:29:00 [只看该作者]


'在：AfterLoad
Dim db = HySql.DataBaseFactory.CreateDatabase("xc")
Dim Sql2 = "selec--t * from tb ;"
Dim dt2 As system.data.DataTable = db.ExecuteDataSet(Sq-l2).Tables(0)
dt2.TableName = "tb"
Dim t2 As Table = e.Form.Controls("Table2").Table
t2.datasource = dt2.Copy



DataTables("窗口_Table2").DataCols("等级").DefaultValue = "常规"

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：Eval函数计算错误，表达式为：常规
详细错误信息：
无效字符
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107604 积分：547323 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/5/24 10:35:00 [只看该作者]

认真看看帮助咯！！

DataTables("窗口_Table2").DataCols("等级").DefaultValue = """常规"""
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1138 积分：7511 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/5/24 10:48:00 [只看该作者]

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

会跟上面代码冲突，需求是"等级"默认为“常规”，如果要修改可以从下拉列中选中修改，但执行后，在手动录入，数量列的值时，表的中“等级”会丢失，如何解决？或这个一楼一样，只能任一个方法？
 回到顶部
总数 26 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询