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

狐爸，我重新做了一个例子，刚测试，虽然总页数是对的，还有严重问题，如下：

1. 不按照每页5条记录分页；

2.第七页，第八页是一样的数据

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目7.foxdb

以下是引用atmetmicoo在2013-4-22 13:18:00的发言：
狐爸，我重新做了一个例子，刚测试，虽然总页数是对的，还有严重问题，如下：

1. 不按照每页5条记录分页；

2.第7页，第8页是一样的数据

下载信息 [文件大小：328.0 KB 下载次数：0]
点击浏览该文件:管理项目7.foxdb

狐爸，补充一点，我这边现有项目测试下来，用LoadOver的话，最后两页显示不了数据，倒数3、4页的数据完全一样的。

正常的，因为你用于分页加载的列不是唯一的，有很多重复值。

注意帮助中的一段话：

我们的建议是：尽量采用主键列或者其他值不会重复的列（如身份证号码），作为分页依据列，因为如果分页依据列的值有重复，将会影响分页的准确性，例如上面的代码根据日期分页，每页显示20行，如果某一天有40个订单，那么这40个订单会显示在同一个页面中，而不会按我们期望的那样分成两页显示。

以下是引用FoxMan在2013-4-22 12:54:00的发言：
菜单多余的右键菜单没有取消.

呵呵，我没有找到取消的办法

昏倒!4.22版又出现[项目管理]丢失代码了:图中6处代码不翼而飞.

操作:把qq121454970狐友之给力代码调试器加入后

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

以下是引用狐狸爸爸在2013-4-22 14:55:00的发言：

正常的，因为你用于分页加载的列不是唯一的，有很多重复值。

注意帮助中的一段话：

狐爸，如果依据列选择为_Identify列，但是我希望分页加载的所有数据按照【修改时间】降序排列，该如何操作，谢谢。

以下是引用atmetmicoo在2013-4-22 15:07:00的发言：

狐爸，如果依据列选择为_Identify列，但是我希望分页加载的所有数据按照【修改时间】降序排列，该如何操作，谢谢。

没有办法，如果你是SQL Server的数据源，可以自己写个分页加载：

http://www.foxtable.com/help/topics/2721.htm

以下是引用ybil在2013-4-22 15:01:00的发言：

昏倒!4.22版又出现[项目管理]丢失代码了:图中6处代码不翼而飞.

操作:把qq121454970狐友之给力代码调试器加入后

这个问题现在只有你这边发生，我也很郁闷，有没有什么规律？

我记得上次你是调整函数分类的时候发生的，这次也是吗？

唉,幸好只是丢失[项目管理]的,如其它地方丢失了,且不知哪里丢了,才大件事.

没有啦,只是在全局代码加了以下代码:

-----------------------------------------------------------------------------------代码编辑器重增加代码调节器按钮

Public Editor As Windows.Forms.RichTextBox

Public Sub Test(ByVal sender As Object, ByVal e As EventArgs)

Dim frm As System.Windows.Forms.Form = System.Windows.Forms.Form.ActiveForm

If frm.name = "frmCommand" Then

Editor = ctype(ctype(Ctype(frm.Controls("SplitContainer1"),windows.Forms.SplitContainer).Panel1.controls(0).Controls(0),windows.Forms.SplitContainer).panel1.Controls(0),windows.Forms.SplitContainer).panel1.controls(0)

Else

Editor = Ctype(Ctype(frm.Controls("MyCodeEditor1").Controls(0),Windows.Forms.SplitContainer).Panel1.Controls(0),Windows.Forms.SplitContainer).Panel1.Controls(0)

End If

Select Case sender.Text

Case "调试代码"

With Editor

Dim s As String

For i As Integer = 0 To .Lines.Length - 1

If s Is Nothing Then

s = .Lines(i) & vbcrlf & "MessageBox.Show(" & i + 1 & ")" & vbcrlf

Else

If i < .Lines.Length - 1 Then

s = s & .Lines(i) & vbcrlf & "MessageBox.Show(" & i + 1 & ")" & vbcrlf

Else

s = s & .Lines(i) & vbcrlf & "MessageBox.Show(" & i + 1 & ")"

End If

Editor.Text = s

End With

Case "正式代码"

With Editor

Dim s,s1 As String

Dim q As Integer

For i As Integer = 0 To .Lines.Length - 1 Step 1

q = q + 1

If q Mod 2 = 0 Then

s1 = .Lines(i).TrimStart() '删除字串符前面的空格

If s1.StartsWith("MessageBox.Show(") = False Then '如果开头不是MessageBox.Show 的话

If s Is Nothing Then

s = .Lines(i)

Else

s = s & vbcrlf & .Lines(i)

End If

Else

If s Is Nothing Then

s = .Lines(i)

Else

s = s & vbcrlf & .Lines(i)

End If

Editor.Text = s

End With

Case Else

Return

End Select

End Sub

[此贴子已经被作者于2013-4-22 15:21:48编辑过]

Public Sub AddUserButton

Dim frm As System.Windows.Forms.Form = System.Windows.Forms.Form.ActiveForm

If frm IsNot Nothing AndAlso (frm.Name = "frmCommand" OrElse frm.name = "frmCodeEditor")

Dim BtnFind As Windows.Forms.Button = frm.Controls("Button4")

Dim UserButton As New System.Windows.Forms.Button

UserButton = New System.Windows.Forms.Button

AddHandler UserButton.Click, AddressOf Test

UserButton.Text = "调试代码"

UserButton.Top = BtnFind.Top

UserButton.Left = 96

If frm.Controls.Contains(UserButton) = False Then

frm.Controls.add(UserButton)

End If

Dim UserButton1 As New System.Windows.Forms.Button

UserButton1 = New System.Windows.Forms.Button

AddHandler UserButton1.Click, AddressOf Test

UserButton1.Text = "正式代码"

UserButton1.Top = BtnFind.Top

UserButton1.Left = 180

If frm.Controls.Contains(UserButton1) = False Then

frm.Controls.add(UserButton1)

End If

End Sub

[此贴子已经被作者于2013-4-22 15:22:23编辑过]

主题：Foxtable 2013问题收集贴