MYSQL关联出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2989人关注过本帖树形打印复制链接主题：MYSQL关联出错

lin98

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1097 积分：7245 威望：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。

有点蓝

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/18 9:42:00 [只看该作者]

完整代码发上来

lin98

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1097 积分：7245 威望：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

有点蓝

小大 24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/18 9:59:00 [只看该作者]

这里的代码

错误所在事件：全局表事件,CurrentChanged

lin98

小大 25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1097 积分：7245 威望：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

小大 26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1097 积分：7245 威望：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

小大 27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1097 积分：7245 威望：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

小大 28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1097 积分：7245 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2023/4/18 10:05:00 [只看该作者]

上面是完整代码

有点蓝

小大 29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/18 10:05:00 [只看该作者]

Select Case e.Table.Name

Case "MYSQL-01_Table1"

if e.table.cols.contains("sellID") then

'针对MYSQL-01_Table1的代码

……

end if

lin98

小大 30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1097 积分：7245 威望：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 Select

还是报错，.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.8.18.1

错误所在事件：

详细错误信息：

未找到列 [sellID]。

[sellID]在数据库是存在

下一主题 >> << 上一主题

总数 58 上一页 1 2 3 4 5 6 下一页

主题：MYSQL关联出错