以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助][讨论]群晖通过docker运行sql server  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108615)
--  作者：weigqing9
--  发布时间：2017/10/26 8:58:00
--  [求助][讨论]群晖通过docker运行sql server
求助老师：
群晖服务器为716+Ⅱ 8G内存 通过docker运行microsoft-mssql-server-linux能正常连接与读写，但设计表时已创建列名不能更改，会发生严重错误
列属性从字符型到日期或小数可以更改，但不能改为逻辑型，发生错误。
如何新建与删除数据库？请老师指教。

linux sql server 文档
https://hub.docker.com/r/microsoft/mssql-server-linux/
--  作者：有点甜
--  发布时间：2017/10/26 9:58:00
--  

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

 

2、你表是否有数据了？先把列的数据删除清空后，再修改列类型。或者是删除列，再新建列。
--  作者：weigqing9
--  发布时间：2017/10/28 12:59:00
--  回复：（weigqing9）[求助][讨论]群晖通过docker运行s...

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()
--  作者：有点蓝
--  发布时间：2017/10/28 14:19:00
--  
msgbox(Filter) 弹出条件看看
--  作者：weigqing9
--  发布时间：2017/10/28 14:53:00
--  回复：（有点蓝）msgbox(Filter) 弹出条件看看
---------------------------
管理项目1.Form.437a350c
---------------------------
[建设单位]  = \'*******零部件有限公司\'And [工程名称] = \'Tiguan NF PHEV项目定置管理\'      ***为我屏蔽的字段
---------------------------
确定  
---------------------------

蓝老师 Filter 弹出好像正常呀 
--  作者：有点蓝
--  发布时间：2017/10/28 14:56:00
--  
贴出你自己的代码，不要贴帮助的代码，那没有任何意义
--  作者：weigqing9
--  发布时间：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)
--  作者：有点蓝
--  发布时间：2017/10/28 15:19:00
--  
工程名称或者单位名称有没有什么特殊的字符？

1、试试

Filter ="[建设单位]  = \'" & dr("建设单位") & "\' And [工程名称] = \'" & dr("工程名称") & "\'"

With DataTables("项目工程")
    .LoadFilter = Filter
    .LoadTop = ""
    .Load()
End With


2、把生成的条件放到数据库执行能不能查询出结果？
--  作者：weigqing9
--  发布时间：2017/10/28 15:28:00
--  回复：（有点蓝）工程名称或者单位名称有没有什么特殊...
蓝老师
     我是群晖服务器 通过docker容器运行microsoft-mssql-server-linux 版的，代码不是问题，MSSQL开源免费版本的问题有可能吗？
--  作者：有点蓝
--  发布时间：2017/10/28 15:39:00
--  
没有用过，也没有环境测试。