5.25升级后SQL table错误 / 测试5.29版发现问题依旧 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

升级后

所有用SQL 语句sel ect * from 生成的table都报错。下面的老代码已经部署了好久了，这次升级以后一直报错。我的上版程序是 5.1日高级开发版

Dim cmd As New SQLCommand

cmd.ConnectionName=_ConnectionName

Dim PTB As Table=e.Form.Controls("SalesOD").Table

cmd.Comm andText = "SEL ECT * FROM {SalesInvs} where 1=0 "

ptb.datasource = cmd.ExecuteReader(True)

'同步列标题

For Each cl As Col In ptb.Cols

cl.caption = DataTables("SalesInvs").DataCols(cl.name).caption

cl.TextAlign = Tables("SalesInvs").Cols(cl.name).TextAlign

ptb .BuildHeader()

' ptb.DataTable.DataCols("Weight").SetFormat("#,###.0")

ptb.Cols("TimeCreated").DataCol.SetDateTimeFormat(DateTimeFormatEnum.DateTime)

ptb.DataTable.AddUserStyle("locked", Color.fromargb(255,224,224,224), Color.black) '标记锁定区域

ptb.DefaultRowHeight =35

ptb.SetHeaderRowHeight(22,22)

Dim cvs As String = "InvoiceDate|79|DueDate|79|ProjectNo|67|Address_Street|118|Address_Suburb|103|address_City|77|CustON|98|Notes|200|Confirmed|42|Printed|42|PaymentTerm|92|PriceLevel|73|SalesPerson|80"

ptb.SetColVisibleWidth(cvs)

ptb.AllowEdit = True

' bind field for controls

Dim TBName As String = ptb.name

e.Form.Controls("BranchID").BindingField = TBName & "." & "BranchID"

e.Form.Controls("CustomerID").BindingField = TBName & "." & "CustomerID"

e.Form.Controls("CustomerName").BindingField = TBName & "." & "CustomerName"

e.Form.Controls("SalesON").BindingField = TBName & "." & "InvoiceNo"

e.Form.Controls("HideRates").BindingField = TBName & "." & "HideRatesForPrinting"

e.Form.Controls("TotExcGST").BindingField = TBName & "." & "TotExcGST"

e.Form.Controls("TotIncGST").BindingField = TBName & "." & "TotIncGST"

e.Form.Controls("GST").BindingField = TBName & "." & "GST"

e.Form.Controls("confirmed").BindingField = TBName & "." & "confirmed"

e.Form.Controls("Printed").BindingField = TBName & "." & "Printed"

e.Form.Controls("PostedGL").BindingField = TBName & "." & "PostedGL"

e.Form.Controls("Author").BindingField = TBName & "." & "CreatedBy"

e.Form.Controls("TimeCreated").BindingField = TBName & "." & "TimeCreated"

e.Form.Controls("DatePaid").BindingField = TBName & "." & "PaymentDate"

e.Form.Controls("AmtOutstanding").BindingField = TBName & "." & "Outstanding"

'**************************************************************

'设置下拉输入框

ptb.Cols("DueDate").DropForm ="DateEntry"

ptb.Cols("InvoiceDate").DropForm ="DateEntry"

ptb.Cols("Address_Suburb").DropForm ="SuburbEntry"

ptb.Cols("Address_street").DropForm ="StreetEntry"

ptb.Cols("ProjectNo").DropForm ="ProjectEntry"

e.Form.Controls("SalesOD").visible = True

[此贴子已经被作者于2020/6/26 7:58:01编辑过]

此主题相关图片如下：img_20200526.png

在命令窗口测试如下代码，报同样错误

Dim cmd As New SQLCommand

cmd.ConnectionName=_ConnectionName

Dim PTB As DataTable

cmd.CommandText = "SELE CT * FROM {PurchOrds} where 1=0 "

ptb = cmd.ExecuteReader(True)

代码简化这个程度，还有错误很奇怪呢。

期待紧急援助，我中午给公司发布了升级。如今一片哀鸣。老版本程序已经打不开新版本碰过的程序文件了。

我操作系统是windows 7 英文版。现在程序是高级开发版 5.25版。

把 ptb = cmd.ExecuteReader(True) 改成 ptb = cmd.ExecuteReader() 就不报错，

或者，把星号selec t *换成 sele ct _identify 等一堆列名，那么 ptb = cmd.ExecuteReader(True) 也不报错。

那么错误就在这个True或者星号 * 上面。

这个功能我绕不开呀。期待发布紧急补丁。

空格是我在这里加的，不然不让发帖。源代码应该没问题，用了一年多了的。

这样用sql表格是为了保证打开的表格绝对独立，不受其他地方同步查询/加载等操作影响。特别适合单独开窗口来编辑订单。

谢谢蓝版主，不过期待尽快呀。这次真的没有备份，下次肯定记住了呵呵。

版主，

这个SQL的问题在5.29版本中依旧存在。以为这么长时间没人报错，自己大胆升级了一次。

又是同样的错误提示。好在这次备份了，马上退回到5.1日版。

希望以后升级前贵公司还要做些基本测试。

谢谢斑竹回复。

请问 cmd.C 是什么意思？

我几乎可以肯定这次5.29还是有潜在问题，需要更充分的测试。

因为我同样的代码在5.1日版本以及之前的版本一直运行良好，升级到5.29，那么sql生成的表就报错，报的错和5.18版那个报错一模一样。（代码在一楼）

我这个sql 表是绑定到一个窗口表的（即订单详情），难道是这个的问题吗？

我的数据源版本是 sql server express 2017，会不会是兼容性问题呢？

[此贴子已经被作者于2020/6/29 6:16:27编辑过]

另外，sql server数据源的程序不知道如何制作示例，我只能给代码，无法带数据源啊

主题：5.25升级后SQL table错误 / 测试5.29版发现问题依旧