[求助][讨论]群晖通过docker运行sql server - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助][讨论]群晖通过docker运行sql server

共有3821人关注过本帖树形打印复制链接主题：[求助][讨论]群晖通过docker运行sql server

weigqing9

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

加好友

发短信

等级：幼狐帖子：102 积分：2245 威望：0 精华：0 注册：2014/6/19 20:51:00

[求助][讨论]群晖通过docker运行sql server 发帖心情

Post By：2017/10/26 8:58:00 [只看该作者]

求助老师：

群晖服务器为716+Ⅱ 8G内存通过docker运行microsoft-mssql-server-linux能正常连接与读写，但设计表时已创建列名不能更改，会发生严重错误

列属性从字符型到日期或小数可以更改，但不能改为逻辑型，发生错误。

如何新建与删除数据库？请老师指教。

linux sql server 文档

https://hub.docker.com/r/microsoft/mssql-server-linux/

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/26 9:58:00 [只看该作者]

1、直接在foxtable修改的时候报什么错？

2、你表是否有数据了？先把列的数据删除清空后，再修改列类型。或者是删除列，再新建列。

weigqing9

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

加好友

发短信

等级：幼狐帖子：102 积分：2245 威望：0 精华：0 注册：2014/6/19 20:51:00

回复：（weigqing9）[求助][讨论]群晖通过docker运行s... 发帖心情

Post By：2017/10/28 12:59:00 [只看该作者]

3、最后将目录树的NodeMouseDoubleClick事件设为：

Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    Select Case e.Node.Level
        Case 0
            Filter ="[产品] = '" & dr("产品") & "'"
        Case 1
            Filter ="[产品] = '" & dr("产品") & "' And [客户] = '" & dr("客户") & "'"
    End Select
End If
DataTables("订单").LoadFilter = Filter    '加载树没有按条件加载，点客户行变空表，点"加载所有数据" 能加载全部行，包括菜单栏生成的加载树也一样错误。
DataTables("订单").Load()

有点蓝

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

加好友

发短信

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

Post By：2017/10/28 14:19:00 [只看该作者]

msgbox(Filter) 弹出条件看看

weigqing9

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

加好友

发短信

等级：幼狐帖子：102 积分：2245 威望：0 精华：0 注册：2014/6/19 20:51:00

回复：（有点蓝）msgbox(Filter) 弹出条件看看 发帖心情

Post By：2017/10/28 14:53:00 [只看该作者]

---------------------------
管理项目1.Form.437a350c
---------------------------
[建设单位] = '*******零部件有限公司'And [工程名称] = 'Tiguan NF PHEV项目定置管理' ***为我屏蔽的字段
---------------------------
确定
---------------------------

蓝老师 Filter 弹出好像正常呀

有点蓝

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

加好友

发短信

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

Post By：2017/10/28 14:56:00 [只看该作者]

贴出你自己的代码，不要贴帮助的代码，那没有任何意义

weigqing9

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

加好友

发短信

等级：幼狐帖子：102 积分：2245 威望：0 精华：0 注册：2014/6/19 20:51:00

回复：（有点蓝）贴出你自己的代码，不要贴帮助的代码... 发帖心情

Post By：2017/10/28 15:11:00 [只看该作者]

窗口2_Afterloa

Dim cmd As New S Q L C ommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SE LECT DISTINCT 结账,建设单位,工程名称 From {项目工程} WHERE 结账 = 0 "
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"建设单位|工程名称")
trv.Nodes.Insert("加载所有数据",0)

Tables("项目工程").Sort = "合同编号 DESC"

窗口2_NodeMouseDoubleClick

Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    Select Case e.Node.Level
        Case 0
            Filter ="[建设单位] = '" & dr("建设单位") & "'"
        Case 1
            Filter ="[建设单位] = '" & dr("建设单位") & "'And [工程名称] = '" & dr("工程名称") & "'"
End Sele ct
End If
With DataTables("项目工程")
    .LoadFilter = Filter
    .Load()
End With
msgbox(Filter)