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

请问老师，table里有排序方法，datatable没有，那么如何在datatable里实现排序，谢谢。

再请教一个问题。我在代码编辑器里写代码行数超过4000多行的时候，不能正常滚动，拖动滚动条也不行，就是滚动条总是往上走，我无法增加代码了，不得不删除

一些空行，可是程序的功能在增加，请问怎么解决。谢谢老师。

请教老师下面问题：

Dim drsProduction1 As List(Of DataRow)

drsProduction1=DataTables("multiSegHeading").Select("PointNumber>='" & CInt(First) & "'" And "PointNumber<='" & CInt(Last) & "'")

编译显示下面问题，请问如何更改。我没有做Long的转换，为什么出现这样的问题？谢谢！

调用的目标发生了异常。

从字符串“PointNumber>='1001'”到类型“Long”的转换无效。

输入字符串的格式不正确。

老师好，我需要删除：当表1的列名为X的值为0或空时的行，请问如何写代码？谢谢！或者如何修改下面的代码？

For Each dc As DataCol In 表1.DataCols

Filter = Filter & " And " & dc.Name & " Is Null"

dt.DeleteFor(Filter)

老师好，我需要删除：当表1的列名为X的值为0或空时的行，请问如何写代码？谢谢！或者如何修改下面的代码？

For Each dc As DataCol In 表1.DataCols

Filter = Filter & " And " & dc.Name & " Is Null"

dt.DeleteFor(Filter)

老师好，我用下面的代码读取日历时间比如2015-9-30日，返回的是2015-9-30 23:59:59,不是2015-9-30；而如果我先点取2015-9-29，然后点取2015-9-30日返回的是2015-9-30，请问如何更改代码，使得第一次就返回2015-9-30？谢谢指导。

Dim tjdateday As Date =e.Form.Controls("Calendar1").value
messagebox.show(tjdateday)

请教老师动态加载控件问题。

我有数据表GunErrorStatistics,包含有Source Number,Array,String,Miss Fire,Auto Fire,Delta Error,Depth Error数据列，需要根据表GunErrorStatistics的数据动态加载tabcontrol控件和chart控件。代码如下。思路是先动态加载Source Number1 和Source Number2两个tab，然后在这两个tab里再加载tab和chart，在这些char里成图。实在做不出来，请老师看看。多谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:动态加载控件.zip

Dim str As String

Dim str2 As String

'Dim na As List(Of String)

Forms("Gun Process").Open

For Each na As String In DataTables("GunErrorStatistics").GetValues("Source Number")

If na<>"" Then

Dim pan As WinForm.Panel'需要加上这一句

Dim tabs As WinForm.TabControl

str=na

Forms("Gun Process").Controls("TabControl1").TabPages.Add(str,"Source Number" & str)

pan = Forms("Gun Process").CreateControl("pan" & na,ControlTypeEnum.Panel)

pan.Dock = System.Windows.Forms.DockStyle.fill

pan.AutoScroll=True

pan.BackColor=color.DodgerBlue

Forms("Gun Process").Controls("TabControl1").basecontrol.tabpages (str).addcontrol(pan)

For Each na2 As String In DataTables("GunErrorStatistics").GetValues("Array")'

'Dim tab As WinForm.Panel

str2=na2

tabs= Forms("Gun Process").CreateControl("tab" & na2,ControlTypeEnum.TabControl)

tabs.Dock = System.Windows.Forms.DockStyle.none

'tabs.AutoScroll=True

Forms("Gun Process").Controls("TabControl1").basecontrol.tabpages (str).addcontrol(tabs)

下面的代码运行通过，但在Source Number里没有加载成功tab，请问如何改代码？