Foxtable(狐表) → 用户栏目 → 专家坐堂 → MYSQL关联出错


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

主题：MYSQL关联出错
帅哥哟，离线，有人找我吗？
lin98
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：8713 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/4/18 9:32:00 [显示全部帖子]


窗口,MYSQL-01,AfterLoad   是11楼的代码，没有19楼的代码，是正常加载数据，

加上19楼的代码，报错如下

报错
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：全局表事件,CurrentChanged
详细错误信息：
列“sellID”不属于表 MYSQ-L-01_Table1。
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：8713 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/4/18 9:59:00 [显示全部帖子]

窗口,MYSQL-01,AfterLoad

Dim db = HySql.DataBaseFactory.CreateDatabase("db_jxcms")
Dim Sql = "selec-t * from tb_sell_main;"
Dim dt As system.data.DataTable = db.ExecuteDataSet(Sq-l).Tables(0)
Output.Show(dt.Rows.Count)
dt.TableName = "tb_sell_main"
Dim t As Table = e.Form.Controls("Table1").Table
t.datasource = dt
t.AllowEdit = True
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：8713 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/4/18 10:01:00 [显示全部帖子]

Select Case e.Table.Name
    Case "MYSQL-01_Table1"
        '针对MYSQL-01_Table1的代码
        If Forms("MYSQL-01").Opened() Then'一定要判断用于模拟关联表的窗口是否已经打开
            Dim t As Table = Tables("MYSQL-01_Table2") 
            With Tables("MYSQL-01_Table1")
                
                If .Current Is Nothing Then
                    t.Filter = "False"
                Else
                    '            t.Filter = "tb_sell_main.sellID = '" & .Current("tb_sell_main.sellID") & "'"
                    t.Filter = "sellID = '" & .Current("sellID") & "'"
                End If
            End With
        End If
        
        '    Case "MYSQL-01_Table2"
        '        '针对MYSQL-01_Table2的代码
        '    Case "表C"
        '        '针对表C的代码
End Select
全局事件 CurrentChanged的代码
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：8713 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/4/18 10:03:00 [显示全部帖子]

'Dim t2 As Table = Tables("MYSQL-01_Table2") 
'With Tables("MYSQL-01_Table1") '
'    If .Current Is Nothing Then
'        t2.Filter = "False"
'    Else
'        t2.Filter = "sellID = '" & .Current("sellID") & "'" 
        
'    End If
'End With
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：8713 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/4/18 10:04:00 [显示全部帖子]

Dim db = HySql.DataBaseFactory.CreateDatabase("db_jxcms")
Dim Sql = "selec-t * from tb_sell_detail;"
Dim dt As system.data.DataTable = db.ExecuteDataSet(Sq-l).Tables(0)
Output.Show(dt.Rows.Count)
dt.TableName = "tb_sell_detail"
Dim t As Table = e.Form.Controls("Table1").Table
t.datasource = dt
t.AllowEdit = True
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：8713 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/4/18 10:05:00 [显示全部帖子]

上面是完整代码

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


加好友 发短信
等级：六尾狐 帖子：1326 积分：8713 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/4/18 11:22:00 [显示全部帖子]

Select Case e.Table.Name
    Case "MYSQL-01_Table1"
        '针对MYSQL-01_Table1的代码
        If e.Table.cols.contains("sellID") Then
        
        If Forms("MYSQL-01").Opened() Then'一定要判断用于模拟关联表的窗口是否已经打开
            Dim t As Table = Tables("MYSQL-01_Table2") 
            With Tables("MYSQL-01_Table1")
                
                If .Current Is Nothing Then
                    t.Filter = "False"
                Else
                    '            t.Filter = "tb_sell_main.sellID = '" & .Current("tb_sell_main.sellID") & "'"
                    t.Filter = "sellID = '" & .Current("sellID") & "'"
                End If
            End With
       
        End If 
        End If
        
       
End Select

还是报错，.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：
详细错误信息：
未找到列 [sellID]。

[sellID]在数据库是存在
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：8713 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/4/18 11:27:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：mysql-找不到列jpg.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：8713 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/4/18 14:30:00 [显示全部帖子]

Select Case e.Table.Name
    Case "MYSQL-01_Table1"
        '针对MYSQL-01_Table1的代码
        If e.Table.cols.contains("sellID") Then
        
        If Forms("MYSQL-01").Opened() Then'一定要判断用于模拟关联表的窗口是否已经打开
            Dim t As Table = Tables("MYSQL-01_Table2") 
            With Tables("MYSQL-01_Table1")
                
                If .Current Is Nothing Then
                    t.Filter = "False"
                MsgBox(t.Filter)
                
                Else
'                    t.Filter = "tb_sell_main.sellID = '" & .Current("tb_sell_main.sellID") & "'"
                    t.Filter = "sellID = '" & .Current("sellID") & "'"
        MsgBox(t.Filter)
                End If
            End With
       
        End If 
        End If
'        MsgBox(t.Filter)
        '    Case "MYSQL-01_Table2"
        '        '针对MYSQL-01_Table2的代码
        '    Case "表C"
        '        '针对表C的代码
End Select

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：
详细错误信息：
未找到列 [sellID]。

调试显示结果如图，是可以找这个列，为什么老报错找 不到列？

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


加好友 发短信
等级：六尾狐 帖子：1326 积分：8713 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/4/18 15:56:00 [显示全部帖子]

MsgBox(3)出错

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：
详细错误信息：
未找到列 [sellID]。
 回到顶部
总数 32 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询